virtualgwfmodelmodule Module Reference

Data Types
type	virtualgwfmodeltype

Functions/Subroutines
subroutine, public	add_virtual_gwf_model (model_id, model_name, model)
	Add virtual GWF model. More...
subroutine	vgwf_create (this, name, id, model)
subroutine	init_virtual_data (this)
subroutine	vgwf_prepare_stage (this, stage)
subroutine	vgwf_destroy (this)
subroutine	allocate_data (this)
subroutine	deallocate_data (this)

Function/Subroutine Documentation

add_virtual_gwf_model()

subroutine, public virtualgwfmodelmodule::add_virtual_gwf_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 44 of file VirtualGwfModel.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(VirtualGwfModelType), pointer :: virtual_gwf_model
    class(*), pointer :: obj
 
    allocate (virtual_gwf_model)
    call virtual_gwf_model%create(model_name, model_id, model)
 
    obj => virtual_gwf_model
    call virtual_model_list%Add(obj)
 

Here is the caller graph for this function:

allocate_data()

subroutine virtualgwfmodelmodule::allocate_data ( class(virtualgwfmodeltype)  this )

private

Definition at line 168 of file VirtualGwfModel.f90.

    class(VirtualGwfModelType) :: this
 
    allocate (this%npf_iangle1)
    allocate (this%npf_iangle2)
    allocate (this%npf_iangle3)
    allocate (this%npf_iwetdry)
    allocate (this%inbuy)
    allocate (this%npf_icelltype)
    allocate (this%npf_k11)
    allocate (this%npf_k22)
    allocate (this%npf_k33)
    allocate (this%npf_angle1)
    allocate (this%npf_angle2)
    allocate (this%npf_angle3)
    allocate (this%npf_wetdry)
    allocate (this%buy_dense)
 

deallocate_data()

subroutine virtualgwfmodelmodule::deallocate_data ( class(virtualgwfmodeltype)  this )

private

Definition at line 188 of file VirtualGwfModel.f90.

    class(VirtualGwfModelType) :: this
 
    deallocate (this%npf_iangle1)
    deallocate (this%npf_iangle2)
    deallocate (this%npf_iangle3)
    deallocate (this%npf_iwetdry)
    deallocate (this%inbuy)
    deallocate (this%npf_icelltype)
    deallocate (this%npf_k11)
    deallocate (this%npf_k22)
    deallocate (this%npf_k33)
    deallocate (this%npf_angle1)
    deallocate (this%npf_angle2)
    deallocate (this%npf_angle3)
    deallocate (this%npf_wetdry)
    deallocate (this%buy_dense)
 

init_virtual_data()

subroutine virtualgwfmodelmodule::init_virtual_data ( class(virtualgwfmodeltype)  this )

private

Definition at line 76 of file VirtualGwfModel.f90.

    class(VirtualGwfModelType) :: this
 
    call this%set(this%npf_iangle1%base(), 'IANGLE1', 'NPF', map_all_type)
    call this%set(this%npf_iangle2%base(), 'IANGLE2', 'NPF', map_all_type)
    call this%set(this%npf_iangle3%base(), 'IANGLE3', 'NPF', map_all_type)
    call this%set(this%npf_iwetdry%base(), 'IWETDRY', 'NPF', map_all_type)
    call this%set(this%inbuy%base(), 'INBUY', '', map_all_type)
    call this%set(this%npf_icelltype%base(), 'ICELLTYPE', 'NPF', map_node_type)
    call this%set(this%npf_k11%base(), 'K11', 'NPF', map_node_type)
    call this%set(this%npf_k22%base(), 'K22', 'NPF', map_node_type)
    call this%set(this%npf_k33%base(), 'K33', 'NPF', map_node_type)
    call this%set(this%npf_angle1%base(), 'ANGLE1', 'NPF', map_node_type)
    call this%set(this%npf_angle2%base(), 'ANGLE2', 'NPF', map_node_type)
    call this%set(this%npf_angle3%base(), 'ANGLE3', 'NPF', map_node_type)
    call this%set(this%npf_wetdry%base(), 'WETDRY', 'NPF', map_node_type)
    call this%set(this%buy_dense%base(), 'DENSE', 'BUY', map_node_type)
 

