Ignore:
Timestamp:
Mar 19, 2026, 2:35:46 PM (11 days ago)
Author:
gmilcareck
Message:

Thermodynamics update on LMDZ.GENERIC

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phygeneric/watercommon_h.F90

    r3663 r4146  
    2828      subroutine su_watercycle
    2929
    30       use comcstfi_mod, only: r, cpp, mugaz
     30      use comcstfi_mod, only: rd_ref, cppd_ref, mugaz_ref
    3131      implicit none
    3232
    … …  
    4545!==================================================================
    4646
    47       epsi   = mH2O / mugaz
    48       RCPD   = cpp 
     47      epsi   = mH2O / mugaz_ref
     48      RCPD   = cppd_ref
    4949
    5050      !RW = 1000.*R/mH2O
    … …  
    5656     
    5757! AB : initializations added for the thermal plume model
    58       RETV = RW / r - 1.
     58      RETV = RW / rd_ref - 1.
    5959      RLvCp = RLVTT / RCPD
    6060     
Note: See TracChangeset for help on using the changeset viewer.