source: LMDZ4/trunk/libf/phylmd/planete.h @ 3782

Last change on this file since 3782 was 1387, checked in by Laurent Fairhead, 14 years ago

Correction of mixed MPI/OpenMP bug


Correction bug mixte MPI/OpenMP

File size: 588 bytes
Line 
1c-----------------------------------------------------------------------
2c 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
12c-----------------------------------------------------------------------
13!$OMP THREADPRIVATE(/planet/)
Note: See TracBrowser for help on using the repository browser.