Changeset 4951 for LMDZ6/branches/cirrus/libf/phylmd/phyredem.F90

Timestamp:

May 23, 2024, 12:02:33 PM (4 months ago)

Author:

aborella

Message:

New version of condensation and ice supersaturation in LSCP.
Multiple changes troughout the code (in particular, two new water phase tracers).

File:

• LMDZ6/branches/cirrus/libf/phylmd/phyredem.F90 (modified) (2 diffs)

LMDZ6/branches/cirrus/libf/phylmd/phyredem.F90

@@ -19 +19 @@
                                 zval, rugoro, t_ancien, q_ancien,            &
                                 prw_ancien, prlw_ancien, prsw_ancien, prbsw_ancien,      &
-                                ql_ancien, qs_ancien, qbs_ancien, rneb_ancien, u_ancien, &
-                                v_ancien, clwcon, rnebcon, ratqs, pbl_tke,   &
+                                ql_ancien, qs_ancien, qbs_ancien, cf_ancien, &
+                                rvc_ancien, u_ancien, v_ancien,              &
+                                clwcon, rnebcon, ratqs, pbl_tke,             &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
                                 wake_deltat, wake_deltaq, wake_s, awake_s,   &
@@ -252 +253 @@
     ENDIF
 
-    CALL put_field(pass,"RNEBANCIEN", "RNEBANCIEN", rneb_ancien)
+    IF ( ok_ice_supersat ) THEN
+      CALL put_field(pass,"CFANCIEN", "CFANCIEN", cf_ancien)
+      CALL put_field(pass,"RVCANCIEN", "RVCANCIEN", rvc_ancien)
+    ENDIF
 
     CALL put_field(pass,"PRWANCIEN", "PRWANCIEN", prw_ancien)