chf-cxsidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module chfcxsinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public chf_cxs_param_definitions
  public chf_cxs_aggregate_definitions
  public chf_cxs_block_definitions
  public chfcxsparamfoundtype
  public chf_cxs_multi_package
  public chf_cxs_is_advanced
  public chf_cxs_subpackages
 
  type chfcxsparamfoundtype
    logical :: iprpak = .false.
    logical :: nsections = .false.
    logical :: npoints = .false.
    logical :: ifno_pkgdata = .false.
    logical :: nxspoints = .false.
    logical :: ifno = .false.
    logical :: xfraction = .false.
    logical :: height = .false.
    logical :: manfraction = .false.
  end type chfcxsparamfoundtype
 
  logical :: chf_cxs_multi_package = .false.
  logical :: chf_cxs_is_advanced = .false.
 
  character(len=16), parameter :: &
    chf_cxs_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_iprpak = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'OPTIONS', & ! block
    'PRINT_INPUT', & ! tag name
    'IPRPAK', & ! 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 :: &
    chfcxs_nsections = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'DIMENSIONS', & ! block
    'NSECTIONS', & ! tag name
    'NSECTIONS', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'number of reaches', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_npoints = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'DIMENSIONS', & ! block
    'NPOINTS', & ! tag name
    'NPOINTS', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'total number of points defined for all reaches', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_ifno_pkgdata = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'PACKAGEDATA', & ! block
    'IFNO', & ! tag name
    'IFNO_PKGDATA', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'cross section number for this entry', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_nxspoints = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'PACKAGEDATA', & ! block
    'NXSPOINTS', & ! tag name
    'NXSPOINTS', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'number of points used to define cross section', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_ifno = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'CROSSSECTIONDATA', & ! block
    'IFNO', & ! tag name
    'IFNO', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'cross section number for this entry', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_xfraction = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'CROSSSECTIONDATA', & ! block
    'XFRACTION', & ! tag name
    'XFRACTION', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'fractional width', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_height = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'CROSSSECTIONDATA', & ! block
    'HEIGHT', & ! tag name
    'HEIGHT', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'depth', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_manfraction = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'CROSSSECTIONDATA', & ! block
    'MANFRACTION', & ! tag name
    'MANFRACTION', & ! fortran variable
    'DOUBLE', & ! type
    '', & ! shape
    'Mannings roughness coefficient', & ! longname
    .true., & ! required
    .false., & ! developmode
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chf_cxs_param_definitions(*) = &
    [ &
    chfcxs_iprpak, &
    chfcxs_nsections, &
    chfcxs_npoints, &
    chfcxs_ifno_pkgdata, &
    chfcxs_nxspoints, &
    chfcxs_ifno, &
    chfcxs_xfraction, &
    chfcxs_height, &
    chfcxs_manfraction &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_packagedata = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'PACKAGEDATA', & ! block
    'PACKAGEDATA', & ! tag name
    'PACKAGEDATA', & ! fortran variable
    'RECARRAY IFNO NXSPOINTS', & ! type
    'NSECTIONS', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chfcxs_crosssectiondata = inputparamdefinitiontype &
    ( &
    'CHF', & ! component
    'CXS', & ! subcomponent
    'CROSSSECTIONDATA', & ! block
    'CROSSSECTIONDATA', & ! tag name
    'CROSSSECTIONDATA', & ! fortran variable
    'RECARRAY IFNO XFRACTION HEIGHT MANFRACTION', & ! type
    'NPOINTS', & ! shape
    '', & ! longname
    .true., & ! required
    .false., & ! developmode
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    chf_cxs_aggregate_definitions(*) = &
    [ &
    chfcxs_packagedata, &
    chfcxs_crosssectiondata &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    chf_cxs_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'DIMENSIONS', & ! blockname
    .true., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'PACKAGEDATA', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'CROSSSECTIONDATA', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module chfcxsinputmodule