vgwf_create()

subroutine virtualgwfmodelmodule::vgwf_create	(	class(virtualgwfmodeltype)	this,
		character(len=*)	name,
		integer(i4b)	id,
		class(numericalmodeltype), pointer	model
	)

Definition at line 61 of file VirtualGwfModel.f90.

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

vgwf_destroy()

subroutine virtualgwfmodelmodule::vgwf_destroy ( class(virtualgwfmodeltype)  this )

private

Definition at line 160 of file VirtualGwfModel.f90.

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

vgwf_prepare_stage()

subroutine virtualgwfmodelmodule::vgwf_prepare_stage ( class(virtualgwfmodeltype)  this, integer(i4b)  stage  )

private

Definition at line 96 of file VirtualGwfModel.f90.

    class(VirtualGwfModelType) :: this
    integer(I4B) :: stage
    ! local
    integer(I4B) :: nr_nodes
 
    ! prepare base (=numerical) model data items
    call this%VirtualModelType%prepare_stage(stage)
 
    if (stage == stg_aft_mdl_df) then
 
      call this%map(this%npf_iangle1%base(), (/stg_aft_mdl_df/))
      call this%map(this%npf_iangle2%base(), (/stg_aft_mdl_df/))
      call this%map(this%npf_iangle3%base(), (/stg_aft_mdl_df/))
      call this%map(this%npf_iwetdry%base(), (/stg_aft_mdl_df/))
      call this%map(this%inbuy%base(), (/stg_aft_mdl_df/))
 
    else if (stage == stg_bfr_con_ar) then
 
      nr_nodes = this%element_maps(map_node_type)%nr_virt_elems
      ! Num. model data
      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, stg_bfr_exg_ad, stg_bfr_exg_cf/))
      call this%map(this%x_old%base(), nr_nodes, &
                    (/stg_bfr_exg_ad, stg_bfr_exg_cf/))
      ! NPF
      call this%map(this%npf_icelltype%base(), nr_nodes, (/stg_bfr_con_ar/))
      call this%map(this%npf_k11%base(), nr_nodes, (/stg_bfr_con_ar/))
      call this%map(this%npf_k22%base(), nr_nodes, (/stg_bfr_con_ar/))
      call this%map(this%npf_k33%base(), nr_nodes, (/stg_bfr_con_ar/))
 
      if (this%npf_iangle1%get() > 0) then
        call this%map(this%npf_angle1%base(), nr_nodes, (/stg_bfr_con_ar/))
      else
        call this%map(this%npf_angle1%base(), 0, (/stg_never/))
      end if
      if (this%npf_iangle2%get() > 0) then
        call this%map(this%npf_angle2%base(), nr_nodes, (/stg_bfr_con_ar/))
      else
        call this%map(this%npf_angle2%base(), 0, (/stg_never/))
      end if
      if (this%npf_iangle3%get() > 0) then
        call this%map(this%npf_angle3%base(), nr_nodes, (/stg_bfr_con_ar/))
      else
        call this%map(this%npf_angle3%base(), 0, (/stg_never/))
      end if
      if (this%npf_iwetdry%get() > 0) then
        call this%map(this%npf_wetdry%base(), nr_nodes, (/stg_bfr_con_ar/))
      else
        call this%map(this%npf_wetdry%base(), 0, (/stg_never/))
      end if
 
      if (this%inbuy%get() > 0) then
        call this%map(this%buy_dense%base(), nr_nodes, (/stg_bfr_exg_cf/))
      else
        call this%map(this%buy_dense%base(), 0, (/stg_never/))
      end if
 
    end if