Changeset 4521

Timestamp:

May 2, 2023, 3:45:00 PM (13 months ago)

Author:

evignon

Message:

petite correction de phyredem dans phylmdiso pour convergence du restartphy

File:

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

LMDZ6/branches/blowing_snow/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, rneb_ancien, u_ancien, &
+                                ql_ancien, qs_ancien, qbs_ancien,  u_ancien, &
                                 v_ancien, clwcon, rnebcon, ratqs, pbl_tke,   &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
@@ -266 +266 @@
        CALL put_field(pass,"PRBSWANCIEN", "PRBSWANCIEN", prbsw_ancien)
     ENDIF
-
-    CALL put_field(pass,"RNEBANCIEN", "RNEBANCIEN", rneb_ancien)
 
     CALL put_field(pass,"PRWANCIEN", "PRWANCIEN", prw_ancien)