IdmSwfDfnSelector.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module idmswfdfnselectormodule
 
  use constantsmodule, only: lenvarname
  use simmodule, only: store_error
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  use swfnaminputmodule
  use swfdisv1dinputmodule
  use swfdis2dinputmodule
  use swfdisv2dinputmodule
  use swfcxsinputmodule
  use swfdfwinputmodule
  use swficinputmodule
  use swfcdbinputmodule
  use swfchdinputmodule
  use swfflwinputmodule
  use swfstoinputmodule
  use swfzdginputmodule
 
  implicit none
  private
  public :: swf_param_definitions
  public :: swf_aggregate_definitions
  public :: swf_block_definitions
  public :: swf_idm_multi_package
  public :: swf_idm_subpackages
  public :: swf_idm_integrated
 
contains
 
  subroutine set_param_pointer(input_dfn, input_dfn_target)
    type(inputparamdefinitiontype), dimension(:), pointer :: input_dfn
    type(inputparamdefinitiontype), dimension(:), target :: input_dfn_target
    input_dfn => input_dfn_target
  end subroutine set_param_pointer
 
  subroutine set_block_pointer(input_dfn, input_dfn_target)
    type(inputblockdefinitiontype), dimension(:), pointer :: input_dfn
    type(inputblockdefinitiontype), dimension(:), target :: input_dfn_target
    input_dfn => input_dfn_target
  end subroutine set_block_pointer
 
  subroutine set_subpkg_pointer(subpkg_list, subpkg_list_target)
    character(len=16), dimension(:), pointer :: subpkg_list
    character(len=16), dimension(:), target :: subpkg_list_target
    subpkg_list => subpkg_list_target
  end subroutine set_subpkg_pointer
 
  function swf_param_definitions(subcomponent) result(input_definition)
    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 ('STO')
      call set_param_pointer(input_definition, swf_sto_param_definitions)
    case ('ZDG')
      call set_param_pointer(input_definition, swf_zdg_param_definitions)
    case default
    end select
    return
  end function swf_param_definitions
 
  function swf_aggregate_definitions(subcomponent) result(input_definition)
    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 ('STO')
      call set_param_pointer(input_definition, swf_sto_aggregate_definitions)
    case ('ZDG')
      call set_param_pointer(input_definition, swf_zdg_aggregate_definitions)
    case default
    end select
    return
  end function swf_aggregate_definitions
 
  function swf_block_definitions(subcomponent) result(input_definition)
    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 ('STO')
      call set_block_pointer(input_definition, swf_sto_block_definitions)
    case ('ZDG')
      call set_block_pointer(input_definition, swf_zdg_block_definitions)
    case default
    end select
    return
  end function swf_block_definitions
 
  function swf_idm_multi_package(subcomponent) result(multi_package)
    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 ('STO')
      multi_package = swf_sto_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
  end function swf_idm_multi_package
 
  function swf_idm_subpackages(subcomponent) result(subpackages)
    character(len=*), intent(in) :: subcomponent
    character(len=16), dimension(:), pointer :: subpackages
    select case (subcomponent)
    case ('NAM')
      call set_subpkg_pointer(subpackages, swf_nam_subpackages)
    case ('DISV1D')
      call set_subpkg_pointer(subpackages, swf_disv1d_subpackages)
    case ('DIS2D')
      call set_subpkg_pointer(subpackages, swf_dis2d_subpackages)
    case ('DISV2D')
      call set_subpkg_pointer(subpackages, swf_disv2d_subpackages)
    case ('CXS')
      call set_subpkg_pointer(subpackages, swf_cxs_subpackages)
    case ('DFW')
      call set_subpkg_pointer(subpackages, swf_dfw_subpackages)
    case ('IC')
      call set_subpkg_pointer(subpackages, swf_ic_subpackages)
    case ('CDB')
      call set_subpkg_pointer(subpackages, swf_cdb_subpackages)
    case ('CHD')
      call set_subpkg_pointer(subpackages, swf_chd_subpackages)
    case ('FLW')
      call set_subpkg_pointer(subpackages, swf_flw_subpackages)
    case ('STO')
      call set_subpkg_pointer(subpackages, swf_sto_subpackages)
    case ('ZDG')
      call set_subpkg_pointer(subpackages, swf_zdg_subpackages)
    case default
    end select
    return
  end function swf_idm_subpackages
 
  function swf_idm_integrated(subcomponent) result(integrated)
    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 ('STO')
      integrated = .true.
    case ('ZDG')
      integrated = .true.
    case default
    end select
    return
  end function swf_idm_integrated
 
end module idmswfdfnselectormodule