Functions/Subroutines
subroutine	set_param_pointer (input_dfn, input_dfn_target)

subroutine	set_block_pointer (input_dfn, input_dfn_target)

subroutine	set_subpkg_pointer (subpkg_list, subpkg_list_target)

type(inputparamdefinitiontype) function, dimension(:), pointer, public	gwf_param_definitions (subcomponent)

type(inputparamdefinitiontype) function, dimension(:), pointer, public	gwf_aggregate_definitions (subcomponent)

type(inputblockdefinitiontype) function, dimension(:), pointer, public	gwf_block_definitions (subcomponent)

logical function, public	gwf_idm_multi_package (subcomponent)

logical function, public	gwf_idm_is_advanced (subcomponent)

character(len=16) function, dimension(:), pointer, public	gwf_idm_subpackages (subcomponent)

logical function, public	gwf_idm_integrated (subcomponent)

Function/Subroutine Documentation

◆ gwf_aggregate_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmgwfdfnselectormodule::gwf_aggregate_definitions ( character(len=*), intent(in) subcomponent )

Definition at line 142 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     type(InputParamDefinitionType), dimension(:), pointer :: input_definition
     nullify (input_definition)
     select case (subcomponent)
     case ('NAM')
       call set_param_pointer(input_definition, gwf_nam_aggregate_definitions)
     case ('API')
       call set_param_pointer(input_definition, gwf_api_aggregate_definitions)
     case ('BUY')
       call set_param_pointer(input_definition, gwf_buy_aggregate_definitions)
     case ('CHD')
       call set_param_pointer(input_definition, gwf_chd_aggregate_definitions)
     case ('CHDG')
       call set_param_pointer(input_definition, gwf_chdg_aggregate_definitions)
     case ('CSUB')
       call set_param_pointer(input_definition, gwf_csub_aggregate_definitions)
     case ('DIS')
       call set_param_pointer(input_definition, gwf_dis_aggregate_definitions)
     case ('DISU')
       call set_param_pointer(input_definition, gwf_disu_aggregate_definitions)
     case ('DISV')
       call set_param_pointer(input_definition, gwf_disv_aggregate_definitions)
     case ('DRN')
       call set_param_pointer(input_definition, gwf_drn_aggregate_definitions)
     case ('DRNG')
       call set_param_pointer(input_definition, gwf_drng_aggregate_definitions)
     case ('EVT')
       call set_param_pointer(input_definition, gwf_evt_aggregate_definitions)
     case ('EVTA')
       call set_param_pointer(input_definition, gwf_evta_aggregate_definitions)
     case ('GHB')
       call set_param_pointer(input_definition, gwf_ghb_aggregate_definitions)
     case ('GHBG')
       call set_param_pointer(input_definition, gwf_ghbg_aggregate_definitions)
     case ('HFB')
       call set_param_pointer(input_definition, gwf_hfb_aggregate_definitions)
     case ('IC')
       call set_param_pointer(input_definition, gwf_ic_aggregate_definitions)
     case ('LAK')
       call set_param_pointer(input_definition, gwf_lak_aggregate_definitions)
     case ('MAW')
       call set_param_pointer(input_definition, gwf_maw_aggregate_definitions)
     case ('NPF')
       call set_param_pointer(input_definition, gwf_npf_aggregate_definitions)
     case ('OC')
       call set_param_pointer(input_definition, gwf_oc_aggregate_definitions)
     case ('RCH')
       call set_param_pointer(input_definition, gwf_rch_aggregate_definitions)
     case ('RCHA')
       call set_param_pointer(input_definition, gwf_rcha_aggregate_definitions)
     case ('RIV')
       call set_param_pointer(input_definition, gwf_riv_aggregate_definitions)
     case ('RIVG')
       call set_param_pointer(input_definition, gwf_rivg_aggregate_definitions)
     case ('SFR')
       call set_param_pointer(input_definition, gwf_sfr_aggregate_definitions)
     case ('STO')
       call set_param_pointer(input_definition, gwf_sto_aggregate_definitions)
     case ('UZF')
       call set_param_pointer(input_definition, gwf_uzf_aggregate_definitions)
     case ('VSC')
       call set_param_pointer(input_definition, gwf_vsc_aggregate_definitions)
     case ('WEL')
       call set_param_pointer(input_definition, gwf_wel_aggregate_definitions)
     case ('WELG')
       call set_param_pointer(input_definition, gwf_welg_aggregate_definitions)
     case default
     end select
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ gwf_block_definitions()

