source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phyiso/YOEGWD.h @ 5427

Last change on this file since 5427 was 3331, checked in by acozic, 7 years ago

Add modification for isotopes

  • Property svn:executable set to *
File size: 1.3 KB
RevLine 
[3331]1!
2! $Header$
3!
4!  ATTENTION : ce fichier include est compatible format fixe/format libre
5!                 veillez  n'utiliser que des ! pour les commentaires
6!                 et  bien positionner les & des lignes de continuation
7!                 (les placer en colonne 6 et en colonne 73)
8!     -----------------------------------------------------------------
9!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
10!     -----------------------------------------------------------------
11!
12      integer NKTOPG,NSTRA
13      real GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
14      real GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
15
16      REAL GWD_RANDO_RUWMAX
17!     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
18
19      REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando"
20!     S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013)
21
22      REAL GWD_FRONT_RUWMAX,GWD_FRONT_SAT
23! Same as GWD_RANDO params but for fronal GWs
24
25
26      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT,        &
27     &     GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC,         &
28     &     GWD_RANDO_RUWMAX, gwd_rando_sat,                             &
29     &     GWD_FRONT_RUWMAX, gwd_front_sat
30
31      save /YOEGWD/
32!$OMP THREADPRIVATE(/YOEGWD/)
Note: See TracBrowser for help on using the repository browser.