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

Last change on this file since 5151 was 5143, checked in by abarral, 3 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
RevLine 
[1562]1!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
[5143]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
[5099]6
[5143]7  INTEGER NKTOPG, NSTRA
8  REAL GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT
9  REAL GHMAX, GRAHILO, GSIGCR, GSSEC, GTSEC, GVSEC
[1938]10
[5143]11  REAL GWD_RANDO_RUWMAX
12  !     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
[1938]13
[5143]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)
[1938]16
[5143]17  REAL GWD_FRONT_RUWMAX, GWD_FRONT_SAT
18  ! Same as GWD_RANDO params but for fronal GWs
[1938]19
[5143]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.