IdmGwtDfnSelector.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module idmgwtdfnselectormodule
 
  use constantsmodule, only: lenvarname
  use simmodule, only: store_error
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  use gwtnaminputmodule
  use gwtadvinputmodule
  use gwtapiinputmodule
  use gwtdisinputmodule
  use gwtdisuinputmodule
  use gwtdisvinputmodule
  use gwtdspinputmodule
  use gwtcncinputmodule
  use gwtfmiinputmodule
  use gwticinputmodule
  use gwtistinputmodule
  use gwtlktinputmodule
  use gwtmstinputmodule
  use gwtmwtinputmodule
  use gwtocinputmodule
  use gwtsftinputmodule
  use gwtsrcinputmodule
  use gwtssminputmodule
  use gwtuztinputmodule
 
  implicit none
  private
  public :: gwt_param_definitions
  public :: gwt_aggregate_definitions
  public :: gwt_block_definitions
  public :: gwt_idm_multi_package
  public :: gwt_idm_is_advanced
  public :: gwt_idm_subpackages
  public :: gwt_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 gwt_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, gwt_nam_param_definitions)
    case ('ADV')
      call set_param_pointer(input_definition, gwt_adv_param_definitions)
    case ('API')
      call set_param_pointer(input_definition, gwt_api_param_definitions)
    case ('DIS')
      call set_param_pointer(input_definition, gwt_dis_param_definitions)
    case ('DISU')
      call set_param_pointer(input_definition, gwt_disu_param_definitions)
    case ('DISV')
      call set_param_pointer(input_definition, gwt_disv_param_definitions)
    case ('DSP')
      call set_param_pointer(input_definition, gwt_dsp_param_definitions)
    case ('CNC')
      call set_param_pointer(input_definition, gwt_cnc_param_definitions)
    case ('FMI')
      call set_param_pointer(input_definition, gwt_fmi_param_definitions)
    case ('IC')
      call set_param_pointer(input_definition, gwt_ic_param_definitions)
    case ('IST')
      call set_param_pointer(input_definition, gwt_ist_param_definitions)
    case ('LKT')
      call set_param_pointer(input_definition, gwt_lkt_param_definitions)
    case ('MST')
      call set_param_pointer(input_definition, gwt_mst_param_definitions)
    case ('MWT')
      call set_param_pointer(input_definition, gwt_mwt_param_definitions)
    case ('OC')
      call set_param_pointer(input_definition, gwt_oc_param_definitions)
    case ('SFT')
      call set_param_pointer(input_definition, gwt_sft_param_definitions)
    case ('SRC')
      call set_param_pointer(input_definition, gwt_src_param_definitions)
    case ('SSM')
      call set_param_pointer(input_definition, gwt_ssm_param_definitions)
    case ('UZT')
      call set_param_pointer(input_definition, gwt_uzt_param_definitions)
    case default
    end select
    return
  end function gwt_param_definitions
 
  function gwt_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, gwt_nam_aggregate_definitions)
    case ('ADV')
      call set_param_pointer(input_definition, gwt_adv_aggregate_definitions)
    case ('API')
      call set_param_pointer(input_definition, gwt_api_aggregate_definitions)
    case ('DIS')
      call set_param_pointer(input_definition, gwt_dis_aggregate_definitions)
    case ('DISU')
      call set_param_pointer(input_definition, gwt_disu_aggregate_definitions)
    case ('DISV')
      call set_param_pointer(input_definition, gwt_disv_aggregate_definitions)
    case ('DSP')
      call set_param_pointer(input_definition, gwt_dsp_aggregate_definitions)
    case ('CNC')
      call set_param_pointer(input_definition, gwt_cnc_aggregate_definitions)
    case ('FMI')
      call set_param_pointer(input_definition, gwt_fmi_aggregate_definitions)
    case ('IC')
      call set_param_pointer(input_definition, gwt_ic_aggregate_definitions)
    case ('IST')
      call set_param_pointer(input_definition, gwt_ist_aggregate_definitions)
    case ('LKT')
      call set_param_pointer(input_definition, gwt_lkt_aggregate_definitions)
    case ('MST')
      call set_param_pointer(input_definition, gwt_mst_aggregate_definitions)
    case ('MWT')
      call set_param_pointer(input_definition, gwt_mwt_aggregate_definitions)
    case ('OC')
      call set_param_pointer(input_definition, gwt_oc_aggregate_definitions)
    case ('SFT')
      call set_param_pointer(input_definition, gwt_sft_aggregate_definitions)
    case ('SRC')
      call set_param_pointer(input_definition, gwt_src_aggregate_definitions)
    case ('SSM')
      call set_param_pointer(input_definition, gwt_ssm_aggregate_definitions)
    case ('UZT')
      call set_param_pointer(input_definition, gwt_uzt_aggregate_definitions)
    case default
    end select
    return
  end function gwt_aggregate_definitions
 
  function gwt_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, gwt_nam_block_definitions)
    case ('ADV')
      call set_block_pointer(input_definition, gwt_adv_block_definitions)
    case ('API')
      call set_block_pointer(input_definition, gwt_api_block_definitions)
    case ('DIS')
      call set_block_pointer(input_definition, gwt_dis_block_definitions)
    case ('DISU')
      call set_block_pointer(input_definition, gwt_disu_block_definitions)
    case ('DISV')
      call set_block_pointer(input_definition, gwt_disv_block_definitions)
    case ('DSP')
      call set_block_pointer(input_definition, gwt_dsp_block_definitions)
    case ('CNC')
      call set_block_pointer(input_definition, gwt_cnc_block_definitions)
    case ('FMI')
      call set_block_pointer(input_definition, gwt_fmi_block_definitions)
    case ('IC')
      call set_block_pointer(input_definition, gwt_ic_block_definitions)
    case ('IST')
      call set_block_pointer(input_definition, gwt_ist_block_definitions)
    case ('LKT')
      call set_block_pointer(input_definition, gwt_lkt_block_definitions)
    case ('MST')
      call set_block_pointer(input_definition, gwt_mst_block_definitions)
    case ('MWT')
      call set_block_pointer(input_definition, gwt_mwt_block_definitions)
    case ('OC')
      call set_block_pointer(input_definition, gwt_oc_block_definitions)
    case ('SFT')
      call set_block_pointer(input_definition, gwt_sft_block_definitions)
    case ('SRC')
      call set_block_pointer(input_definition, gwt_src_block_definitions)
    case ('SSM')
      call set_block_pointer(input_definition, gwt_ssm_block_definitions)
    case ('UZT')
      call set_block_pointer(input_definition, gwt_uzt_block_definitions)
    case default
    end select
    return
  end function gwt_block_definitions
 
  function gwt_idm_multi_package(subcomponent) result(multi_package)
    character(len=*), intent(in) :: subcomponent
    logical :: multi_package
    select case (subcomponent)
    case ('NAM')
      multi_package = gwt_nam_multi_package
    case ('ADV')
      multi_package = gwt_adv_multi_package
    case ('API')
      multi_package = gwt_api_multi_package
    case ('DIS')
      multi_package = gwt_dis_multi_package
    case ('DISU')
      multi_package = gwt_disu_multi_package
    case ('DISV')
      multi_package = gwt_disv_multi_package
    case ('DSP')
      multi_package = gwt_dsp_multi_package
    case ('CNC')
      multi_package = gwt_cnc_multi_package
    case ('FMI')
      multi_package = gwt_fmi_multi_package
    case ('IC')
      multi_package = gwt_ic_multi_package
    case ('IST')
      multi_package = gwt_ist_multi_package
    case ('LKT')
      multi_package = gwt_lkt_multi_package
    case ('MST')
      multi_package = gwt_mst_multi_package
    case ('MWT')
      multi_package = gwt_mwt_multi_package
    case ('OC')
      multi_package = gwt_oc_multi_package
    case ('SFT')
      multi_package = gwt_sft_multi_package
    case ('SRC')
      multi_package = gwt_src_multi_package
    case ('SSM')
      multi_package = gwt_ssm_multi_package
    case ('UZT')
      multi_package = gwt_uzt_multi_package
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="GWT"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return
  end function gwt_idm_multi_package
 
  function gwt_idm_is_advanced(subcomponent) result(is_advanced)
    character(len=*), intent(in) :: subcomponent
    logical :: is_advanced
    select case (subcomponent)
    case ('NAM')
      is_advanced = gwt_nam_is_advanced
    case ('ADV')
      is_advanced = gwt_adv_is_advanced
    case ('API')
      is_advanced = gwt_api_is_advanced
    case ('DIS')
      is_advanced = gwt_dis_is_advanced
    case ('DISU')
      is_advanced = gwt_disu_is_advanced
    case ('DISV')
      is_advanced = gwt_disv_is_advanced
    case ('DSP')
      is_advanced = gwt_dsp_is_advanced
    case ('CNC')
      is_advanced = gwt_cnc_is_advanced
    case ('FMI')
      is_advanced = gwt_fmi_is_advanced
    case ('IC')
      is_advanced = gwt_ic_is_advanced
    case ('IST')
      is_advanced = gwt_ist_is_advanced
    case ('LKT')
      is_advanced = gwt_lkt_is_advanced
    case ('MST')
      is_advanced = gwt_mst_is_advanced
    case ('MWT')
      is_advanced = gwt_mwt_is_advanced
    case ('OC')
      is_advanced = gwt_oc_is_advanced
    case ('SFT')
      is_advanced = gwt_sft_is_advanced
    case ('SRC')
      is_advanced = gwt_src_is_advanced
    case ('SSM')
      is_advanced = gwt_ssm_is_advanced
    case ('UZT')
      is_advanced = gwt_uzt_is_advanced
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="GWT"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return
  end function gwt_idm_is_advanced
 
  function gwt_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, gwt_nam_subpackages)
    case ('ADV')
      call set_subpkg_pointer(subpackages, gwt_adv_subpackages)
    case ('API')
      call set_subpkg_pointer(subpackages, gwt_api_subpackages)
    case ('DIS')
      call set_subpkg_pointer(subpackages, gwt_dis_subpackages)
    case ('DISU')
      call set_subpkg_pointer(subpackages, gwt_disu_subpackages)
    case ('DISV')
      call set_subpkg_pointer(subpackages, gwt_disv_subpackages)
    case ('DSP')
      call set_subpkg_pointer(subpackages, gwt_dsp_subpackages)
    case ('CNC')
      call set_subpkg_pointer(subpackages, gwt_cnc_subpackages)
    case ('FMI')
      call set_subpkg_pointer(subpackages, gwt_fmi_subpackages)
    case ('IC')
      call set_subpkg_pointer(subpackages, gwt_ic_subpackages)
    case ('IST')
      call set_subpkg_pointer(subpackages, gwt_ist_subpackages)
    case ('LKT')
      call set_subpkg_pointer(subpackages, gwt_lkt_subpackages)
    case ('MST')
      call set_subpkg_pointer(subpackages, gwt_mst_subpackages)
    case ('MWT')
      call set_subpkg_pointer(subpackages, gwt_mwt_subpackages)
    case ('OC')
      call set_subpkg_pointer(subpackages, gwt_oc_subpackages)
    case ('SFT')
      call set_subpkg_pointer(subpackages, gwt_sft_subpackages)
    case ('SRC')
      call set_subpkg_pointer(subpackages, gwt_src_subpackages)
    case ('SSM')
      call set_subpkg_pointer(subpackages, gwt_ssm_subpackages)
    case ('UZT')
      call set_subpkg_pointer(subpackages, gwt_uzt_subpackages)
    case default
    end select
    return
  end function gwt_idm_subpackages
 
  function gwt_idm_integrated(subcomponent) result(integrated)
    character(len=*), intent(in) :: subcomponent
    logical :: integrated
    integrated = .false.
    select case (subcomponent)
    case ('NAM')
      integrated = .true.
    case ('ADV')
      integrated = .true.
    case ('API')
      integrated = .true.
    case ('DIS')
      integrated = .true.
    case ('DISU')
      integrated = .true.
    case ('DISV')
      integrated = .true.
    case ('DSP')
      integrated = .true.
    case ('CNC')
      integrated = .true.
    case ('FMI')
      integrated = .true.
    case ('IC')
      integrated = .true.
    case ('IST')
      integrated = .true.
    case ('LKT')
      integrated = .true.
    case ('MST')
      integrated = .true.
    case ('MWT')
      integrated = .true.
    case ('OC')
      integrated = .true.
    case ('SFT')
      integrated = .true.
    case ('SRC')
      integrated = .true.
    case ('SSM')
      integrated = .true.
    case ('UZT')
      integrated = .true.
    case default
    end select
    return
  end function gwt_idm_integrated
 
end module idmgwtdfnselectormodule