Changeset 1460 for trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

Timestamp:

Jun 22, 2015, 9:51:00 AM (9 years ago)

Author:

slebonnois

Message:

SL: bug dans la prise en compte de d_tr_vdf dans la physique (Venus)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/physiq.F (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/physiq.F

@@ -1069 +1069 @@
    
          DO iq=1, nqmax
-c  AS: changement
-c  Pourquoi d_tr_vdf(1,1,iq) et tr_seri(1,1,iq)
-c  et pas d_tr_vdf(:,:,iq) tr_seri(:,:,iq)
-c  Je vois pas en quoi cltrac ne prendrait en compte que le traceur à la surface et au point 1 en klon
-c
-
-c  Je garde le source(:,iq) parce que je comprend pas sinon source 
-c   dimension(klon,nqmax) et flux dans cltrac (klon) ???
-
-c             CALL cltrac(dtime,ycoefh,t_seri,
-c     s               tr_seri(1,1,iq),source(:,iq),
-c     e               paprs, pplay,delp,
-c     s               d_tr_vdf(1,1,iq))
      
              CALL cltrac(dtime,ycoefh,t_seri,
@@ -1091 +1078 @@
              d_tr_vdf(:,:,iq)= d_tr_vdf(:,:,iq)/dtime          ! /s
 
-         DO k = 1, klev
-         DO i = 1, klon
-            tr_seri(i,k,iq) = tr_seri(i,k,iq) + d_tr_vdf(i,k,iq)
-            d_tr_vdf(i,k,iq)= d_tr_vdf(i,k,iq)/dtime          ! /s
-         ENDDO
-         ENDDO
-         
          ENDDO !nqmax