|
Last change
on this file since 3945 was
3754,
checked in by afalco, 7 months ago
|
|
Pluto: imported orographic gravity waves from Mars.
AF
|
|
File size:
748 bytes
|
| Line | |
|---|
| 1 | module yoegwd_h |
|---|
| 2 | ! ----------------------------------------------------------------- |
|---|
| 3 | !* *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS |
|---|
| 4 | ! ----------------------------------------------------------------- |
|---|
| 5 | implicit 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 | |
|---|
| 26 | end module yoegwd_h |
|---|
| 27 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
