virtualgwemodelmodule Module Reference

Data Types
type	virtualgwemodeltype

Functions/Subroutines
subroutine, public	add_virtual_gwe_model (model_id, model_name, model)
subroutine	vgwe_create (this, name, id, model)
subroutine	init_virtual_data (this)
subroutine	vgwe_prepare_stage (this, stage)
subroutine	allocate_data (this)
subroutine	deallocate_data (this)
subroutine	vgwe_destroy (this)

Function/Subroutine Documentation

add_virtual_gwe_model()

subroutine, public virtualgwemodelmodule::add_virtual_gwe_model	(	integer(i4b)	model_id,
		character(len=*)	model_name,
		class(numericalmodeltype), pointer	model
	)

Parameters

model_id	global model id
model_name	model name
model	the actual model (can be null() when remote)

Definition at line 47 of file VirtualGweModel.f90.

    use virtualdatalistsmodule, only: virtual_model_list
    integer(I4B) :: model_id !< global model id
    character(len=*) :: model_name !< model name
    class(NumericalModelType), pointer :: model !< the actual model (can be null() when remote)
    ! local
    class(VirtualGweModelType), pointer :: virtual_gwe_model
    class(*), pointer :: obj
 
    allocate (virtual_gwe_model)
    call virtual_gwe_model%create(model_name, model_id, model)
 
    obj => virtual_gwe_model
    call virtual_model_list%Add(obj)
 

Here is the caller graph for this function:

allocate_data()

subroutine virtualgwemodelmodule::allocate_data ( class(virtualgwemodeltype)  this )

private

Definition at line 162 of file VirtualGweModel.f90.

    class(VirtualGweModelType) :: this
 
    allocate (this%cnd_idisp)
    allocate (this%cnd_alh)
    allocate (this%cnd_alv)
    allocate (this%cnd_ath1)
    allocate (this%cnd_ath2)
    allocate (this%cnd_atv)
    allocate (this%cnd_ktw)
    allocate (this%cnd_kts)
    allocate (this%fmi_igwfspdis)
    allocate (this%fmi_gwfhead)
    allocate (this%fmi_gwfsat)
    allocate (this%fmi_gwfspdis)
    allocate (this%fmi_gwfflowja)
    allocate (this%est_porosity)
    allocate (this%incnd)
    allocate (this%inest)
 

deallocate_data()

subroutine virtualgwemodelmodule::deallocate_data ( class(virtualgwemodeltype)  this )

private

Definition at line 184 of file VirtualGweModel.f90.

    class(VirtualGweModelType) :: this
 
    deallocate (this%cnd_idisp)
    deallocate (this%cnd_alh)
    deallocate (this%cnd_alv)
    deallocate (this%cnd_ath1)
    deallocate (this%cnd_ath2)
    deallocate (this%cnd_atv)
    deallocate (this%cnd_ktw)
    deallocate (this%cnd_kts)
    deallocate (this%fmi_igwfspdis)
    deallocate (this%fmi_gwfhead)
    deallocate (this%fmi_gwfsat)
    deallocate (this%fmi_gwfspdis)
    deallocate (this%fmi_gwfflowja)
    deallocate (this%est_porosity)
    deallocate (this%incnd)
    deallocate (this%inest)
 

init_virtual_data()

subroutine virtualgwemodelmodule::init_virtual_data ( class(virtualgwemodeltype)  this )

private

Definition at line 79 of file VirtualGweModel.f90.

    class(VirtualGweModelType) :: this
 
    call this%set(this%cnd_idisp%base(), 'IDISP', 'CND', map_all_type)
    call this%set(this%cnd_alh%base(), 'ALH', 'CND', map_node_type)
    call this%set(this%cnd_alv%base(), 'ALV', 'CND', map_node_type)
    call this%set(this%cnd_ath1%base(), 'ATH1', 'CND', map_node_type)
    call this%set(this%cnd_ath2%base(), 'ATH2', 'CND', map_node_type)
    call this%set(this%cnd_atv%base(), 'ATV', 'CND', map_node_type)
    call this%set(this%cnd_ktw%base(), 'KTW', 'CND', map_node_type)
    call this%set(this%cnd_kts%base(), 'KTS', 'CND', map_node_type)
    call this%set(this%fmi_igwfspdis%base(), 'IGWFSPDIS', 'FMI', map_all_type)
    call this%set(this%fmi_gwfhead%base(), 'GWFHEAD', 'FMI', map_node_type)
    call this%set(this%fmi_gwfsat%base(), 'GWFSAT', 'FMI', map_node_type)
    call this%set(this%fmi_gwfspdis%base(), 'GWFSPDIS', 'FMI', map_node_type)
    call this%set(this%fmi_gwfflowja%base(), 'GWFFLOWJA', 'FMI', map_conn_type)
    call this%set(this%est_porosity%base(), 'POROSITY', 'EST', map_node_type)
    call this%set(this%incnd%base(), 'INCND', '', map_all_type)
    call this%set(this%inest%base(), 'INEST', '', map_all_type)
 

