virtualgwtexchangemodule Module Reference

Data Types
type	virtualgwtexchangetype

Functions/Subroutines
subroutine, public	add_virtual_gwt_exchange (name, exchange_id, model1_id, model2_id)
	Add a virtual GWT-GWT exchange to the simulation. More...
subroutine	vtx_create (this, name, exg_id, m1_id, m2_id)
	Create a virtual GWT-GWT exchange. More...
subroutine	init_virtual_data (this)
subroutine	vtx_prepare_stage (this, stage)
subroutine	vtx_destroy (this)
subroutine	allocate_data (this)
subroutine	deallocate_data (this)

Function/Subroutine Documentation

add_virtual_gwt_exchange()

subroutine, public virtualgwtexchangemodule::add_virtual_gwt_exchange	(	character(len=*)	name,
		integer(i4b)	exchange_id,
		integer(i4b)	model1_id,
		integer(i4b)	model2_id
	)

Definition at line 29 of file VirtualGwtExchange.f90.

    character(len=*) :: name
    integer(I4B) :: exchange_id
    integer(I4B) :: model1_id
    integer(I4B) :: model2_id
    ! local
    class(VirtualGwtExchangeType), pointer :: v_exg
    class(*), pointer :: obj_ptr
 
    allocate (v_exg)
    call v_exg%create(name, exchange_id, model1_id, model2_id)
 
    obj_ptr => v_exg
    call virtual_exchange_list%Add(obj_ptr)
 

Here is the caller graph for this function:

allocate_data()

subroutine virtualgwtexchangemodule::allocate_data ( class(virtualgwtexchangetype)  this )

private

Definition at line 95 of file VirtualGwtExchange.f90.

    class(VirtualGwtExchangeType) :: this
 
    allocate (this%gwfsimvals)
 

deallocate_data()

subroutine virtualgwtexchangemodule::deallocate_data ( class(virtualgwtexchangetype)  this )

private

Definition at line 102 of file VirtualGwtExchange.f90.

    class(VirtualGwtExchangeType) :: this
 
    deallocate (this%gwfsimvals)
 

init_virtual_data()

subroutine virtualgwtexchangemodule::init_virtual_data ( class(virtualgwtexchangetype)  this )

private

Definition at line 64 of file VirtualGwtExchange.f90.

    class(VirtualGwtExchangeType) :: this
 
    call this%set(this%gwfsimvals%base(), 'GWFSIMVALS', '', map_all_type)
 

vtx_create()

subroutine virtualgwtexchangemodule::vtx_create ( class(virtualgwtexchangetype)  this, character(len=*)  name, integer(i4b)  exg_id, integer(i4b)  m1_id, integer(i4b)  m2_id  )

private

Definition at line 48 of file VirtualGwtExchange.f90.

    class(VirtualGwtExchangeType) :: this
    character(len=*) :: name
    integer(I4B) :: exg_id
    integer(I4B) :: m1_id
    integer(I4B) :: m2_id
 
    ! create base
    call this%VirtualExchangeType%create(name, exg_id, m1_id, m2_id)
    this%container_type = vdc_gwtexg_type
 
    call this%allocate_data()
    call this%init_virtual_data()
 

vtx_destroy()

subroutine virtualgwtexchangemodule::vtx_destroy ( class(virtualgwtexchangetype)  this )

private

Definition at line 87 of file VirtualGwtExchange.f90.

    class(VirtualGwtExchangeType) :: this
 
    call this%VirtualExchangeType%destroy()
    call this%deallocate_data()
 

vtx_prepare_stage()

subroutine virtualgwtexchangemodule::vtx_prepare_stage ( class(virtualgwtexchangetype)  this, integer(i4b)  stage  )

private

Definition at line 71 of file VirtualGwtExchange.f90.

    class(VirtualGwtExchangeType) :: this
    integer(I4B) :: stage
    ! local
    integer(I4B) :: nexg
 
    ! prepare base exchange data items
    call this%VirtualExchangeType%prepare_stage(stage)
 
    if (stage == stg_bfr_con_ar) then
      nexg = this%nexg%get()
      call this%map(this%gwfsimvals%base(), nexg, (/stg_bfr_exg_ad/))
    end if