type(inputblockdefinitiontype) function, dimension(:), pointer, public idmgwfdfnselectormodule::gwf_block_definitions ( character(len=*), intent(in) subcomponent )

Definition at line 214 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
     nullify (input_definition)
     select case (subcomponent)
     case ('NAM')
       call set_block_pointer(input_definition, gwf_nam_block_definitions)
     case ('API')
       call set_block_pointer(input_definition, gwf_api_block_definitions)
     case ('BUY')
       call set_block_pointer(input_definition, gwf_buy_block_definitions)
     case ('CHD')
       call set_block_pointer(input_definition, gwf_chd_block_definitions)
     case ('CHDG')
       call set_block_pointer(input_definition, gwf_chdg_block_definitions)
     case ('CSUB')
       call set_block_pointer(input_definition, gwf_csub_block_definitions)
     case ('DIS')
       call set_block_pointer(input_definition, gwf_dis_block_definitions)
     case ('DISU')
       call set_block_pointer(input_definition, gwf_disu_block_definitions)
     case ('DISV')
       call set_block_pointer(input_definition, gwf_disv_block_definitions)
     case ('DRN')
       call set_block_pointer(input_definition, gwf_drn_block_definitions)
     case ('DRNG')
       call set_block_pointer(input_definition, gwf_drng_block_definitions)
     case ('EVT')
       call set_block_pointer(input_definition, gwf_evt_block_definitions)
     case ('EVTA')
       call set_block_pointer(input_definition, gwf_evta_block_definitions)
     case ('GHB')
       call set_block_pointer(input_definition, gwf_ghb_block_definitions)
     case ('GHBG')
       call set_block_pointer(input_definition, gwf_ghbg_block_definitions)
     case ('HFB')
       call set_block_pointer(input_definition, gwf_hfb_block_definitions)
     case ('IC')
       call set_block_pointer(input_definition, gwf_ic_block_definitions)
     case ('LAK')
       call set_block_pointer(input_definition, gwf_lak_block_definitions)
     case ('MAW')
       call set_block_pointer(input_definition, gwf_maw_block_definitions)
     case ('NPF')
       call set_block_pointer(input_definition, gwf_npf_block_definitions)
     case ('OC')
       call set_block_pointer(input_definition, gwf_oc_block_definitions)
     case ('RCH')
       call set_block_pointer(input_definition, gwf_rch_block_definitions)
     case ('RCHA')
       call set_block_pointer(input_definition, gwf_rcha_block_definitions)
     case ('RIV')
       call set_block_pointer(input_definition, gwf_riv_block_definitions)
     case ('RIVG')
       call set_block_pointer(input_definition, gwf_rivg_block_definitions)
     case ('SFR')
       call set_block_pointer(input_definition, gwf_sfr_block_definitions)
     case ('STO')
       call set_block_pointer(input_definition, gwf_sto_block_definitions)
     case ('UZF')
       call set_block_pointer(input_definition, gwf_uzf_block_definitions)
     case ('VSC')
       call set_block_pointer(input_definition, gwf_vsc_block_definitions)
     case ('WEL')
       call set_block_pointer(input_definition, gwf_wel_block_definitions)
     case ('WELG')
       call set_block_pointer(input_definition, gwf_welg_block_definitions)
     case default
     end select
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ gwf_idm_integrated()

logical function, public idmgwfdfnselectormodule::gwf_idm_integrated ( character(len=*), intent(in) subcomponent )

