|
Last change
on this file since 3094 was
3094,
checked in by emillour, 13 months ago
|
|
Mars PCM:
Fix issues with dates when in parallel with OpenMP (missing copyin
statement when opening parallel section in iniphysiq). Added some threadprivate
clauses in saved module variables in comcstfi_h.F90 and planete_h.F90.
Prettyfied solarlong.F and made it a module. Likewise for conf_phys.F
EM
|
|
File size:
576 bytes
|
| Line | |
|---|
| 1 | MODULE comcstfi_h |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | REAL,SAVE :: pi ! something like 3.14159 |
|---|
| 5 | REAL,SAVE :: rad ! radius of the planet (m) |
|---|
| 6 | REAL,SAVE :: g ! gravity (m/s2) |
|---|
| 7 | !$OMP THREADPRIVATE(pi,rad,g) |
|---|
| 8 | REAL,SAVE :: r ! reduced gas constant (r=8.314511/(mugaz/1000.0)) |
|---|
| 9 | REAL,SAVE :: cpp ! Cp of the atmosphere |
|---|
| 10 | REAL,SAVE :: rcp ! r/cpp |
|---|
| 11 | !$OMP THREADPRIVATE(r,cpp,rcp) |
|---|
| 12 | REAL,SAVE :: mugaz ! molar mass of the atmosphere (g/mol) |
|---|
| 13 | REAL,SAVE :: omeg ! planet rotation rate (rad/s) |
|---|
| 14 | !$OMP THREADPRIVATE(mugaz,omeg) |
|---|
| 15 | |
|---|
| 16 | END MODULE comcstfi_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
