Changeset 265 for trunk/LMDZ.MARS/libf/phymars/meso_inc

Timestamp:

Aug 5, 2011, 12:54:31 PM (14 years ago)

Author:

acolaitis

Message:

Corrected wrong definition for u* in mesoscale model

File:

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

trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_les.F

@@ -8 +8 @@
 
 ! New SL parametrization, ust is more accurately computed in vdif_cd :
-          ust(ig) = zcdv(ig)
+        ust(ig) = sqrt(zcdv(ig)*(pu(ig,1)*pu(ig,1) + pv(ig,1)*pv(ig,1)))
 
          ENDDO