|
Last change
on this file since 3325 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 | |
|---|
| 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.
