Last change
on this file since 5373 was
1387,
checked in by Laurent Fairhead, 15 years ago
|
Correction of mixed MPI/OpenMP bug
Correction bug mixte MPI/OpenMP
|
File size:
588 bytes
|
Line | |
---|
1 | c----------------------------------------------------------------------- |
---|
2 | c INCLUDE planet.h |
---|
3 | |
---|
4 | COMMON/planet/aphelie,periheli,year_day,peri_day, & |
---|
5 | & obliquit, & |
---|
6 | & timeperi,e_elips,p_elips,unitastr |
---|
7 | |
---|
8 | REAL aphelie,periheli,year_day,peri_day, & |
---|
9 | & obliquit, & |
---|
10 | & timeperi,e_elips,p_elips,unitastr |
---|
11 | |
---|
12 | c----------------------------------------------------------------------- |
---|
13 | !$OMP THREADPRIVATE(/planet/) |
---|
Note: See
TracBrowser
for help on using the repository browser.