Changeset 524

Timestamp:

Feb 10, 2012, 11:37:02 PM (13 years ago)

Author:

acolaitis

Message:

vdifc: there was an inconsistency in surface atmosphere flux computation for tracers: those were not using coefficients and gustiness from the new surface layer model.

File:

• trunk/LMDZ.MARS/libf/phymars/vdifc.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/vdifc.F

@@ -633 +633 @@
 c     Using the wind modified by friction for lifting and  sublimation
 c     ----------------------------------------------------------------
-        DO ig=1,ngrid
-          zu2(ig)=zu(ig,1)*zu(ig,1)+zv(ig,1)*zv(ig,1)
-          zcdv(ig)=zcdv_true(ig)*sqrt(zu2(ig))
-          zcdh(ig)=zcdh_true(ig)*sqrt(zu2(ig))
-        ENDDO
+c        DO ig=1,ngrid
+c          zu2(ig)=zu(ig,1)*zu(ig,1)+zv(ig,1)*zv(ig,1)
+c          zcdv(ig)=zcdv_true(ig)*sqrt(zu2(ig))
+c          zcdh(ig)=zcdh_true(ig)*sqrt(zu2(ig))
+c        ENDDO
 
 c       Calcul du flux vertical au bas de la premiere couche (dust) :