diff --git a/Source/cons.f90 b/Source/cons.f90 index deb4b059077..4d0acc27d21 100644 --- a/Source/cons.f90 +++ b/Source/cons.f90 @@ -471,7 +471,7 @@ MODULE GLOBAL_CONSTANTS REAL(EB) :: RTE_SOURCE_CORRECTION_FACTOR=1._EB !< Multiplicative factor used in correcting RTE source term REAL(EB) :: RAD_Q_SUM=0._EB !< \f$ \sum_{ijk} \left( \chi_{\rm r} \dot{q}_{ijk}''' + \kappa_{ijk} U_{ijk} \right) V_{ijk} \f$ REAL(EB) :: KFST4_SUM=0._EB !< \f$ \sum_{ijk} 4 \kappa_{ijk} \sigma T_{ijk}^4 V_{ijk} \f$ -REAL(EB) :: QR_CLIP=1._EB !< Lower bound of \f$ \chi_{\rm r} \dot{q}_{ijk}''' \f$ below which no source correction is made +REAL(EB) :: QR_CLIP=10._EB !< Lower bound of \f$ \chi_{\rm r} \dot{q}_{ijk}''' \f$ below which no source correction is made REAL(EB) :: C_MAX=100._EB !< Maximum value of RAD_Q_SUM/KFST4_SUM REAL(EB) :: C_MIN=0.1_EB !< Minimum value of RAD_Q_SUM/KFST4_SUM