gwt-dspidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module gwtdspinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public gwt_dsp_param_definitions
  public gwt_dsp_aggregate_definitions
  public gwt_dsp_block_definitions
  public gwtdspparamfoundtype
  public gwt_dsp_multi_package
  public gwt_dsp_is_advanced
  public gwt_dsp_subpackages
 
  type gwtdspparamfoundtype
    logical :: xt3d_off = .false.
    logical :: xt3d_rhs = .false.
    logical :: export_ascii = .false.
    logical :: export_nc = .false.
    logical :: diffc = .false.
    logical :: alh = .false.
    logical :: alv = .false.
    logical :: ath1 = .false.
    logical :: ath2 = .false.
    logical :: atv = .false.
  end type gwtdspparamfoundtype
 
  logical :: gwt_dsp_multi_package = .false.
  logical :: gwt_dsp_is_advanced = .false.
 
  character(len=16), parameter :: &
    gwt_dsp_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_xt3d_off = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'OPTIONS', & ! block
    'XT3D_OFF', & ! tag name
    'XT3D_OFF', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'deactivate xt3d', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_xt3d_rhs = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'OPTIONS', & ! block
    'XT3D_RHS', & ! tag name
    'XT3D_RHS', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'xt3d on right-hand side', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_export_ascii = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'OPTIONS', & ! block
    'EXPORT_ARRAY_ASCII', & ! tag name
    'EXPORT_ASCII', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'export array variables to layered ascii files.', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_export_nc = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'OPTIONS', & ! block
    'EXPORT_ARRAY_NETCDF', & ! tag name
    'EXPORT_NC', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'export array variables to netcdf output files.', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_diffc = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'GRIDDATA', & ! block
    'DIFFC', & ! tag name
    'DIFFC', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    'effective molecular diffusion coefficient', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_alh = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'GRIDDATA', & ! block
    'ALH', & ! tag name
    'ALH', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    'longitudinal dispersivity in horizontal direction', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_alv = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'GRIDDATA', & ! block
    'ALV', & ! tag name
    'ALV', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    'longitudinal dispersivity in vertical direction', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_ath1 = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'GRIDDATA', & ! block
    'ATH1', & ! tag name
    'ATH1', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    'transverse dispersivity in horizontal direction', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_ath2 = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'GRIDDATA', & ! block
    'ATH2', & ! tag name
    'ATH2', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    'transverse dispersivity in horizontal direction', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtdsp_atv = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'DSP', & ! subcomponent
    'GRIDDATA', & ! block
    'ATV', & ! tag name
    'ATV', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    'transverse dispersivity when flow is in vertical direction', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwt_dsp_param_definitions(*) = &
    [ &
    gwtdsp_xt3d_off, &
    gwtdsp_xt3d_rhs, &
    gwtdsp_export_ascii, &
    gwtdsp_export_nc, &
    gwtdsp_diffc, &
    gwtdsp_alh, &
    gwtdsp_alv, &
    gwtdsp_ath1, &
    gwtdsp_ath2, &
    gwtdsp_atv &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    gwt_dsp_aggregate_definitions(*) = &
    [ &
    inputparamdefinitiontype &
    ( &
    '', & ! component
    '', & ! subcomponent
    '', & ! block
    '', & ! tag name
    '', & ! fortran variable
    '', & ! type
    '', & ! shape
    '', & ! longname
    .false., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    ) &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    gwt_dsp_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'GRIDDATA', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module gwtdspinputmodule