Changeset 2497 for LMDZ5/trunk/libf/phylmd/phyredem.F90

Timestamp:

Apr 18, 2016, 9:57:11 PM (8 years ago)

Author:

fhourdin

Message:

Declaration de ql_ancien et qs_ancien.

File:

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

LMDZ5/trunk/libf/phylmd/phyredem.F90

@@ -13 +13 @@
                                 sollwdown, rain_fall, snow_fall, z0m, z0h, &
                                 agesno, zmea, zstd, zsig, zgam, zthe, zpic, &
-                                zval, rugoro, t_ancien, q_ancien, u_ancien, &
+                                zval, rugoro, t_ancien, q_ancien, ql_ancien, qs_ancien,  u_ancien, &
                                 v_ancien, clwcon, rnebcon, ratqs, pbl_tke, &
                                 wake_delta_pbl_tke, zmax0, f0, sig1, w01, &
@@ -200 +200 @@
 
   CALL put_field("QANCIEN", "QANCIEN", q_ancien)
+
+  CALL put_field("QLANCIEN", "QLANCIEN", ql_ancien)
+
+  CALL put_field("QSANCIEN", "QSANCIEN", qs_ancien)
 
   CALL put_field("UANCIEN", "", u_ancien)