Changeset 12901


Ignore:
Timestamp:
2020-05-11T15:26:36+02:00 (7 months ago)
Author:
laurent
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcblk.F90

    r12276 r12901  
    7878   REAL(wp), PARAMETER ::   R_vap = 461.495_wp    !: Specific gas constant for water vapor          [J/K/kg] 
    7979   REAL(wp), PARAMETER ::   reps0 = R_dry/R_vap   !: ratio of gas constant for dry air and water vapor => ~ 0.622 
    80    REAL(wp), PARAMETER ::   rctv0 = R_vap/R_dry   !: for virtual temperature (== (1-eps)/eps) => ~ 0.608 
     80   REAL(wp), PARAMETER ::   rctv0 = R_vap/R_dry - 1._wp !: for virtual temperature (== (1-eps)/eps) => ~ 0.608 
    8181 
    8282   INTEGER , PARAMETER ::   jpfld   =10           ! maximum number of files to read 
Note: See TracChangeset for help on using the changeset viewer.