Changeset 265 for trunk/LMDZ.MARS/libf/phymars/vdif_cd.F

Timestamp:

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

Author:

acolaitis

Message:

Corrected wrong definition for u* in mesoscale model

File:

• trunk/LMDZ.MARS/libf/phymars/vdif_cd.F (modified) (3 diffs)

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

@@ -74 +74 @@
       REAL pz0t        ! initial thermal roughness length. (local)
       REAL ric         ! critical richardson number
+      REAL reynolds(ngrid)    ! reynolds number for UBL
       REAL prandtl(ngrid)     ! prandtl number for UBL
-      REAL reynolds(ngrid)    ! reynolds number for UBL
       REAL pz0tcomp(ngrid)     ! computed z0t
       REAL ite
@@ -101 +101 @@
 c phim = 1+betam*zeta   or   (1-bm*zeta)**am
 c phih = alphah + betah*zeta    or   alphah(1.-bh*zeta)**ah
-c am=-0.5, ah=-0.25
+c am=-0.25, ah=-0.5
 
       pz0t = 0.     ! for the sake of simplicity
@@ -199 +199 @@
        
       ENDDO
-
+!
 !      print*,'new : cd,ch; ',pcdv,pcdh