Definition at line 505 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     logical :: integrated
     integrated = .false.
     select case (subcomponent)
     case ('NAM')
       integrated = .true.
     case ('API')
       integrated = .true.
     case ('BUY')
       integrated = .true.
     case ('CHD')
       integrated = .true.
     case ('CHDG')
       integrated = .true.
     case ('CSUB')
       integrated = .true.
     case ('DIS')
       integrated = .true.
     case ('DISU')
       integrated = .true.
     case ('DISV')
       integrated = .true.
     case ('DRN')
       integrated = .true.
     case ('DRNG')
       integrated = .true.
     case ('EVT')
       integrated = .true.
     case ('EVTA')
       integrated = .true.
     case ('GHB')
       integrated = .true.
     case ('GHBG')
       integrated = .true.
     case ('HFB')
       integrated = .true.
     case ('IC')
       integrated = .true.
     case ('LAK')
       integrated = .true.
     case ('MAW')
       integrated = .true.
     case ('NPF')
       integrated = .true.
     case ('OC')
       integrated = .true.
     case ('RCH')
       integrated = .true.
     case ('RCHA')
       integrated = .true.
     case ('RIV')
       integrated = .true.
     case ('RIVG')
       integrated = .true.
     case ('SFR')
       integrated = .true.
     case ('STO')
       integrated = .true.
     case ('UZF')
       integrated = .true.
     case ('VSC')
       integrated = .true.
     case ('WEL')
       integrated = .true.
     case ('WELG')
       integrated = .true.
     case default
     end select
     return

Here is the caller graph for this function:

◆ gwf_idm_is_advanced()

logical function, public idmgwfdfnselectormodule::gwf_idm_is_advanced ( character(len=*), intent(in) subcomponent )

