prt-mipidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module prtmipinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public prt_mip_param_definitions
  public prt_mip_aggregate_definitions
  public prt_mip_block_definitions
  public prtmipparamfoundtype
  public prt_mip_multi_package
 
  type prtmipparamfoundtype
    logical :: zero_method = .false.
    logical :: export_ascii = .false.
    logical :: porosity = .false.
    logical :: retfactor = .false.
    logical :: izone = .false.
  end type prtmipparamfoundtype
 
  logical :: prt_mip_multi_package = .false.
 
  type(inputparamdefinitiontype), parameter :: &
    prtmip_zero_method = inputparamdefinitiontype &
    ( &
    'PRT', & ! component
    'MIP', & ! subcomponent
    'OPTIONS', & ! block
    'ZERO_METHOD', & ! tag name
    'ZERO_METHOD', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    prtmip_export_ascii = inputparamdefinitiontype &
    ( &
    'PRT', & ! component
    'MIP', & ! subcomponent
    'OPTIONS', & ! block
    'EXPORT_ARRAY_ASCII', & ! tag name
    'EXPORT_ASCII', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    prtmip_porosity = inputparamdefinitiontype &
    ( &
    'PRT', & ! component
    'MIP', & ! subcomponent
    'GRIDDATA', & ! block
    'POROSITY', & ! tag name
    'POROSITY', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    .true., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    prtmip_retfactor = inputparamdefinitiontype &
    ( &
    'PRT', & ! component
    'MIP', & ! subcomponent
    'GRIDDATA', & ! block
    'RETFACTOR', & ! tag name
    'RETFACTOR', & ! fortran variable
    'DOUBLE1D', & ! type
    'NODES', & ! shape
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    prtmip_izone = inputparamdefinitiontype &
    ( &
    'PRT', & ! component
    'MIP', & ! subcomponent
    'GRIDDATA', & ! block
    'IZONE', & ! tag name
    'IZONE', & ! fortran variable
    'INTEGER1D', & ! type
    'NODES', & ! shape
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .true., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    prt_mip_param_definitions(*) = &
    [ &
    prtmip_zero_method, &
    prtmip_export_ascii, &
    prtmip_porosity, &
    prtmip_retfactor, &
    prtmip_izone &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    prt_mip_aggregate_definitions(*) = &
    [ &
    inputparamdefinitiontype &
    ( &
    '', & ! component
    '', & ! subcomponent
    '', & ! block
    '', & ! tag name
    '', & ! fortran variable
    '', & ! type
    '', & ! shape
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    ) &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    prt_mip_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'GRIDDATA', & ! blockname
    .true., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module prtmipinputmodule