Changeset 890 for LMDZ4/trunk/libf/phylmd/write_histmth.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/write_histmth.h (modified) (1 diff)

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)