Changeset 890 for LMDZ4/trunk/libf/phylmd/write_histday.h

Timestamp:

Feb 5, 2008, 2:13:29 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Mise sous flag ok_ISCCP d'une sortie d'une variable dependant du simulateur
ISCCP
Correction coquille sur des sorties sous-surfaces
SD/LF

File:

• LMDZ4/trunk/libf/phylmd/write_histday.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_histday.h

@@ -401 +401 @@
 c
 cIM   IF (iflag_con.GE.3) THEN
+        if (ok_ISCCP) then
 cIM ema_pct= 0.     CALL gr_fi_ecrit(1, klon,iim,jjmp1, ema_pct,zx_tmp_2d)
-cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, meanptop(:,1),zx_tmp_2d)
-      CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
+cym       CALL gr_fi_ecrit(1, klon,iim,jjmp1, meanptop(:,1),zx_tmp_2d)
+          CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
+        ENDIF
 cIM   ENDIF
 c