Changeset 890 for LMDZ4/trunk/libf/phylmd/ini_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/ini_histday.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