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
 
  type exgswfgwfparamfoundtype
    logical :: ipr_input = .false.
    logical :: ipr_flow = .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 :: cond = .false.
  end type exgswfgwfparamfoundtype
 
  logical :: exg_swfgwf_multi_package = .true.
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_ipr_input = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'OPTIONS', & ! block
    'PRINT_INPUT', & ! tag name
    'IPR_INPUT', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    .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
    .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
    .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
    .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
    .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
    .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
    .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
    .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
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_cond = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'COND', & ! tag name
    'COND', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    .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_obs_filerecord, &
    exgswfgwf_obs6, &
    exgswfgwf_filein, &
    exgswfgwf_obs6_filename, &
    exgswfgwf_nexg, &
    exgswfgwf_cellidm1, &
    exgswfgwf_cellidm2, &
    exgswfgwf_cond &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    exgswfgwf_exchangedata = inputparamdefinitiontype &
    ( &
    'EXG', & ! component
    'SWFGWF', & ! subcomponent
    'EXCHANGEDATA', & ! block
    'EXCHANGEDATA', & ! tag name
    'EXCHANGEDATA', & ! fortran variable
    'RECARRAY CELLIDM1 CELLIDM2 COND', & ! type
    'NEXG', & ! shape
    .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