Changeset 1141 for LMDZ4


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1114 r1141  
    671671C         CALL minmaxqfi(tr_seri(1,1,it),0.,1.e33,'cltracrn it='//itn)
    672672      else ! couche limite avec flux prescrit
    673 #ifndef INCA
    674 
     673
     674         IF (config_inca == 'none') THEN
    675675Cmaf provisoire source / traceur a creer
    676         DO i=1, klon
    677           source(i,it) = 0.0 ! pas de source, pour l'instant
    678         ENDDO
    679 C
    680 #endif
     676            DO i=1, klon
     677               source(i,it) = 0.0 ! pas de source, pour l'instant
     678            ENDDO
     679         END IF
     680
    681681          CALL cltrac(pdtphys, coefh,t_seri,
    682682     s               tr_seri(1,1,it), source(:,it),
Note: See TracChangeset for help on using the changeset viewer.