Changeset 892 for LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/ini_histday.h

Timestamp:

Feb 5, 2008, 2:19:31 PM (16 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/branches/LMDZ4_V3_patches/libf/phylmd/ini_histday.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