|
Last change
on this file since 2616 was
2612,
checked in by romain.vande, 3 years ago
|
|
LMDZ_MARS RV : Open_MP;
Put all the "COMMON" of *.h file as "$OMP THREADPRIVATE"
|
|
File size:
543 bytes
|
| Line | |
|---|
| 1 | ! ----------------------------------------------------------------- |
|---|
| 2 | !* *COMMON* *YOEGWD* - PARAMETERS FOR GRAVITY WAVE DRAG CALCULATIONS |
|---|
| 3 | ! ----------------------------------------------------------------- |
|---|
| 4 | ! |
|---|
| 5 | real :: GFRCRIT,GRCRIT,GVCRIT,GKDRAG,GKDRAGL,GHMAX |
|---|
| 6 | real :: GRAHILO,GSIGCR,GSSEC, GTSEC, GVSEC, GKWAKE |
|---|
| 7 | integer :: NKTOPG |
|---|
| 8 | COMMON/YOEGWD/ GFRCRIT,GRCRIT,GVCRIT,GKDRAG,GKDRAGL,GHMAX & |
|---|
| 9 | & ,GRAHILO,GSIGCR,NKTOPG,GSSEC, GTSEC, GVSEC,GKWAKE |
|---|
| 10 | !$OMP THREADPRIVATE(/YOEGWD/) |
|---|
| 11 | |
|---|
| 12 | |
|---|
| 13 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
