idmswfdfnselectormodule Module Reference

Functions/Subroutines
subroutine	set_param_pointer (input_dfn, input_dfn_target)
subroutine	set_block_pointer (input_dfn, input_dfn_target)
type(inputparamdefinitiontype) function, dimension(:), pointer, public	swf_param_definitions (subcomponent)
type(inputparamdefinitiontype) function, dimension(:), pointer, public	swf_aggregate_definitions (subcomponent)
type(inputblockdefinitiontype) function, dimension(:), pointer, public	swf_block_definitions (subcomponent)
logical function, public	swf_idm_multi_package (subcomponent)
logical function, public	swf_idm_integrated (subcomponent)

Function/Subroutine Documentation

set_block_pointer()

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

private

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

private

Definition at line 30 of file IdmSwfDfnSelector.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:

swf_aggregate_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmswfdfnselectormodule::swf_aggregate_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 74 of file IdmSwfDfnSelector.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, swf_nam_aggregate_definitions)
    case ('DISV1D')
      call set_param_pointer(input_definition, swf_disv1d_aggregate_definitions)
    case ('DIS2D')
      call set_param_pointer(input_definition, swf_dis2d_aggregate_definitions)
    case ('DISV2D')
      call set_param_pointer(input_definition, swf_disv2d_aggregate_definitions)
    case ('CXS')
      call set_param_pointer(input_definition, swf_cxs_aggregate_definitions)
    case ('DFW')
      call set_param_pointer(input_definition, swf_dfw_aggregate_definitions)
    case ('IC')
      call set_param_pointer(input_definition, swf_ic_aggregate_definitions)
    case ('CDB')
      call set_param_pointer(input_definition, swf_cdb_aggregate_definitions)
    case ('CHD')
      call set_param_pointer(input_definition, swf_chd_aggregate_definitions)
    case ('FLW')
      call set_param_pointer(input_definition, swf_flw_aggregate_definitions)
    case ('ZDG')
      call set_param_pointer(input_definition, swf_zdg_aggregate_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

swf_block_definitions()

type(inputblockdefinitiontype) function, dimension(:), pointer, public idmswfdfnselectormodule::swf_block_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 106 of file IdmSwfDfnSelector.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, swf_nam_block_definitions)
    case ('DISV1D')
      call set_block_pointer(input_definition, swf_disv1d_block_definitions)
    case ('DIS2D')
      call set_block_pointer(input_definition, swf_dis2d_block_definitions)
    case ('DISV2D')
      call set_block_pointer(input_definition, swf_disv2d_block_definitions)
    case ('CXS')
      call set_block_pointer(input_definition, swf_cxs_block_definitions)
    case ('DFW')
      call set_block_pointer(input_definition, swf_dfw_block_definitions)
    case ('IC')
      call set_block_pointer(input_definition, swf_ic_block_definitions)
    case ('CDB')
      call set_block_pointer(input_definition, swf_cdb_block_definitions)
    case ('CHD')
      call set_block_pointer(input_definition, swf_chd_block_definitions)
    case ('FLW')
      call set_block_pointer(input_definition, swf_flw_block_definitions)
    case ('ZDG')
      call set_block_pointer(input_definition, swf_zdg_block_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

swf_idm_integrated()

logical function, public idmswfdfnselectormodule::swf_idm_integrated

(

character(len=*), intent(in)

subcomponent

)

Definition at line 172 of file IdmSwfDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: integrated
    integrated = .false.
    select case (subcomponent)
    case ('NAM')
      integrated = .true.
    case ('DISV1D')
      integrated = .true.
    case ('DIS2D')
      integrated = .true.
    case ('DISV2D')
      integrated = .true.
    case ('CXS')
      integrated = .true.
    case ('DFW')
      integrated = .true.
    case ('IC')
      integrated = .true.
    case ('CDB')
      integrated = .true.
    case ('CHD')
      integrated = .true.
    case ('FLW')
      integrated = .true.
    case ('ZDG')
      integrated = .true.
    case default
    end select
    return

Here is the caller graph for this function:

swf_idm_multi_package()

logical function, public idmswfdfnselectormodule::swf_idm_multi_package

(

character(len=*), intent(in)

subcomponent

)

Definition at line 138 of file IdmSwfDfnSelector.f90.

    character(len=*), intent(in) :: subcomponent
    logical :: multi_package
    select case (subcomponent)
    case ('NAM')
      multi_package = swf_nam_multi_package
    case ('DISV1D')
      multi_package = swf_disv1d_multi_package
    case ('DIS2D')
      multi_package = swf_dis2d_multi_package
    case ('DISV2D')
      multi_package = swf_disv2d_multi_package
    case ('CXS')
      multi_package = swf_cxs_multi_package
    case ('DFW')
      multi_package = swf_dfw_multi_package
    case ('IC')
      multi_package = swf_ic_multi_package
    case ('CDB')
      multi_package = swf_cdb_multi_package
    case ('CHD')
      multi_package = swf_chd_multi_package
    case ('FLW')
      multi_package = swf_flw_multi_package
    case ('ZDG')
      multi_package = swf_zdg_multi_package
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="SWF"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function:

swf_param_definitions()

type(inputparamdefinitiontype) function, dimension(:), pointer, public idmswfdfnselectormodule::swf_param_definitions

(

character(len=*), intent(in)

subcomponent

)

Definition at line 42 of file IdmSwfDfnSelector.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, swf_nam_param_definitions)
    case ('DISV1D')
      call set_param_pointer(input_definition, swf_disv1d_param_definitions)
    case ('DIS2D')
      call set_param_pointer(input_definition, swf_dis2d_param_definitions)
    case ('DISV2D')
      call set_param_pointer(input_definition, swf_disv2d_param_definitions)
    case ('CXS')
      call set_param_pointer(input_definition, swf_cxs_param_definitions)
    case ('DFW')
      call set_param_pointer(input_definition, swf_dfw_param_definitions)
    case ('IC')
      call set_param_pointer(input_definition, swf_ic_param_definitions)
    case ('CDB')
      call set_param_pointer(input_definition, swf_cdb_param_definitions)
    case ('CHD')
      call set_param_pointer(input_definition, swf_chd_param_definitions)
    case ('FLW')
      call set_param_pointer(input_definition, swf_flw_param_definitions)
    case ('ZDG')
      call set_param_pointer(input_definition, swf_zdg_param_definitions)
    case default
    end select
    return

Here is the call graph for this function:

Here is the caller graph for this function: