exg-swfgwfidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module exgswfgwfinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public exg_swfgwf_param_definitions
  public exg_swfgwf_aggregate_definitions
  public exg_swfgwf_block_definitions
  public exgswfgwfparamfoundtype
  public exg_swfgwf_multi_package
  public exg_swfgwf_subpackages
 
  type exgswfgwfparamfoundtype
    logical :: ipr_input = .false.
    logical :: ipr_flow = .false.
    logical :: ifixedcond = .false.
    logical :: obs_filerecord = .false.
    logical :: obs6 = .false.
    logical :: filein = .false.
    logical :: obs6_filename = .false.
    logical :: nexg = .false.
    logical :: cellidm1 = .false.
    logical :: cellidm2 = .false.
    logical :: bedleak = .false.
    logical :: cfact = .false.
  end type exgswfgwfparamfoundtype
 
  logical :: exg_swfgwf_multi_package = .true.
 
  character(len=16), parameter :: &
    exg_swfgwf_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_ipr_input = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'PRINT_INPUT', & ! tag name
    'IPR_INPUT', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'keyword to print input to list file', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_ipr_flow = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'PRINT_FLOWS', & ! tag name
    'IPR_FLOW', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'keyword to print swfgwf flows to list file', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_ifixedcond = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'FIXED_CONDUCTANCE', & ! tag name
    'IFIXEDCOND', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'keyword to indicate conductance is fixed', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_obs_filerecord = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'OBS_FILERECORD', & ! tag name
    'OBS_FILERECORD', & ! fortran variable
    'RECORD OBS6 FILEIN OBS6_FILENAME', & ! type
    '', & ! shape
    '', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_obs6 = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'OBS6', & ! tag name
    'OBS6', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'obs keyword', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_filein = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'FILEIN', & ! tag name
    'FILEIN', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'file keyword', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_obs6_filename = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'OBS6_FILENAME', & ! tag name
    'OBS6_FILENAME', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'obs6 input filename', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .true., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_nexg = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'DIMENSIONS', & ! block
    'NEXG', & ! tag name
    'NEXG', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'number of exchanges', & ! longname
    .true., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_cellidm1 = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'CELLIDM1', & ! tag name
    'CELLIDM1', & ! fortran variable
    'INTEGER1D', & ! type
    'NCELLDIM', & ! shape
    'cellid of cell in surface water model', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_cellidm2 = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'CELLIDM2', & ! tag name
    'CELLIDM2', & ! fortran variable
    'INTEGER1D', & ! type
    'NCELLDIM', & ! shape
    'cellid of cell in groundwater model', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_bedleak = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'BEDLEAK', & ! tag name
    'BEDLEAK', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'bed leakance', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_cfact = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'CFACT', & ! tag name
    'CFACT', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'factor used for conductance calculation', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exg_swfgwf_param_definitions(*) = &
    [ &
    exgswfgwf_ipr_input, &
    exgswfgwf_ipr_flow, &
    exgswfgwf_ifixedcond, &
    exgswfgwf_obs_filerecord, &
    exgswfgwf_obs6, &
    exgswfgwf_filein, &
    exgswfgwf_obs6_filename, &
    exgswfgwf_nexg, &
    exgswfgwf_cellidm1, &
    exgswfgwf_cellidm2, &
    exgswfgwf_bedleak, &
    exgswfgwf_cfact &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_exchangedata = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'EXCHANGEDATA', & ! tag name
    'EXCHANGEDATA', & ! fortran variable
    'RECARRAY CELLIDM1 CELLIDM2 BEDLEAK CFACT', & ! type
    'NEXG', & ! shape
    'exchange data', & ! longname
    .true., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exg_swfgwf_aggregate_definitions(*) = &
    [ &
    exgswfgwf_exchangedata &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    exg_swfgwf_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'DIMENSIONS', & ! blockname
    .true., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'EXCHANGEDATA', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module exgswfgwfinputmodule