Changeset 1726 for trunk/LMDZ.VENUS/libf/phyvenus/dyn1d

Timestamp:

Jul 22, 2017, 11:34:22 PM (7 years ago)

Author:

slebonnois

Message:

SL: adjustments after revision 1723, + some debug for cloud microphysics config and rcm1d

File:

• trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/dyn1d/rcm1d.F

@@ -451 +451 @@
         ENDDO
 
+c       calcul des traceurs au pas de temps suivant
+c       -------------------------------------------
+        if (iflag_trac.eq.1) then
+         DO iq=1,nqtot
+          DO ilayer=1,nlayer
+           q(ilayer,iq)=q(ilayer,iq)+dq(ilayer,iq)*dtphys
+          ENDDO
+         ENDDO
+        endif
+
 c       calcul des pressions au pas de temps suivant
-c       ----------------------------------------------------------
+c       --------------------------------------------
 
            psurf=psurf+dtphys*dpsurf(1)   ! evolution de la pression de surface