utl-tvsidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module utltvsinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public utl_tvs_param_definitions
  public utl_tvs_aggregate_definitions
  public utl_tvs_block_definitions
  public utltvsparamfoundtype
  public utl_tvs_multi_package
  public utl_tvs_is_advanced
  public utl_tvs_subpackages
 
  type utltvsparamfoundtype
    logical :: disable_sc_int = .false.
    logical :: print_input = .false.
    logical :: ts_filerecord = .false.
    logical :: ts6 = .false.
    logical :: filein = .false.
    logical :: ts6_filename = .false.
    logical :: cellid = .false.
    logical :: ss_in = .false.
    logical :: sy_in = .false.
  end type utltvsparamfoundtype
 
  logical :: utl_tvs_multi_package = .false.
  logical :: utl_tvs_is_advanced = .false.
 
  character(len=16), parameter :: &
    utl_tvs_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utltvs_disable_sc_int = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! subcomponent
    'OPTIONS', & ! block
    'DISABLE_STORAGE_CHANGE_INTEGRATION', & ! tag name
    'DISABLE_SC_INT', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'deactivate storage change integration', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utltvs_print_input = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! 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 :: &
    utltvs_ts_filerecord = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! 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 :: &
    utltvs_ts6 = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! 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 :: &
    utltvs_filein = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! 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 :: &
    utltvs_ts6_filename = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! 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 :: &
    utltvs_cellid = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! subcomponent
    'PERIOD', & ! block
    'CELLID', & ! tag name
    'CELLID', & ! fortran variable
    'INTEGER1D', & ! type
    'NCELLDIM', & ! shape
    'cell identifier', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utltvs_ss_in = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! subcomponent
    'PERIOD', & ! block
    'SS', & ! tag name
    'SS_IN', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'specific storage', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .true. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utltvs_sy_in = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! subcomponent
    'PERIOD', & ! block
    'SY', & ! tag name
    'SY_IN', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'specific yield', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .true. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_tvs_param_definitions(*) = &
    [ &
    utltvs_disable_sc_int, &
    utltvs_print_input, &
    utltvs_ts_filerecord, &
    utltvs_ts6, &
    utltvs_filein, &
    utltvs_ts6_filename, &
    utltvs_cellid, &
    utltvs_ss_in, &
    utltvs_sy_in &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utltvs_perioddata = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! subcomponent
    'PERIOD', & ! block
    'PERIODDATA', & ! tag name
    'PERIODDATA', & ! fortran variable
    'RECARRAY CELLID TVSSETTING', & ! type
    '', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utltvs_tvssetting = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'TVS', & ! subcomponent
    'PERIOD', & ! block
    'TVSSETTING', & ! tag name
    'TVSSETTING', & ! fortran variable
    'KEYSTRING SS SY', & ! type
    '', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_tvs_aggregate_definitions(*) = &
    [ &
    utltvs_perioddata, &
    utltvs_tvssetting &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    utl_tvs_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'PERIOD', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .true. & ! block_variable
    ) &
    ]
 
end module utltvsinputmodule