vgwe_create()

subroutine virtualgwemodelmodule::vgwe_create	(	class(virtualgwemodeltype)	this,
		character(len=*)	name,
		integer(i4b)	id,
		class(numericalmodeltype), pointer	model
	)

Definition at line 64 of file VirtualGweModel.f90.

    class(VirtualGweModelType) :: this
    character(len=*) :: name
    integer(I4B) :: id
    class(NumericalModelType), pointer :: model
 
    ! create base
    call this%VirtualModelType%create(name, id, model)
    this%container_type = vdc_gwemodel_type
 
    call this%allocate_data()
    call this%init_virtual_data()
 

vgwe_destroy()

subroutine virtualgwemodelmodule::vgwe_destroy ( class(virtualgwemodeltype)  this )

private

Definition at line 206 of file VirtualGweModel.f90.

    class(VirtualGweModelType) :: this
 
    call this%VirtualModelType%destroy()
    call this%deallocate_data()
 

vgwe_prepare_stage()

subroutine virtualgwemodelmodule::vgwe_prepare_stage ( class(virtualgwemodeltype)  this, integer(i4b)  stage  )

private

Definition at line 101 of file VirtualGweModel.f90.

    class(VirtualGweModelType) :: this
    integer(I4B) :: stage
    ! local
    integer(I4B) :: nr_nodes, nr_conns
 
    ! prepare base (=numerical) model data items
    call this%VirtualModelType%prepare_stage(stage)
 
    nr_nodes = 0
    nr_conns = 0
 
    if (stage == stg_aft_mdl_df) then
 
      call this%map(this%cnd_idisp%base(), (/stg_aft_mdl_df/))
      call this%map(this%incnd%base(), (/stg_aft_mdl_df/))
      call this%map(this%inest%base(), (/stg_aft_mdl_df/))
 
    else if (stage == stg_bfr_con_ar) then
 
      nr_nodes = this%element_maps(map_node_type)%nr_virt_elems
      nr_conns = this%element_maps(map_conn_type)%nr_virt_elems
 
      call this%map(this%x%base(), nr_nodes, &
                    (/stg_bfr_con_ar, stg_bfr_exg_ad, stg_bfr_exg_cf/))
      call this%map(this%ibound%base(), nr_nodes, (/stg_bfr_con_ar/))
 
      call this%map(this%fmi_igwfspdis%base(), (/stg_bfr_con_ar/))
 
      if (this%cnd_idisp%get() > 0) then
        call this%map(this%cnd_alh%base(), nr_nodes, (/stg_bfr_con_ar/))
        call this%map(this%cnd_alv%base(), nr_nodes, (/stg_bfr_con_ar/))
        call this%map(this%cnd_ath1%base(), nr_nodes, (/stg_bfr_con_ar/))
        call this%map(this%cnd_ath2%base(), nr_nodes, (/stg_bfr_con_ar/))
        call this%map(this%cnd_atv%base(), nr_nodes, (/stg_bfr_con_ar/))
        call this%map(this%cnd_ktw%base(), nr_nodes, (/stg_bfr_con_ar/))
        call this%map(this%cnd_kts%base(), nr_nodes, (/stg_bfr_con_ar/))
      end if
 
      if (this%incnd%get() > 0 .and. this%inest%get() > 0) then
        call this%map(this%est_porosity%base(), nr_nodes, (/stg_aft_con_ar/))
      end if
 
    else if (stage == stg_aft_con_ar) then
 
      nr_nodes = this%element_maps(map_node_type)%nr_virt_elems
      nr_conns = this%element_maps(map_conn_type)%nr_virt_elems
 
      call this%map(this%fmi_gwfhead%base(), nr_nodes, (/stg_bfr_exg_ad/))
      call this%map(this%fmi_gwfsat%base(), nr_nodes, (/stg_bfr_exg_ad/))
      if (this%fmi_igwfspdis%get() > 0) then
        call this%map(this%fmi_gwfspdis%base(), 3, nr_nodes, (/stg_bfr_exg_ad/))
      else
        call this%map(this%fmi_gwfspdis%base(), 3, 0, (/stg_never/))
      end if
      call this%map(this%fmi_gwfflowja%base(), nr_conns, (/stg_bfr_exg_ad/))
 
    end if