IdmUtlDfnSelector.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module idmutldfnselectormodule
 
  use constantsmodule, only: lenvarname
  use simmodule, only: store_error
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  use utlhpcinputmodule
  use utllaktabinputmodule
  use utlncfinputmodule
  use utlsfrtabinputmodule
  use utltvkinputmodule
  use utltvsinputmodule
  use utlspcinputmodule
  use utlspcainputmodule
 
  implicit none
  private
  public :: utl_param_definitions
  public :: utl_aggregate_definitions
  public :: utl_block_definitions
  public :: utl_idm_multi_package
  public :: utl_idm_is_advanced
  public :: utl_idm_subpackages
  public :: utl_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 utl_param_definitions(subcomponent) result(input_definition)
    character(len=*), intent(in) :: subcomponent
    type(inputparamdefinitiontype), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (subcomponent)
    case ('HPC')
      call set_param_pointer(input_definition, utl_hpc_param_definitions)
    case ('LAKTAB')
      call set_param_pointer(input_definition, utl_laktab_param_definitions)
    case ('NCF')
      call set_param_pointer(input_definition, utl_ncf_param_definitions)
    case ('SFRTAB')
      call set_param_pointer(input_definition, utl_sfrtab_param_definitions)
    case ('TVK')
      call set_param_pointer(input_definition, utl_tvk_param_definitions)
    case ('TVS')
      call set_param_pointer(input_definition, utl_tvs_param_definitions)
    case ('SPC')
      call set_param_pointer(input_definition, utl_spc_param_definitions)
    case ('SPCA')
      call set_param_pointer(input_definition, utl_spca_param_definitions)
    case default
    end select
    return
  end function utl_param_definitions
 
  function utl_aggregate_definitions(subcomponent) result(input_definition)
    character(len=*), intent(in) :: subcomponent
    type(inputparamdefinitiontype), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (subcomponent)
    case ('HPC')
      call set_param_pointer(input_definition, utl_hpc_aggregate_definitions)
    case ('LAKTAB')
      call set_param_pointer(input_definition, utl_laktab_aggregate_definitions)
    case ('NCF')
      call set_param_pointer(input_definition, utl_ncf_aggregate_definitions)
    case ('SFRTAB')
      call set_param_pointer(input_definition, utl_sfrtab_aggregate_definitions)
    case ('TVK')
      call set_param_pointer(input_definition, utl_tvk_aggregate_definitions)
    case ('TVS')
      call set_param_pointer(input_definition, utl_tvs_aggregate_definitions)
    case ('SPC')
      call set_param_pointer(input_definition, utl_spc_aggregate_definitions)
    case ('SPCA')
      call set_param_pointer(input_definition, utl_spca_aggregate_definitions)
    case default
    end select
    return
  end function utl_aggregate_definitions
 
  function utl_block_definitions(subcomponent) result(input_definition)
    character(len=*), intent(in) :: subcomponent
    type(inputblockdefinitiontype), dimension(:), pointer :: input_definition
    nullify (input_definition)
    select case (subcomponent)
    case ('HPC')
      call set_block_pointer(input_definition, utl_hpc_block_definitions)
    case ('LAKTAB')
      call set_block_pointer(input_definition, utl_laktab_block_definitions)
    case ('NCF')
      call set_block_pointer(input_definition, utl_ncf_block_definitions)
    case ('SFRTAB')
      call set_block_pointer(input_definition, utl_sfrtab_block_definitions)
    case ('TVK')
      call set_block_pointer(input_definition, utl_tvk_block_definitions)
    case ('TVS')
      call set_block_pointer(input_definition, utl_tvs_block_definitions)
    case ('SPC')
      call set_block_pointer(input_definition, utl_spc_block_definitions)
    case ('SPCA')
      call set_block_pointer(input_definition, utl_spca_block_definitions)
    case default
    end select
    return
  end function utl_block_definitions
 
  function utl_idm_multi_package(subcomponent) result(multi_package)
    character(len=*), intent(in) :: subcomponent
    logical :: multi_package
    select case (subcomponent)
    case ('HPC')
      multi_package = utl_hpc_multi_package
    case ('LAKTAB')
      multi_package = utl_laktab_multi_package
    case ('NCF')
      multi_package = utl_ncf_multi_package
    case ('SFRTAB')
      multi_package = utl_sfrtab_multi_package
    case ('TVK')
      multi_package = utl_tvk_multi_package
    case ('TVS')
      multi_package = utl_tvs_multi_package
    case ('SPC')
      multi_package = utl_spc_multi_package
    case ('SPCA')
      multi_package = utl_spca_multi_package
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="UTL"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return
  end function utl_idm_multi_package
 
  function utl_idm_is_advanced(subcomponent) result(is_advanced)
    character(len=*), intent(in) :: subcomponent
    logical :: is_advanced
    select case (subcomponent)
    case ('HPC')
      is_advanced = utl_hpc_is_advanced
    case ('LAKTAB')
      is_advanced = utl_laktab_is_advanced
    case ('NCF')
      is_advanced = utl_ncf_is_advanced
    case ('SFRTAB')
      is_advanced = utl_sfrtab_is_advanced
    case ('TVK')
      is_advanced = utl_tvk_is_advanced
    case ('TVS')
      is_advanced = utl_tvs_is_advanced
    case ('SPC')
      is_advanced = utl_spc_is_advanced
    case ('SPCA')
      is_advanced = utl_spca_is_advanced
    case default
      call store_error('Idm selector subcomponent not found; '//&
                       &'component="UTL"'//&
                       &', subcomponent="'//trim(subcomponent)//'".', .true.)
    end select
    return
  end function utl_idm_is_advanced
 
  function utl_idm_subpackages(subcomponent) result(subpackages)
    character(len=*), intent(in) :: subcomponent
    character(len=16), dimension(:), pointer :: subpackages
    select case (subcomponent)
    case ('HPC')
      call set_subpkg_pointer(subpackages, utl_hpc_subpackages)
    case ('LAKTAB')
      call set_subpkg_pointer(subpackages, utl_laktab_subpackages)
    case ('NCF')
      call set_subpkg_pointer(subpackages, utl_ncf_subpackages)
    case ('SFRTAB')
      call set_subpkg_pointer(subpackages, utl_sfrtab_subpackages)
    case ('TVK')
      call set_subpkg_pointer(subpackages, utl_tvk_subpackages)
    case ('TVS')
      call set_subpkg_pointer(subpackages, utl_tvs_subpackages)
    case ('SPC')
      call set_subpkg_pointer(subpackages, utl_spc_subpackages)
    case ('SPCA')
      call set_subpkg_pointer(subpackages, utl_spca_subpackages)
    case default
    end select
    return
  end function utl_idm_subpackages
 
  function utl_idm_integrated(subcomponent) result(integrated)
    character(len=*), intent(in) :: subcomponent
    logical :: integrated
    integrated = .false.
    select case (subcomponent)
    case ('HPC')
      integrated = .true.
    case ('LAKTAB')
      integrated = .true.
    case ('NCF')
      integrated = .true.
    case ('SFRTAB')
      integrated = .true.
    case ('TVK')
      integrated = .true.
    case ('TVS')
      integrated = .true.
    case ('SPC')
      integrated = .true.
    case ('SPCA')
      integrated = .true.
    case default
    end select
    return
  end function utl_idm_integrated
 
end module idmutldfnselectormodule