Definition at line 360 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     logical :: is_advanced
     select case (subcomponent)
     case ('NAM')
       is_advanced = gwf_nam_is_advanced
     case ('API')
       is_advanced = gwf_api_is_advanced
     case ('BUY')
       is_advanced = gwf_buy_is_advanced
     case ('CHD')
       is_advanced = gwf_chd_is_advanced
     case ('CHDG')
       is_advanced = gwf_chdg_is_advanced
     case ('CSUB')
       is_advanced = gwf_csub_is_advanced
     case ('DIS')
       is_advanced = gwf_dis_is_advanced
     case ('DISU')
       is_advanced = gwf_disu_is_advanced
     case ('DISV')
       is_advanced = gwf_disv_is_advanced
     case ('DRN')
       is_advanced = gwf_drn_is_advanced
     case ('DRNG')
       is_advanced = gwf_drng_is_advanced
     case ('EVT')
       is_advanced = gwf_evt_is_advanced
     case ('EVTA')
       is_advanced = gwf_evta_is_advanced
     case ('GHB')
       is_advanced = gwf_ghb_is_advanced
     case ('GHBG')
       is_advanced = gwf_ghbg_is_advanced
     case ('HFB')
       is_advanced = gwf_hfb_is_advanced
     case ('IC')
       is_advanced = gwf_ic_is_advanced
     case ('LAK')
       is_advanced = gwf_lak_is_advanced
     case ('MAW')
       is_advanced = gwf_maw_is_advanced
     case ('NPF')
       is_advanced = gwf_npf_is_advanced
     case ('OC')
       is_advanced = gwf_oc_is_advanced
     case ('RCH')
       is_advanced = gwf_rch_is_advanced
     case ('RCHA')
       is_advanced = gwf_rcha_is_advanced
     case ('RIV')
       is_advanced = gwf_riv_is_advanced
     case ('RIVG')
       is_advanced = gwf_rivg_is_advanced
     case ('SFR')
       is_advanced = gwf_sfr_is_advanced
     case ('STO')
       is_advanced = gwf_sto_is_advanced
     case ('UZF')
       is_advanced = gwf_uzf_is_advanced
     case ('VSC')
       is_advanced = gwf_vsc_is_advanced
     case ('WEL')
       is_advanced = gwf_wel_is_advanced
     case ('WELG')
       is_advanced = gwf_welg_is_advanced
     case default
       call store_error('Idm selector subcomponent not found; '//&
                        &'component="GWF"'//&
                        &', subcomponent="'//trim(subcomponent)//'".', .true.)
     end select
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ gwf_idm_multi_package()

logical function, public idmgwfdfnselectormodule::gwf_idm_multi_package ( character(len=*), intent(in) subcomponent )

Definition at line 286 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     logical :: multi_package
     select case (subcomponent)
     case ('NAM')
       multi_package = gwf_nam_multi_package
     case ('API')
       multi_package = gwf_api_multi_package
     case ('BUY')
       multi_package = gwf_buy_multi_package
     case ('CHD')
       multi_package = gwf_chd_multi_package
     case ('CHDG')
       multi_package = gwf_chdg_multi_package
     case ('CSUB')
       multi_package = gwf_csub_multi_package
     case ('DIS')
       multi_package = gwf_dis_multi_package
     case ('DISU')
       multi_package = gwf_disu_multi_package
     case ('DISV')
       multi_package = gwf_disv_multi_package
     case ('DRN')
       multi_package = gwf_drn_multi_package
     case ('DRNG')
       multi_package = gwf_drng_multi_package
     case ('EVT')
       multi_package = gwf_evt_multi_package
     case ('EVTA')
       multi_package = gwf_evta_multi_package
     case ('GHB')
       multi_package = gwf_ghb_multi_package
     case ('GHBG')
       multi_package = gwf_ghbg_multi_package
     case ('HFB')
       multi_package = gwf_hfb_multi_package
     case ('IC')
       multi_package = gwf_ic_multi_package
     case ('LAK')
       multi_package = gwf_lak_multi_package
     case ('MAW')
       multi_package = gwf_maw_multi_package
     case ('NPF')
       multi_package = gwf_npf_multi_package
     case ('OC')
       multi_package = gwf_oc_multi_package
     case ('RCH')
       multi_package = gwf_rch_multi_package
     case ('RCHA')
       multi_package = gwf_rcha_multi_package
     case ('RIV')
       multi_package = gwf_riv_multi_package
     case ('RIVG')
       multi_package = gwf_rivg_multi_package
     case ('SFR')
       multi_package = gwf_sfr_multi_package
     case ('STO')
       multi_package = gwf_sto_multi_package
     case ('UZF')
       multi_package = gwf_uzf_multi_package
     case ('VSC')
       multi_package = gwf_vsc_multi_package
     case ('WEL')
       multi_package = gwf_wel_multi_package
     case ('WELG')
       multi_package = gwf_welg_multi_package
     case default
       call store_error('Idm selector subcomponent not found; '//&
                        &'component="GWF"'//&
                        &', subcomponent="'//trim(subcomponent)//'".', .true.)
     end select
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ gwf_idm_subpackages()

character(len=16) function, dimension(:), pointer, public idmgwfdfnselectormodule::gwf_idm_subpackages ( character(len=*), intent(in) subcomponent )

Definition at line 434 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     character(len=16), dimension(:), pointer :: subpackages
     select case (subcomponent)
     case ('NAM')
       call set_subpkg_pointer(subpackages, gwf_nam_subpackages)
     case ('API')
       call set_subpkg_pointer(subpackages, gwf_api_subpackages)
     case ('BUY')
       call set_subpkg_pointer(subpackages, gwf_buy_subpackages)
     case ('CHD')
       call set_subpkg_pointer(subpackages, gwf_chd_subpackages)
     case ('CHDG')
       call set_subpkg_pointer(subpackages, gwf_chdg_subpackages)
     case ('CSUB')
       call set_subpkg_pointer(subpackages, gwf_csub_subpackages)
     case ('DIS')
       call set_subpkg_pointer(subpackages, gwf_dis_subpackages)
     case ('DISU')
       call set_subpkg_pointer(subpackages, gwf_disu_subpackages)
     case ('DISV')
       call set_subpkg_pointer(subpackages, gwf_disv_subpackages)
     case ('DRN')
       call set_subpkg_pointer(subpackages, gwf_drn_subpackages)
     case ('DRNG')
       call set_subpkg_pointer(subpackages, gwf_drng_subpackages)
     case ('EVT')
       call set_subpkg_pointer(subpackages, gwf_evt_subpackages)
     case ('EVTA')
       call set_subpkg_pointer(subpackages, gwf_evta_subpackages)
     case ('GHB')
       call set_subpkg_pointer(subpackages, gwf_ghb_subpackages)
     case ('GHBG')
       call set_subpkg_pointer(subpackages, gwf_ghbg_subpackages)
     case ('HFB')
       call set_subpkg_pointer(subpackages, gwf_hfb_subpackages)
     case ('IC')
       call set_subpkg_pointer(subpackages, gwf_ic_subpackages)
     case ('LAK')
       call set_subpkg_pointer(subpackages, gwf_lak_subpackages)
     case ('MAW')
       call set_subpkg_pointer(subpackages, gwf_maw_subpackages)
     case ('NPF')
       call set_subpkg_pointer(subpackages, gwf_npf_subpackages)
     case ('OC')
       call set_subpkg_pointer(subpackages, gwf_oc_subpackages)
     case ('RCH')
       call set_subpkg_pointer(subpackages, gwf_rch_subpackages)
     case ('RCHA')
       call set_subpkg_pointer(subpackages, gwf_rcha_subpackages)
     case ('RIV')
       call set_subpkg_pointer(subpackages, gwf_riv_subpackages)
     case ('RIVG')
       call set_subpkg_pointer(subpackages, gwf_rivg_subpackages)
     case ('SFR')
       call set_subpkg_pointer(subpackages, gwf_sfr_subpackages)
     case ('STO')
       call set_subpkg_pointer(subpackages, gwf_sto_subpackages)
     case ('UZF')
       call set_subpkg_pointer(subpackages, gwf_uzf_subpackages)
     case ('VSC')
       call set_subpkg_pointer(subpackages, gwf_vsc_subpackages)
     case ('WEL')
       call set_subpkg_pointer(subpackages, gwf_wel_subpackages)
     case ('WELG')
       call set_subpkg_pointer(subpackages, gwf_welg_subpackages)
     case default
     end select
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ gwf_param_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmgwfdfnselectormodule::gwf_param_definitions ( character(len=*), intent(in) subcomponent )

Definition at line 70 of file IdmGwfDfnSelector.f90.

     character(len=*), intent(in) :: subcomponent
     type(InputParamDefinitionType), dimension(:), pointer :: input_definition
     nullify (input_definition)
     select case (subcomponent)
     case ('NAM')
       call set_param_pointer(input_definition, gwf_nam_param_definitions)
     case ('API')
       call set_param_pointer(input_definition, gwf_api_param_definitions)
     case ('BUY')
       call set_param_pointer(input_definition, gwf_buy_param_definitions)
     case ('CHD')
       call set_param_pointer(input_definition, gwf_chd_param_definitions)
     case ('CHDG')
       call set_param_pointer(input_definition, gwf_chdg_param_definitions)
     case ('CSUB')
       call set_param_pointer(input_definition, gwf_csub_param_definitions)
     case ('DIS')
       call set_param_pointer(input_definition, gwf_dis_param_definitions)
     case ('DISU')
       call set_param_pointer(input_definition, gwf_disu_param_definitions)
     case ('DISV')
       call set_param_pointer(input_definition, gwf_disv_param_definitions)
     case ('DRN')
       call set_param_pointer(input_definition, gwf_drn_param_definitions)
     case ('DRNG')
       call set_param_pointer(input_definition, gwf_drng_param_definitions)
     case ('EVT')
       call set_param_pointer(input_definition, gwf_evt_param_definitions)
     case ('EVTA')
       call set_param_pointer(input_definition, gwf_evta_param_definitions)
     case ('GHB')
       call set_param_pointer(input_definition, gwf_ghb_param_definitions)
     case ('GHBG')
       call set_param_pointer(input_definition, gwf_ghbg_param_definitions)
     case ('HFB')
       call set_param_pointer(input_definition, gwf_hfb_param_definitions)
     case ('IC')
       call set_param_pointer(input_definition, gwf_ic_param_definitions)
     case ('LAK')
       call set_param_pointer(input_definition, gwf_lak_param_definitions)
     case ('MAW')
       call set_param_pointer(input_definition, gwf_maw_param_definitions)
     case ('NPF')
       call set_param_pointer(input_definition, gwf_npf_param_definitions)
     case ('OC')
       call set_param_pointer(input_definition, gwf_oc_param_definitions)
     case ('RCH')
       call set_param_pointer(input_definition, gwf_rch_param_definitions)
     case ('RCHA')
       call set_param_pointer(input_definition, gwf_rcha_param_definitions)
     case ('RIV')
       call set_param_pointer(input_definition, gwf_riv_param_definitions)
     case ('RIVG')
       call set_param_pointer(input_definition, gwf_rivg_param_definitions)
     case ('SFR')
       call set_param_pointer(input_definition, gwf_sfr_param_definitions)
     case ('STO')
       call set_param_pointer(input_definition, gwf_sto_param_definitions)
     case ('UZF')
       call set_param_pointer(input_definition, gwf_uzf_param_definitions)
     case ('VSC')
       call set_param_pointer(input_definition, gwf_vsc_param_definitions)
     case ('WEL')
       call set_param_pointer(input_definition, gwf_wel_param_definitions)
     case ('WELG')
       call set_param_pointer(input_definition, gwf_welg_param_definitions)
     case default
     end select
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ set_block_pointer()

subroutine idmgwfdfnselectormodule::set_block_pointer	(	type(inputblockdefinitiontype), dimension(:), pointer	input_dfn,
		type(inputblockdefinitiontype), dimension(:), target	input_dfn_target
	)

private

Definition at line 58 of file IdmGwfDfnSelector.f90.

     type(InputBlockDefinitionType), dimension(:), pointer :: input_dfn
     type(InputBlockDefinitionType), dimension(:), target :: input_dfn_target
     input_dfn => input_dfn_target

Here is the caller graph for this function:

◆ set_param_pointer()

subroutine idmgwfdfnselectormodule::set_param_pointer	(	type(inputparamdefinitiontype), dimension(:), pointer	input_dfn,
		type(inputparamdefinitiontype), dimension(:), target	input_dfn_target
	)

private

Definition at line 52 of file IdmGwfDfnSelector.f90.

     type(InputParamDefinitionType), dimension(:), pointer :: input_dfn
     type(InputParamDefinitionType), dimension(:), target :: input_dfn_target
     input_dfn => input_dfn_target

Here is the caller graph for this function:

◆ set_subpkg_pointer()

subroutine idmgwfdfnselectormodule::set_subpkg_pointer	(	character(len=16), dimension(:), pointer	subpkg_list,
		character(len=16), dimension(:), target	subpkg_list_target
	)

private

Definition at line 64 of file IdmGwfDfnSelector.f90.

     character(len=16), dimension(:), pointer :: subpkg_list
     character(len=16), dimension(:), target :: subpkg_list_target
     subpkg_list => subpkg_list_target

Here is the caller graph for this function:

Functions/Subroutines

Function/Subroutine Documentation

◆ gwf_aggregate_definitions()

◆ gwf_block_definitions()

◆ gwf_idm_integrated()

◆ gwf_idm_is_advanced()

◆ gwf_idm_multi_package()

◆ gwf_idm_subpackages()

◆ gwf_param_definitions()

◆ set_block_pointer()

◆ set_param_pointer()

◆ set_subpkg_pointer()