Changeset 5055 for LMDZ6/branches/cirrus/libf/phylmdiso/phyredem.F90

Timestamp:

Jul 15, 2024, 10:42:14 PM (4 months ago)

Author:

evignon

Message:

coherence entre phylmdiso et phylmd

File:

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

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

@@ -19 +19 @@
                                 zval, rugoro, t_ancien, q_ancien,            &
                                 prw_ancien, prlw_ancien, prsw_ancien, prbsw_ancien,      &
-                                ql_ancien, qs_ancien, qbs_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, wake_dens, &
@@ -265 +266 @@
        CALL put_field(pass,"QBSANCIEN", "QBSANCIEN", qbs_ancien)
        CALL put_field(pass,"PRBSWANCIEN", "PRBSWANCIEN", prbsw_ancien)
+    ENDIF
+
+    IF ( ok_ice_supersat ) THEN
+      CALL put_field(pass,"CFANCIEN", "CFANCIEN", cf_ancien)
+      CALL put_field(pass,"RVCANCIEN", "RVCANCIEN", rvc_ancien)
     ENDIF