idmdfnselectormodule Module Reference

Functions/Subroutines
type(inputparamdefinitiontype) function, dimension(:), pointer, public	param_definitions (component, subcomponent)
type(inputparamdefinitiontype) function, dimension(:), pointer, public	aggregate_definitions (component, subcomponent)
type(inputblockdefinitiontype) function, dimension(:), pointer, public	block_definitions (component, subcomponent)
logical function, public	idm_multi_package (component, subcomponent)
logical function, public	idm_is_advanced (component, subcomponent)
character(len=16) function, dimension(:), pointer, public	idm_subpackages (component, subcomponent)
logical function, public	idm_integrated (component, subcomponent)
logical function, public	idm_component (component)

Function/Subroutine Documentation

aggregate_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmdfnselectormodule::aggregate_definitions	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 60 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    type(InputParamDefinitionType), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (component)
    case ('SIM')
      input_definition => sim_aggregate_definitions(subcomponent)
    case ('GWF')
      input_definition => gwf_aggregate_definitions(subcomponent)
    case ('GWT')
      input_definition => gwt_aggregate_definitions(subcomponent)
    case ('GWE')
      input_definition => gwe_aggregate_definitions(subcomponent)
    case ('CHF')
      input_definition => chf_aggregate_definitions(subcomponent)
    case ('OLF')
      input_definition => olf_aggregate_definitions(subcomponent)
    case ('PRT')
      input_definition => prt_aggregate_definitions(subcomponent)
    case ('EXG')
      input_definition => exg_aggregate_definitions(subcomponent)
    case ('UTL')
      input_definition => utl_aggregate_definitions(subcomponent)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

block_definitions()

type(inputblockdefinitiontype) function, dimension(:), pointer, public idmdfnselectormodule::block_definitions	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 89 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    type(InputBlockDefinitionType), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (component)
    case ('SIM')
      input_definition => sim_block_definitions(subcomponent)
    case ('GWF')
      input_definition => gwf_block_definitions(subcomponent)
    case ('GWT')
      input_definition => gwt_block_definitions(subcomponent)
    case ('GWE')
      input_definition => gwe_block_definitions(subcomponent)
    case ('CHF')
      input_definition => chf_block_definitions(subcomponent)
    case ('OLF')
      input_definition => olf_block_definitions(subcomponent)
    case ('PRT')
      input_definition => prt_block_definitions(subcomponent)
    case ('EXG')
      input_definition => exg_block_definitions(subcomponent)
    case ('UTL')
      input_definition => utl_block_definitions(subcomponent)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

idm_component()

logical function, public idmdfnselectormodule::idm_component

(

character(len=*), intent(in)

component

)

Definition at line 240 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    logical :: integrated
    integrated = .false.
    select case (component)
    case ('SIM')
      integrated = .true.
    case ('GWF')
      integrated = .true.
    case ('GWT')
      integrated = .true.
    case ('GWE')
      integrated = .true.
    case ('CHF')
      integrated = .true.
    case ('OLF')
      integrated = .true.
    case ('PRT')
      integrated = .true.
    case ('EXG')
      integrated = .true.
    case ('UTL')
      integrated = .true.
    case default
    end select
    return

Here is the caller graph for this function:

idm_integrated()

logical function, public idmdfnselectormodule::idm_integrated	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 211 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    logical :: integrated
    integrated = .false.
    select case (component)
    case ('SIM')
      integrated = sim_idm_integrated(subcomponent)
    case ('GWF')
      integrated = gwf_idm_integrated(subcomponent)
    case ('GWT')
      integrated = gwt_idm_integrated(subcomponent)
    case ('GWE')
      integrated = gwe_idm_integrated(subcomponent)
    case ('CHF')
      integrated = chf_idm_integrated(subcomponent)
    case ('OLF')
      integrated = olf_idm_integrated(subcomponent)
    case ('PRT')
      integrated = prt_idm_integrated(subcomponent)
    case ('EXG')
      integrated = exg_idm_integrated(subcomponent)
    case ('UTL')
      integrated = utl_idm_integrated(subcomponent)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

idm_is_advanced()

