gwt-advidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module gwtadvinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public gwt_adv_param_definitions
  public gwt_adv_aggregate_definitions
  public gwt_adv_block_definitions
  public gwtadvparamfoundtype
  public gwt_adv_multi_package
  public gwt_adv_subpackages
 
  type gwtadvparamfoundtype
    logical :: scheme = .false.
    logical :: ats_percel = .false.
  end type gwtadvparamfoundtype
 
  logical :: gwt_adv_multi_package = .false.
 
  character(len=16), parameter :: &
    gwt_adv_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    gwtadv_scheme = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'ADV', & ! subcomponent
    'OPTIONS', & ! block
    'SCHEME', & ! tag name
    'SCHEME', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'advective scheme', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwtadv_ats_percel = inputparamdefinitiontype &
    ( &
    'GWT', & ! component
    'ADV', & ! subcomponent
    'OPTIONS', & ! block
    'ATS_PERCEL', & ! tag name
    'ATS_PERCEL', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'fractional cell distance used for time step calculation', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    gwt_adv_param_definitions(*) = &
    [ &
    gwtadv_scheme, &
    gwtadv_ats_percel &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    gwt_adv_aggregate_definitions(*) = &
    [ &
    inputparamdefinitiontype &
    ( &
    '', & ! component
    '', & ! subcomponent
    '', & ! block
    '', & ! tag name
    '', & ! fortran variable
    '', & ! type
    '', & ! shape
    '', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    ) &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    gwt_adv_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module gwtadvinputmodule