! Generic True and False values assumed througout the code INTEGER CLES_TRUE INTEGER CLES_FALSE PARAMETER (CLES_TRUE=1) PARAMETER (CLES_FALSE=0) ! Generic return error codes INTEGER CLES_RETURN_OK INTEGER CLES_RETURN_ERROR INTEGER CLES_RETURN_ALLOC PARAMETER (CLES_RETURN_OK=0) PARAMETER (CLES_RETURN_ERROR=-1) PARAMETER (CLES_RETURN_ALLOC=1) ! Transport properties INTEGER CLES_TRANSP_NONE INTEGER CLES_TRANSP_VISC_CST, CLES_TRANSP_VISC_VAR INTEGER CLES_TRANSP_KAPPA_CST, CLES_TRANSP_KAPPA_VAR INTEGER CLES_TRANSP_DIFF_CST, CLES_TRANSP_DIFF_VAR INTEGER CLES_TRANSP_DIFF_SCHMIDT, CLES_TRANSP_DIFF_LEWIS ! type of transport model PARAMETER (CLES_TRANSP_NONE=0) ! constant or variable value of dynamic viscosity PARAMETER (CLES_TRANSP_VISC_CST=1) PARAMETER (CLES_TRANSP_VISC_VAR=2) ! constant or variable value of thermal conductivity PARAMETER (CLES_TRANSP_KAPPA_CST=1) PARAMETER (CLES_TRANSP_KAPPA_VAR=2) ! constant, variable, proportional to viscosity or thermal conductivity ! species diffusion PARAMETER (CLES_TRANSP_DIFF_CST=1) PARAMETER (CLES_TRANSP_DIFF_VAR=2) PARAMETER (CLES_TRANSP_DIFF_SCHMIDT=3) PARAMETER (CLES_TRANSP_DIFF_LEWIS=4) ! Type of boundarys INTEGER CLES_CBC_INFLOW, CLES_CBC_OUTFLOW, CLES_CBC_NONE INTEGER CLES_CBC_XDIR, CLES_CBC_YDIR, CLES_CBC_ZDIR INTEGER CLES_CBC_LEFT, CLES_CBC_RIGHT INTEGER CLES_CBC_BOTTOM, CLES_CBC_TOP INTEGER CLES_CBC_BACK, CLES_CBC_FRONT INTEGER CLES_CBC_MODE1D, CLES_CBC_MODE2D PARAMETER (CLES_CBC_NONE=0) PARAMETER (CLES_CBC_INFLOW=1) PARAMETER (CLES_CBC_OUTFLOW=2) PARAMETER (CLES_CBC_XDIR=1) PARAMETER (CLES_CBC_YDIR=2) PARAMETER (CLES_CBC_ZDIR=3) PARAMETER (CLES_CBC_LEFT=1) PARAMETER (CLES_CBC_RIGHT=2) PARAMETER (CLES_CBC_BOTTOM=1) PARAMETER (CLES_CBC_TOP=2) PARAMETER (CLES_CBC_BACK=1) PARAMETER (CLES_CBC_FRONT=2) PARAMETER (CLES_CBC_MODE1D=1) PARAMETER (CLES_CBC_MODE2D=2) ! dcflag and method switching constants INTEGER CLES_SWITCH_TCD INTEGER CLES_SWITCH_WENO PARAMETER (CLES_SWITCH_TCD=0) PARAMETER (CLES_SWITCH_WENO=1) ! specify patch solver boundaries and what type. INTEGER CLES_PATCH_CORE INTEGER CLES_PATCH_BNDRY PARAMETER (CLES_PATCH_CORE=0) PARAMETER (CLES_PATCH_BNDRY=1) ! different methods of the solver INTEGER CLES_METHOD_UPWIND INTEGER CLES_METHOD_HYBRID PARAMETER (CLES_METHOD_UPWIND=0) PARAMETER (CLES_METHOD_HYBRID=1) ! these are the allowed callbacks predefined INTEGER CLES_HOOK_SGSFLUX INTEGER CLES_HOOK_VISCOUS INTEGER CLES_HOOK_OUTPUT INTEGER CLES_HOOK_SGSBLANK INTEGER CLES_HOOK_CONVECTIVE PARAMETER (CLES_HOOK_SGSFLUX=1) PARAMETER (CLES_HOOK_VISCOUS=2) PARAMETER (CLES_HOOK_OUTPUT=3) PARAMETER (CLES_HOOK_SGSBLANK=4) PARAMETER (CLES_HOOK_CONVECTIVE=5) ! error codes INTEGER CLESLOG_ERROR_ALLOCATE INTEGER CLESLOG_ERROR_DEALLOCATE PARAMETER (CLESLOG_ERROR_ALLOCATE=1) PARAMETER (CLESLOG_ERROR_DEALLOCATE=2)