idmgwedfnselectormodule Module Reference

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	gwe_param_definitions (subcomponent)
type(inputparamdefinitiontype) function, dimension(:), pointer, public	gwe_aggregate_definitions (subcomponent)
type(inputblockdefinitiontype) function, dimension(:), pointer, public	gwe_block_definitions (subcomponent)
logical function, public	gwe_idm_multi_package (subcomponent)
logical function, public	gwe_idm_is_advanced (subcomponent)
character(len=16) function, dimension(:), pointer, public	gwe_idm_subpackages (subcomponent)
logical function, public	gwe_idm_integrated (subcomponent)

Function/Subroutine Documentation

gwe_aggregate_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmgwedfnselectormodule::gwe_aggregate_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 100 of file IdmGweDfnSelector.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, gwe_nam_aggregate_definitions)
    case ('ADV')
      call set_param_pointer(input_definition, gwe_adv_aggregate_definitions)
    case ('CTP')
      call set_param_pointer(input_definition, gwe_ctp_aggregate_definitions)
    case ('CND')
      call set_param_pointer(input_definition, gwe_cnd_aggregate_definitions)
    case ('DISV')
      call set_param_pointer(input_definition, gwe_disv_aggregate_definitions)
    case ('DISU')
      call set_param_pointer(input_definition, gwe_disu_aggregate_definitions)
    case ('DIS')
      call set_param_pointer(input_definition, gwe_dis_aggregate_definitions)
    case ('ESL')
      call set_param_pointer(input_definition, gwe_esl_aggregate_definitions)
    case ('EST')
      call set_param_pointer(input_definition, gwe_est_aggregate_definitions)
    case ('FMI')
      call set_param_pointer(input_definition, gwe_fmi_aggregate_definitions)
    case ('IC')
      call set_param_pointer(input_definition, gwe_ic_aggregate_definitions)
    case ('LKE')
      call set_param_pointer(input_definition, gwe_lke_aggregate_definitions)
    case ('MWE')
      call set_param_pointer(input_definition, gwe_mwe_aggregate_definitions)
    case ('OC')
      call set_param_pointer(input_definition, gwe_oc_aggregate_definitions)
    case ('SFE')
      call set_param_pointer(input_definition, gwe_sfe_aggregate_definitions)
    case ('SSM')
      call set_param_pointer(input_definition, gwe_ssm_aggregate_definitions)
    case ('UZE')
      call set_param_pointer(input_definition, gwe_uze_aggregate_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

gwe_block_definitions()

type(inputblockdefinitiontype) function, dimension(:), pointer, public idmgwedfnselectormodule::gwe_block_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 144 of file IdmGweDfnSelector.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, gwe_nam_block_definitions)
    case ('ADV')
      call set_block_pointer(input_definition, gwe_adv_block_definitions)
    case ('CTP')
      call set_block_pointer(input_definition, gwe_ctp_block_definitions)
    case ('CND')
      call set_block_pointer(input_definition, gwe_cnd_block_definitions)
    case ('DISV')
      call set_block_pointer(input_definition, gwe_disv_block_definitions)
    case ('DISU')
      call set_block_pointer(input_definition, gwe_disu_block_definitions)
    case ('DIS')
      call set_block_pointer(input_definition, gwe_dis_block_definitions)
    case ('ESL')
      call set_block_pointer(input_definition, gwe_esl_block_definitions)
    case ('EST')
      call set_block_pointer(input_definition, gwe_est_block_definitions)
    case ('FMI')
      call set_block_pointer(input_definition, gwe_fmi_block_definitions)
    case ('IC')
      call set_block_pointer(input_definition, gwe_ic_block_definitions)
    case ('LKE')
      call set_block_pointer(input_definition, gwe_lke_block_definitions)
    case ('MWE')
      call set_block_pointer(input_definition, gwe_mwe_block_definitions)
    case ('OC')
      call set_block_pointer(input_definition, gwe_oc_block_definitions)
    case ('SFE')
      call set_block_pointer(input_definition, gwe_sfe_block_definitions)
    case ('SSM')
      call set_block_pointer(input_definition, gwe_ssm_block_definitions)
    case ('UZE')
      call set_block_pointer(input_definition, gwe_uze_block_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

gwe_idm_integrated()

logical function, public idmgwedfnselectormodule::gwe_idm_integrated

(

character(len=*), intent(in)

subcomponent

)

Definition at line 323 of file IdmGweDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: integrated
    integrated = .false.
    select case (subcomponent)
    case ('NAM')
      integrated = .true.
    case ('ADV')
      integrated = .true.
    case ('CTP')
      integrated = .true.
    case ('CND')
      integrated = .true.
    case ('DISV')
      integrated = .true.
    case ('DISU')
      integrated = .true.
    case ('DIS')
      integrated = .true.
    case ('ESL')
      integrated = .true.
    case ('EST')
      integrated = .true.
    case ('FMI')
      integrated = .true.
    case ('IC')
      integrated = .true.
    case ('LKE')
      integrated = .true.
    case ('MWE')
      integrated = .true.
    case ('OC')
      integrated = .true.
    case ('SFE')
      integrated = .true.
    case ('SSM')
      integrated = .true.
    case ('UZE')
      integrated = .true.
    case default
    end select
    return

Here is the caller graph for this function:

gwe_idm_is_advanced()

logical function, public idmgwedfnselectormodule::gwe_idm_is_advanced

(

character(len=*), intent(in)

subcomponent

)

Definition at line 234 of file IdmGweDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: is_advanced
    select case (subcomponent)
    case ('NAM')
      is_advanced = gwe_nam_is_advanced
    case ('ADV')
      is_advanced = gwe_adv_is_advanced
    case ('CTP')
      is_advanced = gwe_ctp_is_advanced
    case ('CND')
      is_advanced = gwe_cnd_is_advanced
    case ('DISV')
      is_advanced = gwe_disv_is_advanced
    case ('DISU')
      is_advanced = gwe_disu_is_advanced
    case ('DIS')
      is_advanced = gwe_dis_is_advanced
    case ('ESL')
      is_advanced = gwe_esl_is_advanced
    case ('EST')
      is_advanced = gwe_est_is_advanced
    case ('FMI')
      is_advanced = gwe_fmi_is_advanced
    case ('IC')
      is_advanced = gwe_ic_is_advanced
    case ('LKE')
      is_advanced = gwe_lke_is_advanced
    case ('MWE')
      is_advanced = gwe_mwe_is_advanced
    case ('OC')
      is_advanced = gwe_oc_is_advanced
    case ('SFE')
      is_advanced = gwe_sfe_is_advanced
    case ('SSM')
      is_advanced = gwe_ssm_is_advanced
    case ('UZE')
      is_advanced = gwe_uze_is_advanced
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="GWE"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

gwe_idm_multi_package()

logical function, public idmgwedfnselectormodule::gwe_idm_multi_package

(

character(len=*), intent(in)

subcomponent

)

Definition at line 188 of file IdmGweDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: multi_package
    select case (subcomponent)
    case ('NAM')
      multi_package = gwe_nam_multi_package
    case ('ADV')
      multi_package = gwe_adv_multi_package
    case ('CTP')
      multi_package = gwe_ctp_multi_package
    case ('CND')
      multi_package = gwe_cnd_multi_package
    case ('DISV')
      multi_package = gwe_disv_multi_package
    case ('DISU')
      multi_package = gwe_disu_multi_package
    case ('DIS')
      multi_package = gwe_dis_multi_package
    case ('ESL')
      multi_package = gwe_esl_multi_package
    case ('EST')
      multi_package = gwe_est_multi_package
    case ('FMI')
      multi_package = gwe_fmi_multi_package
    case ('IC')
      multi_package = gwe_ic_multi_package
    case ('LKE')
      multi_package = gwe_lke_multi_package
    case ('MWE')
      multi_package = gwe_mwe_multi_package
    case ('OC')
      multi_package = gwe_oc_multi_package
    case ('SFE')
      multi_package = gwe_sfe_multi_package
    case ('SSM')
      multi_package = gwe_ssm_multi_package
    case ('UZE')
      multi_package = gwe_uze_multi_package
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="GWE"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

gwe_idm_subpackages()

character(len=16) function, dimension(:), pointer, public idmgwedfnselectormodule::gwe_idm_subpackages

(

character(len=*), intent(in)

subcomponent

)

Definition at line 280 of file IdmGweDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    character(len=16), dimension(:), pointer :: subpackages
    select case (subcomponent)
    case ('NAM')
      call set_subpkg_pointer(subpackages, gwe_nam_subpackages)
    case ('ADV')
      call set_subpkg_pointer(subpackages, gwe_adv_subpackages)
    case ('CTP')
      call set_subpkg_pointer(subpackages, gwe_ctp_subpackages)
    case ('CND')
      call set_subpkg_pointer(subpackages, gwe_cnd_subpackages)
    case ('DISV')
      call set_subpkg_pointer(subpackages, gwe_disv_subpackages)
    case ('DISU')
      call set_subpkg_pointer(subpackages, gwe_disu_subpackages)
    case ('DIS')
      call set_subpkg_pointer(subpackages, gwe_dis_subpackages)
    case ('ESL')
      call set_subpkg_pointer(subpackages, gwe_esl_subpackages)
    case ('EST')
      call set_subpkg_pointer(subpackages, gwe_est_subpackages)
    case ('FMI')
      call set_subpkg_pointer(subpackages, gwe_fmi_subpackages)
    case ('IC')
      call set_subpkg_pointer(subpackages, gwe_ic_subpackages)
    case ('LKE')
      call set_subpkg_pointer(subpackages, gwe_lke_subpackages)
    case ('MWE')
      call set_subpkg_pointer(subpackages, gwe_mwe_subpackages)
    case ('OC')
      call set_subpkg_pointer(subpackages, gwe_oc_subpackages)
    case ('SFE')
      call set_subpkg_pointer(subpackages, gwe_sfe_subpackages)
    case ('SSM')
      call set_subpkg_pointer(subpackages, gwe_ssm_subpackages)
    case ('UZE')
      call set_subpkg_pointer(subpackages, gwe_uze_subpackages)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

gwe_param_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmgwedfnselectormodule::gwe_param_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 56 of file IdmGweDfnSelector.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, gwe_nam_param_definitions)
    case ('ADV')
      call set_param_pointer(input_definition, gwe_adv_param_definitions)
    case ('CTP')
      call set_param_pointer(input_definition, gwe_ctp_param_definitions)
    case ('CND')
      call set_param_pointer(input_definition, gwe_cnd_param_definitions)
    case ('DISV')
      call set_param_pointer(input_definition, gwe_disv_param_definitions)
    case ('DISU')
      call set_param_pointer(input_definition, gwe_disu_param_definitions)
    case ('DIS')
      call set_param_pointer(input_definition, gwe_dis_param_definitions)
    case ('ESL')
      call set_param_pointer(input_definition, gwe_esl_param_definitions)
    case ('EST')
      call set_param_pointer(input_definition, gwe_est_param_definitions)
    case ('FMI')
      call set_param_pointer(input_definition, gwe_fmi_param_definitions)
    case ('IC')
      call set_param_pointer(input_definition, gwe_ic_param_definitions)
    case ('LKE')
      call set_param_pointer(input_definition, gwe_lke_param_definitions)
    case ('MWE')
      call set_param_pointer(input_definition, gwe_mwe_param_definitions)
    case ('OC')
      call set_param_pointer(input_definition, gwe_oc_param_definitions)
    case ('SFE')
      call set_param_pointer(input_definition, gwe_sfe_param_definitions)
    case ('SSM')
      call set_param_pointer(input_definition, gwe_ssm_param_definitions)
    case ('UZE')
      call set_param_pointer(input_definition, gwe_uze_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 idmgwedfnselectormodule::set_block_pointer ( type(inputblockdefinitiontype), dimension(:), pointer  input_dfn, type(inputblockdefinitiontype), dimension(:), target  input_dfn_target  )

private

Definition at line 44 of file IdmGweDfnSelector.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 idmgwedfnselectormodule::set_param_pointer ( type(inputparamdefinitiontype), dimension(:), pointer  input_dfn, type(inputparamdefinitiontype), dimension(:), target  input_dfn_target  )

private

Definition at line 38 of file IdmGweDfnSelector.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 idmgwedfnselectormodule::set_subpkg_pointer ( character(len=16), dimension(:), pointer  subpkg_list, character(len=16), dimension(:), target  subpkg_list_target  )

private

Definition at line 50 of file IdmGweDfnSelector.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: