Changeset 4146 for trunk/LMDZ.GENERIC/libf/phygeneric/condense_co2.F90

Timestamp:

Mar 19, 2026, 2:35:46 PM (10 days ago)

Author:

gmilcareck

Message:

Thermodynamics update on LMDZ.GENERIC

File:

• trunk/LMDZ.GENERIC/libf/phygeneric/condense_co2.F90 (modified) (3 diffs)

trunk/LMDZ.GENERIC/libf/phygeneric/condense_co2.F90

@@ -13 +13 @@
       USE geometry_mod, only: latitude ! in radians
       USE tracer_h, only: noms, rho_co2
-      use comcstfi_mod, only: g, r, cpp
+      use comcstfi_mod, only: g, rd_ref, cppd_ref
 
       implicit none
@@ -159 +159 @@
          endif
 
-         ccond=cpp/(g*latcond)
+         ccond=cppd_ref/(g*latcond)
          print*,'In condens_cloud: ccond=',ccond,' latcond=',latcond
 
@@ -287 +287 @@
                !w(ig,ilay,i_co2ice) = 0.0
                w(ig,ilay,i_co2ice) = vstokes *  subptimestep * &
-                   pplev(ig,ilay)/(r*pt(ig,ilay))
+                   pplev(ig,ilay)/(rd_ref*pt(ig,ilay))
 
             END DO