SMConstants Module


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: RP = SELECTED_REAL_KIND(DIGITS)
integer, public, parameter :: SP = SELECTED_REAL_KIND(SINGLE_DIGITS)
integer, public, parameter :: CP = SELECTED_REAL_KIND(DIGITS)
real(kind=RP), public, parameter :: PI = 3.141592653589793238462643_RP
real(kind=RP), public, parameter :: DEG2RAD = PI/180.0_RP
integer, public, parameter :: SIZEOF_INT = sizeof(integer)
integer, public, parameter :: SIZEOF_RP = RP
integer, public, parameter :: SIZEOF_CHAR = sizeof(SINGLE_CHARACTER)
integer, public, parameter :: AddrInt = SELECTED_INT_KIND(9)
integer, public, parameter :: AddrInt = SELECTED_INT_KIND(18)
integer, public, parameter :: FORWARD = +1
integer, public, parameter :: BACKWARD = -1
integer, public, parameter :: STD_OUT = 6
integer, public, parameter :: STD_IN = 5
integer, public, parameter :: LINE_LENGTH = 132
integer, public, parameter :: STRING_CONSTANT_LENGTH = 64
complex(kind=CP), public, parameter :: ImgI = (0.0_RP, 1.0_RP)
integer, public, parameter :: NDIM = 3
integer, public, parameter :: IX = 1
integer, public, parameter :: IY = 2
integer, public, parameter :: IZ = 3
integer, public, parameter :: IXY = 4
integer, public, parameter :: IXZ = 5
integer, public, parameter :: IYZ = 6
integer, public, parameter :: IXYZ = 7
integer, public, parameter :: DT_FIXED = 0
integer, public, parameter :: DT_DIFF = 1
integer, public, parameter :: DT_CONV = 2
integer, public, parameter :: LEFT = 1
integer, public, parameter :: RIGHT = 2
integer, public, parameter :: TOP = 2
integer, public, parameter :: BOTTOM = 1
integer, public, parameter :: FRONT = 1
integer, public, parameter :: BACK = 2
integer, public, parameter :: BC_STRING_LENGTH = 64
character(len=*), public, parameter :: VERSION = "v0.8.9: Compressible Navier-Stokes physics now using conservative gradients."
integer, protected :: solver

Enumerations

enum, bind(c)

Enumerators

enumerator:: NAVIERSTOKES_SOLVER = 0
enumerator:: INCNS_SOLVER = 1
enumerator:: CAHNHILLIARD_SOLVER = 2
enumerator:: SCALAR_SOLVER = 3
enumerator:: MULTIPHASE_SOLVER = 4
enumerator:: NAVIERSTOKESSA_SOLVER = 5
enumerator:: NO_OF_SOLVERS = 6
enumerator:: UNKNOWN_SOLVER = -1

Subroutines

public subroutine SetSolver(which)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: which