Constants.f90

Go to the documentation of this file.

!> @brief This module contains simulation constants
!!
!! This module contains simulation constants that are available to all
!! other modules. The variables in this module are defined at run time.
!! The module does not have any dependencies on models, exchanges, or
!! solutions in a simulation.
!!
!<
module constantsmodule
  use kindmodule
  public
  ! -- constants
  integer(I4B), parameter :: iuserformatstrip = -99 !< default user format strip
  integer(I4B), parameter :: iuserformatwrap = 99 !< default user format wrap
  integer(I4B), parameter :: lenbigline = 5000 !< maximum length of a big line
  integer(I4B), parameter :: lenhugeline = 50000 !< maximum length of a huge line
  integer(I4B), parameter :: lenvarname = 16 !< maximum length of a variable name
  integer(I4B), parameter :: lencomponentname = 16 !< maximum length of a component name
  integer(I4B), parameter :: lencontextname = 16 !< maximum length of a memory manager context
  integer(I4B), parameter :: lenaname = 24 !< maximum length of the header text for an array
  integer(I4B), parameter :: lensolutionname = lencomponentname !< maximum length of the solution name
  integer(I4B), parameter :: lenmodelname = lencomponentname !< maximum length of the model name
  integer(I4B), parameter :: lenpackagename = lencomponentname !< maximum length of the package name
  integer(I4B), parameter :: lenexchangename = lencomponentname !< maximum length of the exchange name
  integer(I4B), parameter :: lenbudrowlabel = 2 * lenpackagename + 1 !< maximum length of the rowlabel string used in the budget table
  integer(I4B), parameter :: lenmemseparator = 1 !< maximum length of the memory path separator used, currently a '/'
  integer(I4B), parameter :: lenmempath = &
                             lencontextname + &
                             2 * lencomponentname + &
                             2 * lenmemseparator !< maximum length of the memory path
  integer(I4B), parameter :: lenmemaddress = &
                             lenmempath + &
                             lenmemseparator + &
                             lenvarname !< maximum length of the full memory address, including variable name
  integer(I4B), parameter :: lenauxname = 16 !< maximum length of a aux variable
  integer(I4B), parameter :: lenboundname = 40 !< maximum length of a bound name
  integer(I4B), parameter :: lenbudtxt = 16 !< maximum length of a budget component names
  integer(I4B), parameter :: lenpackagetype = 7 !< maximum length of a package type (DIS6, SFR6, CSUB6, etc.)
  integer(I4B), parameter :: lenftype = 5 !< maximum length of a package type (DIS, WEL, OC, etc.)
  integer(I4B), parameter :: lenobsname = 40 !< maximum length of a observation name
  integer(I4B), parameter :: lenobstype = 30 !< maximum length of a observation type (CONTINUOUS)
  integer(I4B), parameter :: lentimeseriesname = lenobsname !< maximum length of a time series name
  integer(I4B), parameter :: lentimeseriestext = 16 !< maximum length of a time series text
  integer(I4B), parameter :: lendatetime = 30 !< maximum length of a date time string
  integer(I4B), parameter :: linelength = 300 !< maximum length of a standard line
  integer(I4B), parameter :: lenlistlabel = 500 !< maximum length of a llist label
  integer(I4B), parameter :: maxcharlen = max(1000, lenbigline) !< maximum length of char string
  integer(I4B), parameter :: maxobstypes = 100 !< maximum number of observation types
  integer(I4B), parameter :: namedboundflag = -9 !< named bound flag
  integer(I4B), parameter :: lenpakloc = 34 !< maximum length of a package location
  integer(I4B), parameter :: izero = 0 !< integer constant zero
  integer(I4B), parameter :: iwetlake = 10000 !< integer constant for a dry lake
  integer(I4B), parameter :: maxadpit = 100 !< maximum advanced package Newton-Raphson iterations
  !
  ! -- file constants
  integer(I4B), parameter :: iuoc = 999 !< open/close file unit number
  integer(I4B), parameter :: iustart = 1000 !< starting file unit number
  integer(I4B), parameter :: iulast = 10000 !< maximum file unit number (this allows for 9000 open files)
  !
  ! -- memory manager constants
  integer(I4B), public, parameter :: maxmemrank = 3 !< maximum memory manager length (up to 3-dimensional arrays)
  integer(I4B), public, parameter :: lenmemtype = 50 !< maximum length of a memory manager type
  !
  ! -- real constants
  real(dp), parameter :: dzero = 0.0_dp !< real constant zero
  real(dp), parameter :: dquarter = 0.25_dp !< real constant 1/3
  real(dp), parameter :: donethird = 1.0_dp / 3.0_dp !< real constant 1/3
  real(dp), parameter :: dhalf = 0.5_dp !< real constant 1/2
  real(dp), parameter :: dp6 = 0.6_dp !< real constant 3/5
  real(dp), parameter :: dtwothirds = 2.0_dp / 3.0_dp !< real constant 2/3
  real(dp), parameter :: dp7 = 0.7_dp !< real constant 7/10
  real(dp), parameter :: dp9 = 0.9_dp !< real constant 9/10
  real(dp), parameter :: dp99 = 0.99_dp !< real constant 99/100
  real(dp), parameter :: dp999 = 0.999_dp !< real constant 999/1000
 
  real(dp), parameter :: done = 1.0_dp !< real constant 1
  real(dp), parameter :: d1p1 = 1.1_dp !< real constant 1.1
  real(dp), parameter :: dfivethirds = 5.0_dp / 3.0_dp !< real constant 5/3
  real(dp), parameter :: dtwo = 2.0_dp !< real constant 2
  real(dp), parameter :: dthree = 3.0_dp !< real constant 3
  real(dp), parameter :: dfour = 4.0_dp !< real constant 4
  real(dp), parameter :: dsix = 6.0_dp !< real constant 6
  real(dp), parameter :: deight = 8.0_dp !< real constant 8
  real(dp), parameter :: dten = 1.0e1_dp !< real constant 10
  real(dp), parameter :: dsixty = 6.0e1_dp !< real constant 60
  real(dp), parameter :: dhundred = 1.0e2_dp !< real constant 100
 
  real(dp), parameter :: dep3 = 1.0e3_dp !< real constant 1000
  real(dp), parameter :: dep6 = 1.0e6_dp !< real constant 1000000
  real(dp), parameter :: dep9 = 1.0e9_dp !< real constant 1e9
  real(dp), parameter :: dep20 = 1.0e20_dp !< real constant 1e20
 
  real(dp), parameter :: dhnoflo = 1.e30_dp !< real no flow constant
  real(dp), parameter :: dhdry = -1.e30_dp !< real dry cell constant
  real(dp), parameter :: dnodata = 3.0e30_dp !< real no data constant
 
  real(dp), parameter :: dsecperhr = 3.6e3_dp !< real constant representing number of seconds per hour (used in tdis)
  real(dp), parameter :: dhrperday = 2.4e1_dp !< real constant representing number of hours per day (used in tdis)
  real(dp), parameter :: ddyperyr = 3.6525e2_dp !< real constant representing the average number of days per year (used in tdis)
  real(dp), parameter :: dsecperdy = 8.64e4_dp !< real constant representing the number of seconds per day (used in tdis)
  real(dp), parameter :: dsecperyr = 3.1557600e7_dp !< real constant representing the average number of seconds per year (used in tdis)
 
  real(dp), parameter :: dem1 = 1.0e-1_dp !< real constant 1e-1
  real(dp), parameter :: d5em2 = 5.0e-2_dp !< real constant 5e-2
  real(dp), parameter :: dem2 = 1.0e-2_dp !< real constant 1e-2
  real(dp), parameter :: dem3 = 1.0e-3_dp !< real constant 1e-3
  real(dp), parameter :: dem4 = 1.0e-4_dp !< real constant 1e-4
  real(dp), parameter :: dem5 = 1.0e-5_dp !< real constant 1e-5
  real(dp), parameter :: dem6 = 1.0e-6_dp !< real constant 1e-6
  real(dp), parameter :: dem7 = 1.0e-7_dp !< real constant 1e-7
  real(dp), parameter :: dem8 = 1.0e-8_dp !< real constant 1e-8
  real(dp), parameter :: dem9 = 1.0e-9_dp !< real constant 1e-9
  real(dp), parameter :: dem10 = 1.0e-10_dp !< real constant 1e-10
  real(dp), parameter :: dem12 = 1.0e-12_dp !< real constant 1e-12
  real(dp), parameter :: dem14 = 1.0e-14_dp !< real constant 1e-14
  real(dp), parameter :: dem15 = 1.0e-15_dp !< real constant 1e-15
  real(dp), parameter :: dem20 = 1.0e-20_dp !< real constant 1e-20
  real(dp), parameter :: dem30 = 1.0e-30_dp !< real constant 1e-30
 
  real(dp), parameter :: dprec = epsilon(1.0_dp) !< real constant machine precision
  real(dp), parameter :: dprecsqrt = sqrt(dprec)
  real(dp), parameter :: dsame = dhundred * dprec !< real constant for values that are considered
                                                  !! the same based on machine precision
 
  real(dp), parameter :: dlnlow = 0.995_dp !< real constant low ratio used to calculate log mean of K
  real(dp), parameter :: dlnhigh = 1.005_dp !< real constant high ratio used to calculate log mean of K
 
  real(dp), parameter :: dpi = dfour * atan(done) !< real constant \f$\pi\f$
  real(dp), parameter :: dtwopi = dtwo * dfour * atan(done) !< real constant \f$2 \pi\f$
  real(dp), parameter :: dpio180 = datan(done) / 4.5d1 !< real constant \f$\pi/180\f$
 
  real(dp), parameter :: dgravity = 9.80665_dp !< real constant gravitational acceleration (m/(s s))
  real(dp), parameter :: dcd = 0.61_dp !< real constant weir coefficient in SI units
 
  character(len=10), dimension(3, 3), parameter :: &
    cidxnames = reshape( &
    ['      NODE', '          ', '          ', &
     '     LAYER', '    CELL2D', '          ', &
     '     LAYER', '       ROW', '       COL'], [3, 3]) !< cellid labels for DIS, DISV, and DISU discretizations
 
  !> @brief enumerator used with TimeSeriesType
  !<
  ENUM, BIND(C)
    ENUMERATOR :: undefined = 0 !< undefined interpolation
    ENUMERATOR :: stepwise = 1 !< stepwise interpolation
    ENUMERATOR :: linear = 2 !< linear interpolation
    ENUMERATOR :: linearend = 3 !< linear end interpolation
  END ENUM
 
  !> @brief enumerator associated with Discretization types
  !<
  ENUM, BIND(C)
    ENUMERATOR :: disundef = 0 !< undefined discretization
    ! -- 3D (base) discretizations
    ENUMERATOR :: dis = 1 !< DIS6 discretization
    ENUMERATOR :: disv = 2 !< DISU6 discretization
    ENUMERATOR :: disu = 3 !< DISV6 discretization
    ! -- 1D discretizations
    ENUMERATOR :: dis1d = 101 !< DIS1D6 discretization
    ENUMERATOR :: disv1d = 102 !< DISV1D6 discretization
    ENUMERATOR :: disu1d = 103 !< DISU1D6 discretization
    ! -- 2D discretizations
    ENUMERATOR :: dis2d = 201 !< DIS2D6 discretization
    ENUMERATOR :: disv2d = 202 !< DISV2D6 discretization
    ENUMERATOR :: disu2d = 203 !< DISU2D6 discretization
  END ENUM
 
  !> @brief enumerator used with table objects
  !<
  ENUM, BIND(C)
    ENUMERATOR :: tableft = 0 !< left justified table column
    ENUMERATOR :: tabcenter = 1 !< centered table column
    ENUMERATOR :: tabright = 2 !< right justified table column
  END ENUM
 
  !> @brief enumerator used to define table column data type
  !<
  ENUM, BIND(C)
    ENUMERATOR :: tabstring = 0 !< string table data
    ENUMERATOR :: tabucstring = 1 !< upper case string table data
    ENUMERATOR :: tabinteger = 2 !< integer table data
    ENUMERATOR :: tabreal = 3 !< real table data
  END ENUM
 
  !> @brief enumerator used to define output option
  !<
  ENUM, BIND(C)
    ENUMERATOR :: vsummary = 0 !< write summary output
    ENUMERATOR :: vall = 1 !< write all simulation notes and warnings
    ENUMERATOR :: vdebug = 2 !< write debug output
  END ENUM
 
  !> @brief enumerator that defines the operating system
  !<
  ENUM, BIND(C)
    ENUMERATOR :: osundef = 0 !< unknown operating system
    ENUMERATOR :: oslinux = 1 !< Linux operating system
    ENUMERATOR :: osmac = 2 !< MacOS operating system
    ENUMERATOR :: oswin = 3 !< Windows operating system
  END ENUM
 
  !> @brief enumerator that defines the simulation mode
  !<
  ENUM, BIND(C)
    ENUMERATOR :: mvalidate = 0 !< validation mode - do not run time steps
    ENUMERATOR :: mnormal = 1 !< normal output mode
    ENUMERATOR :: mrun = 2 !< run output mode
  END ENUM
 
  !> @brief enumerator that defines the compiler
  !<
  ENUM, BIND(C)
    ENUMERATOR :: cunknown = 0 !< unknown compiler
    ENUMERATOR :: cgfortran = 1 !< gfortran compiler
    ENUMERATOR :: cintel = 3 !< intel ifort compiler
    ENUMERATOR :: ccrayftn = 3 !< cray fortran compiler
  END ENUM
 
  !> @brief enumerator that defines the cell connection type
  !<
  ENUM, BIND(C)
    ENUMERATOR :: c3d_vertical = 0 !< vertical connection
    ENUMERATOR :: c3d_horizontal = 1 !< horizontal connection
    ENUMERATOR :: c3d_staggered = 2 !< horizontal connection for a vertically staggered grid
  END ENUM
 
end module constantsmodule