source: trunk/LMDZ.MARS/libf/phymars/yoegwd_h.F90 @ 3400

Last change on this file since 3400 was 2651, checked in by emillour, 3 years ago

Mars GCM:

  • turn sugwd.F to sugwd.F90 with extra comments
  • turn yoegwd.h into a module

JL+EM
File size: 748 bytes
Line 
1module yoegwd_h
2!     -----------------------------------------------------------------
3!*    *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS
4!     -----------------------------------------------------------------
5implicit none
6
7  real,save :: GFRCRIT
8  real,save :: GRCRIT
9  real,save :: GVCRIT
10!$OMP THREADPRIVATE(GFRCRIT,GRCRIT,GVCRIT)
11  real,save :: GKDRAG
12  real,save :: GKDRAGL
13  real,save :: GHMAX
14!$OMP THREADPRIVATE(GKDRAG,GKDRAGL,GHMAX)
15  real,save :: GRAHILO
16  real,save :: GSIGCR
17  real,save :: GSSEC
18!$OMP THREADPRIVATE(GRAHILO,GSIGCR,GSSEC)
19  real,save :: GTSEC
20  real,save :: GVSEC
21  real,save :: GKWAKE
22!$OMP THREADPRIVATE(GTSEC,GVSEC,GKWAKE)
23  integer ::  NKTOPG
24!$OMP THREADPRIVATE(NKTOPG)
25
26end module yoegwd_h
27
Note: See TracBrowser for help on using the repository browser.