New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12896 – NEMO

Changeset 12896


Ignore:
Timestamp:
2020-05-11T12:09:19+02:00 (5 years ago)
Author:
laurent
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/releases/release-4.0.1/src/OCE/SBC/sbcblk.F90

    r11536 r12896  
    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.