gwf-hfbidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module gwfhfbinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public gwf_hfb_param_definitions
  public gwf_hfb_aggregate_definitions
  public gwf_hfb_block_definitions
  public gwfhfbparamfoundtype
  public gwf_hfb_multi_package
  public gwf_hfb_subpackages
 
  type gwfhfbparamfoundtype
    logical :: print_input = .false.
    logical :: maxbound = .false.
    logical :: cellid1 = .false.
    logical :: cellid2 = .false.
    logical :: hydchr = .false.
  end type gwfhfbparamfoundtype
 
  logical :: gwf_hfb_multi_package = .false.
 
  character(len=16), parameter :: &
    gwf_hfb_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    gwfhfb_print_input = inputparamdefinitiontype &
    ( &
    'GWF', & ! component
    'HFB', & ! subcomponent
    'OPTIONS', & ! block
    'PRINT_INPUT', & ! tag name
    'PRINT_INPUT', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'model print input to listing file', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwfhfb_maxbound = inputparamdefinitiontype &
    ( &
    'GWF', & ! component
    'HFB', & ! subcomponent
    'DIMENSIONS', & ! block
    'MAXHFB', & ! tag name
    'MAXBOUND', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'maximum number of barriers', & ! longname
    .true., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwfhfb_cellid1 = inputparamdefinitiontype &
    ( &
    'GWF', & ! component
    'HFB', & ! subcomponent
    'PERIOD', & ! block
    'CELLID1', & ! tag name
    'CELLID1', & ! fortran variable
    'INTEGER1D', & ! type
    'NCELLDIM', & ! shape
    'first cell adjacent to barrier', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwfhfb_cellid2 = inputparamdefinitiontype &
    ( &
    'GWF', & ! component
    'HFB', & ! subcomponent
    'PERIOD', & ! block
    'CELLID2', & ! tag name
    'CELLID2', & ! fortran variable
    'INTEGER1D', & ! type
    'NCELLDIM', & ! shape
    'second cell adjacent to barrier', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwfhfb_hydchr = inputparamdefinitiontype &
    ( &
    'GWF', & ! component
    'HFB', & ! subcomponent
    'PERIOD', & ! block
    'HYDCHR', & ! tag name
    'HYDCHR', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'barrier hydraulic characteristic', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwf_hfb_param_definitions(*) = &
    [ &
    gwfhfb_print_input, &
    gwfhfb_maxbound, &
    gwfhfb_cellid1, &
    gwfhfb_cellid2, &
    gwfhfb_hydchr &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    gwfhfb_spd = inputparamdefinitiontype &
    ( &
    'GWF', & ! component
    'HFB', & ! subcomponent
    'PERIOD', & ! block
    'STRESS_PERIOD_DATA', & ! tag name
    'SPD', & ! fortran variable
    'RECARRAY CELLID1 CELLID2 HYDCHR', & ! type
    'MAXHFB', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwf_hfb_aggregate_definitions(*) = &
    [ &
    gwfhfb_spd &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    gwf_hfb_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'DIMENSIONS', & ! blockname
    .true., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'PERIOD', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .true. & ! block_variable
    ) &
    ]
 
end module gwfhfbinputmodule