Changeset 1421 for LMDZ4/trunk/libf/phylmd/phytrac.F90

Timestamp:

Jul 28, 2010, 3:28:42 PM (14 years ago)

Author:

jghattas

Message:

• Fixed problems with pseudo-vapor tracers.
• Removed variable nseuil. The transport with convection can be desactivated with the variable conv_flg instead of nseuil.

File:

• LMDZ4/trunk/libf/phylmd/phytrac.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/phytrac.F90

@@ -241 +241 @@
   CASE('lmdz')
      !    -- Traitement des traceurs avec traclmdz
-     
      CALL traclmdz(nstep, julien, gmtime, pdtphys, t_seri, paprs, pplay, &
           cdragh,  coefh, yu1, yv1, ftsol, pctsrf, xlat, xlon, couchelimite, &
           sh, tr_seri, source, solsym, d_tr_cl, zmasse)
-     
   CASE('inca')
      !    -- CHIMIE INCA  config_inca = aero or chem --
@@ -281 +279 @@
         END IF
 
-!IM ajout traceurs RR 
-!      print*,'phytrac it,nseuil=',it,nseuil
-       IF (it.lt.nseuil) THEN
         DO k = 1, klev
            DO i = 1, klon        
@@ -289 +284 @@
            END DO
         END DO
-       END IF !(it.lt.nseuil) then
 
         CALL minmaxqfi(tr_seri(:,:,it),0.,1.e33,'convection it = '//solsym(it))