Changeset 892

Timestamp:

Feb 5, 2008, 2:19:31 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

Location:

LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd

Files:

• ini_histday.h (modified) (1 diff)
• ini_histmth.h (modified) (2 diffs)
• write_histday.h (modified) (1 diff)
• write_histmth.h (modified) (1 diff)

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

@@ -404 +404 @@
 c
 cIM     IF (iflag_con.GE.3) THEN 
-         CALL histdef(nid_day, "ptop",
+          IF (ok_isccp) THEN
+            CALL histdef(nid_day, "ptop",
 c    .                "Cld top pressure","mb",
      .                "Cld top pressure (cf ISCCP simulator)","Pa",
      .                iim,jj_nb,nhori, 1,1,1,-99,
      .                32, "ave(X)", zstophy,zout)
+          ENDIF
 cIM     ENDIF !(iflag_con.GE.3) THEN 
 c

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

@@ -326 +326 @@
          DO nsrf = 1, nbsrf
 C
-          IF(nsrf.GT.2) THEN
+          IF(nsrf.GE.2) THEN
            call histdef(nid_mth, "pourc_"//clnsurf(nsrf), 
      $         "% "//clnsurf(nsrf), "%",  
@@ -336 +336 @@
      $         iim,jj_nb,nhori, 1,1,1, -99, 32,
      $         "ave(X)", zstophy,zout)
-          ENDIF !nsrf.GT.2
+          ENDIF !nsrf.GE.2
 C
            call histdef(nid_mth, "tsol_"//clnsurf(nsrf), 

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

@@ -364 +364 @@
 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))
+        IF (ok_isccp) THEN
+          CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
+        ENDIF
 cIM   ENDIF
 c

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

@@ -293 +293 @@
       DO nsrf = 1, nbsrf
 CYYY
-       IF(nsrf.GT.2) THEN
+       IF(nsrf.GE.2) THEN
         zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
 cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)