Changeset 1518 for LMDZ5/trunk/libf/phylmd/phys_output_write.h

Timestamp:

May 12, 2011, 3:32:22 PM (13 years ago)

Author:

idelkadi

Message:

Modifications des routines de convection :

• correction de bug : le champ sigd n'etait pas decompresse avant d'etre sorti de la convection.
• sortir de nouveaux champs de convection (plcl, plfc, wb)

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write.h (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/phys_output_write.h

@@ -550 +550 @@
       CALL histwrite_phy(nid_files(iff),o_fbase%name,itau_w,ema_cbmf)
         ENDIF
+
+        IF (o_plcl%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_plcl%name,itau_w,plcl)
+        ENDIF
+
+        IF (o_plfc%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_plfc%name,itau_w,plfc)
+        ENDIF
+
+        IF (o_wbeff%flag(iff)<=lev_files(iff)) THEN
+      CALL histwrite_phy(nid_files(iff),o_wbeff%name,itau_w,wbeff)
+        ENDIF
+
 
         IF (o_prw%flag(iff)<=lev_files(iff)) THEN