source: LMDZ6/branches/contrails/libf/phylmd/yoegwd_mod_h.f90 @ 5450

Last change on this file since 5450 was 5309, checked in by abarral, 7 weeks ago

Turn YOEGWD.h sisvat_weq into module
  • 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: 981 bytes
Line 
1! PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
2MODULE yoegwd_mod_h
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 yoegwd_mod_h
Note: See TracBrowser for help on using the repository browser.