utl-spcidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module utlspcinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public utl_spc_param_definitions
  public utl_spc_aggregate_definitions
  public utl_spc_block_definitions
  public utlspcparamfoundtype
  public utl_spc_multi_package
  public utl_spc_is_advanced
  public utl_spc_subpackages
 
  type utlspcparamfoundtype
    logical :: print_input = .false.
    logical :: ts_filerecord = .false.
    logical :: ts6 = .false.
    logical :: filein = .false.
    logical :: ts6_filename = .false.
    logical :: maxbound = .false.
    logical :: bndno = .false.
    logical :: concentration_in = .false.
    logical :: temperature_in = .false.
  end type utlspcparamfoundtype
 
  logical :: utl_spc_multi_package = .true.
  logical :: utl_spc_is_advanced = .false.
 
  character(len=16), parameter :: &
    utl_spc_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_print_input = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'OPTIONS', & ! block
    'PRINT_INPUT', & ! tag name
    'PRINT_INPUT', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'print input to listing file', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_ts_filerecord = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'OPTIONS', & ! block
    'TS_FILERECORD', & ! tag name
    'TS_FILERECORD', & ! fortran variable
    'RECORD TS6 FILEIN TS6_FILENAME', & ! type
    '', & ! shape
    '', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_ts6 = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'OPTIONS', & ! block
    'TS6', & ! tag name
    'TS6', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'head keyword', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_filein = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'OPTIONS', & ! block
    'FILEIN', & ! tag name
    'FILEIN', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'file keyword', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_ts6_filename = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'OPTIONS', & ! block
    'TS6_FILENAME', & ! tag name
    'TS6_FILENAME', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'file name of time series information', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .true., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_maxbound = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'DIMENSIONS', & ! block
    'MAXBOUND', & ! tag name
    'MAXBOUND', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'maximum number of ssm entries', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_bndno = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'PERIOD', & ! block
    'BNDNO', & ! tag name
    'BNDNO', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'bound number for this entry', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_concentration_in = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'PERIOD', & ! block
    'CONCENTRATION', & ! tag name
    'CONCENTRATION_IN', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'boundary concentration', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .true. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_temperature_in = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'PERIOD', & ! block
    'TEMPERATURE', & ! tag name
    'TEMPERATURE_IN', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'boundary temperature', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .true. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_spc_param_definitions(*) = &
    [ &
    utlspc_print_input, &
    utlspc_ts_filerecord, &
    utlspc_ts6, &
    utlspc_filein, &
    utlspc_ts6_filename, &
    utlspc_maxbound, &
    utlspc_bndno, &
    utlspc_concentration_in, &
    utlspc_temperature_in &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_perioddata = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'PERIOD', & ! block
    'PERIODDATA', & ! tag name
    'PERIODDATA', & ! fortran variable
    'RECARRAY BNDNO SPCSETTING', & ! type
    '', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlspc_spcsetting = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'SPC', & ! subcomponent
    'PERIOD', & ! block
    'SPCSETTING', & ! tag name
    'SPCSETTING', & ! fortran variable
    'KEYSTRING CONCENTRATION TEMPERATURE', & ! type
    '', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_spc_aggregate_definitions(*) = &
    [ &
    utlspc_perioddata, &
    utlspc_spcsetting &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    utl_spc_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 utlspcinputmodule