source: LMDZ6/trunk/libf/phylmd/yoegwd_mod_h.f90 @ 5409

Last change on this file since 5409 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
RevLine 
[5309]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
[1938]6
[5309]7  INTEGER NKTOPG, NSTRA
8  REAL GFRCRIT, GKWAKE, GRCRIT, GVCRIT, GKDRAG, GKLIFT
9  REAL GHMAX, GRAHILO, GSIGCR, GSSEC, GTSEC, GVSEC
[1938]10
[5309]11  REAL GWD_RANDO_RUWMAX
12  !     Maximum Eliassen-Palm flux at launch level, in "FLOTT_GWD_rando"
[1938]13
[5309]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
[5309]17  REAL GWD_FRONT_RUWMAX, GWD_FRONT_SAT
18  ! Same as GWD_RANDO params but for fronal GWs
[2357]19
[5309]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.