Changeset 839 for LMDZ4/trunk/libf/phylmd

Timestamp:

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

Author:

lmdzadmin

Message:

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

File:

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

LMDZ4/trunk/libf/phylmd/physiq.F

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