Changeset 505 for trunk/LMDZ.MARS/libf

Timestamp:

Jan 24, 2012, 6:38:03 PM (13 years ago)

Author:

acolaitis

Message:

Mesoscale/Les?. Sorry, parenthesis error in previous commit.

File:

• trunk/LMDZ.MARS/libf/phymars/meso_inc/meso_inc_les.F (modified) (2 diffs)

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

@@ -20 +20 @@
             sensheat(ig) = (pplay(ig,1)/(r*pt(ig,1)))*cpp
      &        *sqrt(pu(ig,1)*pu(ig,1) + pv(ig,1)*pv(ig,1)
-     &        + (log(1.+0.7*wstar(ig) + 2.3*wstar(ig)**2)**2))
+     &        + (log(1.+0.7*wstar(ig) + 2.3*wstar(ig)**2))**2)
      &        *zcdh(ig)*(tsurf(ig)-zh(ig,1))
 
@@ -27 +27 @@
             ustar(ig) = sqrt(zcdv(ig)*
      &   (pu(ig,1)*pu(ig,1) + pv(ig,1)*pv(ig,1) 
-     &     + (log(1.+0.7*wstar(ig) + 2.3*wstar(ig)**2)**2))
+     &     + (log(1.+0.7*wstar(ig) + 2.3*wstar(ig)**2))**2)
      &                     )
-
             ENDDO