Changeset 918 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histday.h

Timestamp:

Feb 27, 2008, 4:24:26 PM (16 years ago)

Author:

Laurent Fairhead

Message:

• correction du bug ISCCP (n'ecrire ptop que quand ISCCP est appelé)
• petite inversion de boucle dans isccp_cloud_types.F pour aller + vite
• "CFisation" d'un certain nombre d'unités pour les hist*
• les suggestions de JL pour rugoro

SD
LF

File:

• LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histday.h (modified) (2 diffs)

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histday.h

@@ -342 +342 @@
       CALL histwrite_phy(nid_day,"tauy",itau_w,zx_tmp_fi2d)
 c
-cIM   IF (iflag_con.GE.3) 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)
-        IF (ok_isccp) THEN
-          CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
-        ENDIF
-cIM   ENDIF
-c
       ENDIF !lev_histday.GE.2
 c
@@ -542 +534 @@
 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, fiwc,zx_tmp_3d)
       CALL histwrite_phy(nid_day,"iwcon",itau_w,fiwc)
-c
-cym      CALL gr_fi_ecrit(1,klon,iim,jjmp1, meantaucld,zx_tmp_2d)
-      IF (ok_isccp) THEN
-      CALL histwrite_phy(nid_day,"meantaucld",itau_w,meantaucld)
-      ENDIF
 c
 cym      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldtau,zx_tmp_3d)