Changeset 12901 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90

Timestamp:

2020-05-11T15:26:36+02:00 (4 years ago)

Author:

laurent

Message:

Fixed nasty tiny bug: constant "rctv0" for virtual air temperature!

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90

@@ -78 +78 @@
    REAL(wp), PARAMETER ::   R_vap = 461.495_wp    !: Specific gas constant for water vapor          [J/K/kg]
    REAL(wp), PARAMETER ::   reps0 = R_dry/R_vap   !: ratio of gas constant for dry air and water vapor => ~ 0.622
-   REAL(wp), PARAMETER ::   rctv0 = R_vap/R_dry   !: for virtual temperature (== (1-eps)/eps) => ~ 0.608
+   REAL(wp), PARAMETER ::   rctv0 = R_vap/R_dry - 1._wp !: for virtual temperature (== (1-eps)/eps) => ~ 0.608
 
    INTEGER , PARAMETER ::   jpfld   =10           ! maximum number of files to read