Changeset 839 for LMDZ4/trunk/libf/phytherm/physiq.F

Timestamp:

Aug 31, 2007, 11:41:13 AM (17 years ago)

Author:

lmdzadmin

Message:

Appel simulateur ISCCP au cas ou "#define histISCCP"
IM

File:

• LMDZ4/trunk/libf/phytherm/physiq.F (modified) (2 diffs)

LMDZ4/trunk/libf/phytherm/physiq.F

@@ -2633 +2633 @@
 cIM calcul nuages par le simulateur ISCCP
 c
+#ifdef histISCCP
       IF (ok_isccp) THEN
 cIM appel simulateur toutes les  NINT(freq_ISCCP/dtime) heures
@@ -2639 +2640 @@
        ENDIF !(MOD(itap,NINT(freq_ISCCP/dtime))
       ENDIF !ok_isccp
+#endif
 
 c   On prend la somme des fractions nuageuses et des contenus en eau