Changeset 890

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

Location:

LMDZ4/trunk/libf/phylmd

Files:

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

LMDZ4/trunk/libf/phylmd/ini_histday.h

@@ -422 +422 @@
 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/trunk/libf/phylmd/ini_histmth.h

@@ -334 +334 @@
          DO nsrf = 1, nbsrf
 C
-          IF(nsrf.GT.2) THEN
+          IF(nsrf.GE.2) THEN
            call histdef(nid_mth, "pourc_"//clnsurf(nsrf), 
      $         "% "//clnsurf(nsrf), "%",  

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

LMDZ4/trunk/libf/phylmd/write_histmth.h

@@ -311 +311 @@
       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)