Changeset 3084 for trunk/LMDZ.MARS/libf/phymars

Timestamp:

Oct 12, 2023, 1:55:17 PM (15 months ago)

Author:

llange

Message:

MARS PCM
Fixing a mistake in the computation of z0T (missing the + 5 kappa,
Brutsaert 1982)
LL

File:

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

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

@@ -218 +218 @@
      &       *pz0(ig)/(log(z1z0)*nu)
        pz0tcomp(ig)=pz0(ig)*exp(-karman*7.3*
-     &              (reynolds(ig)**0.25)*(prandtl(ig)**0.5))
+     &              (reynolds(ig)**0.25)*(prandtl(ig)**0.5)+5*karman)