source: LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_YOEGWD.f90 @ 5225

Last change on this file since 5225 was 5143, checked in by abarral, 4 months ago

Put YOEGWD.h, FCTTRE.h into modules
  • 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: 1003 bytes
Line 
1!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
2MODULE lmdz_YOEGWD
3  IMPLICIT NONE; PRIVATE
4  PUBLIC GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
5          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat
6
7  INTEGER NKTOPG, NSTRA
8  REAL GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT
9  REAL GHMAX, GRAHILO, GSIGCR, GSSEC, GTSEC, GVSEC
10
11  REAL GWD_RANDO_RUWMAX
12  !     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
13
14  REAL GWD_RANDO_SAT ! saturation parameter in "FLOTT_GWD_rando"
15  !     S_c in equation (12) of Lott (JGR, vol 118, page 8897, 2013)
16
17  REAL GWD_FRONT_RUWMAX, GWD_FRONT_SAT
18  ! Same as GWD_RANDO params but for fronal GWs
19
20  !$OMP THREADPRIVATE(GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT, GHMAX, GRAHILO, GSIGCR, NKTOPG, NSTRA, GSSEC, GTSEC, GVSEC, &
21  !$OMP          GWD_RANDO_RUWMAX, gwd_rando_sat, GWD_FRONT_RUWMAX, gwd_front_sat)
22END MODULE lmdz_YOEGWD
Note: See TracBrowser for help on using the repository browser.