Changeset 1141 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F

Timestamp:

Apr 3, 2009, 10:47:06 AM (16 years ago)

Author:

jghattas

Message:

Correction de l'utilisation de cle cpp INCA versus flag config_inca.

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F

@@ -671 +671 @@
 C         CALL minmaxqfi(tr_seri(1,1,it),0.,1.e33,'cltracrn it='//itn)
       else ! couche limite avec flux prescrit
-#ifndef INCA
-
+
+         IF (config_inca == 'none') THEN
 Cmaf provisoire source / traceur a creer
-        DO i=1, klon
-          source(i,it) = 0.0 ! pas de source, pour l'instant
-        ENDDO
-C
-#endif
+            DO i=1, klon
+               source(i,it) = 0.0 ! pas de source, pour l'instant
+            ENDDO
+         END IF
+
           CALL cltrac(pdtphys, coefh,t_seri,
      s               tr_seri(1,1,it), source(:,it),