source: LMDZ6/branches/Amaury_dev/libf/phylmd/YOEGWD.h @ 5133

Last change on this file since 5133 was 5128, checked in by abarral, 5 months ago

Correct bug in vlspltqs_loc.f90 from r2270 where we call SSUM with incorrect arguments.
Merge the three different versions of abort_gcm into one
Fix seq, para 3D compilation broken from r5107 onwards
(lint) usual + Remove uneeded fixed-form continuations
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.3 KB
RevLine 
[5099]1
[524]2! $Header$
[5099]3
[1562]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!     -----------------------------------------------------------------
[5099]11
[5117]12      INTEGER NKTOPG,NSTRA
13      REAL GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT
14      REAL GHMAX,GRAHILO,GSIGCR,GSSEC,GTSEC,GVSEC
[1938]15
[2072]16      REAL GWD_RANDO_RUWMAX
[1938]17!     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
18
[2072]19      REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando"
[1938]20!     S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013)
21
[2357]22      REAL GWD_FRONT_RUWMAX,GWD_FRONT_SAT
23! Same as GWD_RANDO params but for fronal GWs
[1938]24
[2357]25
[1938]26      COMMON/YOEGWD/ GFRCRIT,GKWAKE,GRCRIT,GVCRIT,GKDRAG,GKLIFT,        &
[5128]27           GHMAX,GRAHILO,GSIGCR,NKTOPG,NSTRA,GSSEC,GTSEC,GVSEC,         &
28           GWD_RANDO_RUWMAX, gwd_rando_sat,                             &
29           GWD_FRONT_RUWMAX, gwd_front_sat
[1938]30
31      save /YOEGWD/
[1562]32!$OMP THREADPRIVATE(/YOEGWD/)
Note: See TracBrowser for help on using the repository browser.