|
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:
902 bytes
|
| Line | |
|---|
| 1 | MODULE planete_h |
|---|
| 2 | IMPLICIT NONE |
|---|
| 3 | |
|---|
| 4 | REAL,SAVE :: aphelie ! Aphelion, in Mkm |
|---|
| 5 | REAL,SAVE :: periheli ! Perihelion, in Mkm |
|---|
| 6 | REAL,SAVE :: year_day ! Number of days in the year |
|---|
| 7 | !$OMP THREADPRIVATE(aphelie,periheli,year_day) |
|---|
| 8 | REAL,SAVE :: peri_day ! Date of perihelion, in days |
|---|
| 9 | REAL,SAVE :: obliquit ! Obliquity of the planet, in degrees |
|---|
| 10 | REAL,SAVE :: lmixmin |
|---|
| 11 | !$OMP THREADPRIVATE(peri_day,obliquit,lmixmin) |
|---|
| 12 | REAL,SAVE :: emin_turb |
|---|
| 13 | REAL,SAVE :: coefvis |
|---|
| 14 | REAL,SAVE :: coefir |
|---|
| 15 | !$OMP THREADPRIVATE(emin_turb,coefvis,coefir) |
|---|
| 16 | REAL,SAVE :: lsperi ! Solar longitude of the perihelion, angle in rad |
|---|
| 17 | REAL,SAVE :: e_elips ! Orbit eccentricity |
|---|
| 18 | REAL,SAVE :: p_elips ! Ellipse semi-latus rectum |
|---|
| 19 | REAL,SAVE :: unitastr ! Astronomical unit AU, in Mkm |
|---|
| 20 | !$OMP THREADPRIVATE(lsperi,e_elips,p_elips,unitastr) |
|---|
| 21 | |
|---|
| 22 | END MODULE planete_h |
|---|
Note: See
TracBrowser
for help on using the repository browser.
