Changeset 1999 for LMDZ5/branches/testing/libf/phylmd/YOEGWD.h

Timestamp:

Mar 20, 2014, 10:57:19 AM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r1920:1997 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/YOEGWD.h (modified) (1 diff)

LMDZ5/branches/testing/libf/phylmd/YOEGWD.h

@@ -13 +13 @@
       real GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
       real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
-      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT         &
-     &        ,GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC
+
+      REAL RUWMAX
+!     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
+
+      REAL SAT ! saturation parameter in "FLOTT_GWD_rando"
+!     S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013)
+
+
+      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT,        &
+     &     GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC,         &
+     &     RUWMAX, sat
+
+      save /YOEGWD/
 !$OMP THREADPRIVATE(/YOEGWD/)