logical function, public idmdfnselectormodule::idm_is_advanced	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 149 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    logical :: is_advanced
    select case (component)
    case ('SIM')
      is_advanced = sim_idm_is_advanced(subcomponent)
    case ('GWF')
      is_advanced = gwf_idm_is_advanced(subcomponent)
    case ('GWT')
      is_advanced = gwt_idm_is_advanced(subcomponent)
    case ('GWE')
      is_advanced = gwe_idm_is_advanced(subcomponent)
    case ('CHF')
      is_advanced = chf_idm_is_advanced(subcomponent)
    case ('OLF')
      is_advanced = olf_idm_is_advanced(subcomponent)
    case ('PRT')
      is_advanced = prt_idm_is_advanced(subcomponent)
    case ('EXG')
      is_advanced = exg_idm_is_advanced(subcomponent)
    case ('UTL')
      is_advanced = utl_idm_is_advanced(subcomponent)
    case default
      call store_error('Idm selector component not found; '//&
                       &'component="'//trim(component)//&
                       &'", subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

idm_multi_package()

logical function, public idmdfnselectormodule::idm_multi_package	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 118 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    logical :: multi_package
    select case (component)
    case ('SIM')
      multi_package = sim_idm_multi_package(subcomponent)
    case ('GWF')
      multi_package = gwf_idm_multi_package(subcomponent)
    case ('GWT')
      multi_package = gwt_idm_multi_package(subcomponent)
    case ('GWE')
      multi_package = gwe_idm_multi_package(subcomponent)
    case ('CHF')
      multi_package = chf_idm_multi_package(subcomponent)
    case ('OLF')
      multi_package = olf_idm_multi_package(subcomponent)
    case ('PRT')
      multi_package = prt_idm_multi_package(subcomponent)
    case ('EXG')
      multi_package = exg_idm_multi_package(subcomponent)
    case ('UTL')
      multi_package = utl_idm_multi_package(subcomponent)
    case default
      call store_error('Idm selector component not found; '//&
                       &'component="'//trim(component)//&
                       &'", subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

idm_subpackages()

character(len=16) function, dimension(:), pointer, public idmdfnselectormodule::idm_subpackages	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 180 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    character(len=16), dimension(:), pointer :: subpackages
    select case (component)
    case ('SIM')
      subpackages => sim_idm_subpackages(subcomponent)
    case ('GWF')
      subpackages => gwf_idm_subpackages(subcomponent)
    case ('GWT')
      subpackages => gwt_idm_subpackages(subcomponent)
    case ('GWE')
      subpackages => gwe_idm_subpackages(subcomponent)
    case ('CHF')
      subpackages => chf_idm_subpackages(subcomponent)
    case ('OLF')
      subpackages => olf_idm_subpackages(subcomponent)
    case ('PRT')
      subpackages => prt_idm_subpackages(subcomponent)
    case ('EXG')
      subpackages => exg_idm_subpackages(subcomponent)
    case ('UTL')
      subpackages => utl_idm_subpackages(subcomponent)
    case default
      call store_error('Idm selector component not found; '//&
                       &'component="'//trim(component)//&
                       &'", subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

param_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmdfnselectormodule::param_definitions	(	character(len=*), intent(in)	component,
		character(len=*), intent(in)	subcomponent
	)

Definition at line 31 of file IdmDfnSelector.f90.

    character(len=*), intent(in) :: component
    character(len=*), intent(in) :: subcomponent
    type(InputParamDefinitionType), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (component)
    case ('SIM')
      input_definition => sim_param_definitions(subcomponent)
    case ('GWF')
      input_definition => gwf_param_definitions(subcomponent)
    case ('GWT')
      input_definition => gwt_param_definitions(subcomponent)
    case ('GWE')
      input_definition => gwe_param_definitions(subcomponent)
    case ('CHF')
      input_definition => chf_param_definitions(subcomponent)
    case ('OLF')
      input_definition => olf_param_definitions(subcomponent)
    case ('PRT')
      input_definition => prt_param_definitions(subcomponent)
    case ('EXG')
      input_definition => exg_param_definitions(subcomponent)
    case ('UTL')
      input_definition => utl_param_definitions(subcomponent)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function: