Changeset 4059 for LMDZ6/trunk/libf/phylmd/phyredem.F90

Timestamp:

Jan 21, 2022, 3:50:54 PM (2 years ago)

Author:

oboucher

Message:

Audran Borella's parametrisation for ice supersaturation
activated with flag_ice_sursat (FALSE by default)

File:

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

LMDZ6/trunk/libf/phylmd/phyredem.F90

@@ -19 +19 @@
                                 zval, rugoro, t_ancien, q_ancien,            &
                                 prw_ancien, prlw_ancien, prsw_ancien,        &
-                                ql_ancien, qs_ancien,  u_ancien,             &
+                                ql_ancien, qs_ancien, rneb_ancien, u_ancien, &
                                 v_ancien, clwcon, rnebcon, ratqs, pbl_tke,   &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01,    &
@@ -239 +239 @@
 
     CALL put_field(pass,"QSANCIEN", "QSANCIEN", qs_ancien)
+
+    CALL put_field(pass,"RNEBANCIEN", "RNEBANCIEN", rneb_ancien)
 
     CALL put_field(pass,"PRWANCIEN", "PRWANCIEN", prw_ancien)