utl-laktabidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module utllaktabinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public utl_laktab_param_definitions
  public utl_laktab_aggregate_definitions
  public utl_laktab_block_definitions
  public utllaktabparamfoundtype
  public utl_laktab_multi_package
  public utl_laktab_is_advanced
  public utl_laktab_subpackages
 
  type utllaktabparamfoundtype
    logical :: nrow = .false.
    logical :: ncol = .false.
    logical :: stage = .false.
    logical :: volume = .false.
    logical :: sarea = .false.
    logical :: barea = .false.
  end type utllaktabparamfoundtype
 
  logical :: utl_laktab_multi_package = .true.
  logical :: utl_laktab_is_advanced = .false.
 
  character(len=16), parameter :: &
    utl_laktab_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_nrow = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'DIMENSIONS', & ! block
    'NROW', & ! tag name
    'NROW', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'number of table rows', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_ncol = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'DIMENSIONS', & ! block
    'NCOL', & ! tag name
    'NCOL', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'number of table columns', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_stage = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'TABLE', & ! block
    'STAGE', & ! tag name
    'STAGE', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'lake stage', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_volume = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'TABLE', & ! block
    'VOLUME', & ! tag name
    'VOLUME', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'lake volume', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_sarea = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'TABLE', & ! block
    'SAREA', & ! tag name
    'SAREA', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'lake surface area', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_barea = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'TABLE', & ! block
    'BAREA', & ! tag name
    'BAREA', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'lake-GWF exchange area', & ! longname
    .false., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_laktab_param_definitions(*) = &
    [ &
    utllaktab_nrow, &
    utllaktab_ncol, &
    utllaktab_stage, &
    utllaktab_volume, &
    utllaktab_sarea, &
    utllaktab_barea &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utllaktab_table = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'LAKTAB', & ! subcomponent
    'TABLE', & ! block
    'TABLE', & ! tag name
    'TABLE', & ! fortran variable
    'RECARRAY STAGE VOLUME SAREA BAREA', & ! type
    'NROW', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_laktab_aggregate_definitions(*) = &
    [ &
    utllaktab_table &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    utl_laktab_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'DIMENSIONS', & ! blockname
    .true., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'TABLE', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module utllaktabinputmodule