Index: LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F	(revision 1140)
+++ LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F	(revision 1141)
@@ -671,12 +671,12 @@
 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),