utl-hpcidm.f90

Go to the documentation of this file.

! ** Do Not Modify! MODFLOW 6 system generated file. **
module utlhpcinputmodule
  use constantsmodule, only: lenvarname
  use inputdefinitionmodule, only: inputparamdefinitiontype, &
                                   inputblockdefinitiontype
  private
  public utl_hpc_param_definitions
  public utl_hpc_aggregate_definitions
  public utl_hpc_block_definitions
  public utlhpcparamfoundtype
  public utl_hpc_multi_package
  public utl_hpc_subpackages
 
  type utlhpcparamfoundtype
    logical :: dev_log_mpi = .false.
    logical :: mname = .false.
    logical :: mrank = .false.
  end type utlhpcparamfoundtype
 
  logical :: utl_hpc_multi_package = .false.
 
  character(len=16), parameter :: &
    utl_hpc_subpackages(*) = &
    [ &
    '                ' &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utlhpc_dev_log_mpi = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'HPC', & ! subcomponent
    'OPTIONS', & ! block
    'DEV_LOG_MPI', & ! tag name
    'DEV_LOG_MPI', & ! fortran variable
    'KEYWORD', & ! type
    '', & ! shape
    'log mpi traffic', & ! longname
    .false., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlhpc_mname = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'HPC', & ! subcomponent
    'PARTITIONS', & ! block
    'MNAME', & ! tag name
    'MNAME', & ! fortran variable
    'STRING', & ! type
    '', & ! shape
    'model name', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utlhpc_mrank = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'HPC', & ! subcomponent
    'PARTITIONS', & ! block
    'MRANK', & ! tag name
    'MRANK', & ! fortran variable
    'INTEGER', & ! type
    '', & ! shape
    'model rank', & ! longname
    .true., & ! required
    .true., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_hpc_param_definitions(*) = &
    [ &
    utlhpc_dev_log_mpi, &
    utlhpc_mname, &
    utlhpc_mrank &
    ]
 
  type(inputparamdefinitiontype), parameter :: &
    utlhpc_partitions = inputparamdefinitiontype &
    ( &
    'UTL', & ! component
    'HPC', & ! subcomponent
    'PARTITIONS', & ! block
    'PARTITIONS', & ! tag name
    'PARTITIONS', & ! fortran variable
    'RECARRAY MNAME MRANK', & ! type
    '', & ! shape
    'list of partition numbers', & ! longname
    .true., & ! required
    .false., & ! multi-record
    .false., & ! preserve case
    .false., & ! layered
    .false. & ! timeseries
    )
 
  type(inputparamdefinitiontype), parameter :: &
    utl_hpc_aggregate_definitions(*) = &
    [ &
    utlhpc_partitions &
    ]
 
  type(inputblockdefinitiontype), parameter :: &
    utl_hpc_block_definitions(*) = &
    [ &
    inputblockdefinitiontype( &
    'OPTIONS', & ! blockname
    .false., & ! required
    .false., & ! aggregate
    .false. & ! block_variable
    ), &
    inputblockdefinitiontype( &
    'PARTITIONS', & ! blockname
    .true., & ! required
    .true., & ! aggregate
    .false. & ! block_variable
    ) &
    ]
 
end module utlhpcinputmodule