Changeset 1387

Timestamp:

May 7, 2010, 12:50:28 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Correction of mixed MPI/OpenMP bug

---

Correction bug mixte MPI/OpenMP

Location:

LMDZ4/trunk/libf/phylmd

Files:

• planete.h (modified) (1 diff)
• solarlong.F (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/planete.h

@@ -11 +11 @@
 
 c-----------------------------------------------------------------------
+!$OMP THREADPRIVATE(/planet/)

LMDZ4/trunk/libf/phylmd/solarlong.F

@@ -61 +61 @@
       REAL :: pyear_day,pperi_day
       REAL :: jD_eq, jD_peri
+      LOGICAL,SAVE :: first=.TRUE.
+c$OMP THREADPRIVATE(first)
 
 c-----------------------------------------------------------------------
@@ -67 +69 @@
 
 c   Initialisation eventuelle:
-      if(.not.unitastr.gt.1.e-4) then
+      if(first) then
         call ioget_calendar(pyear_day)
         call ymds2ju(2000, 3, 21, 0., jD_eq)
@@ -76 +78 @@
 c         call iniorbit(249.22,206.66,669.,485.,25.2)
          call iniorbit(152.59,146.61,pyear_day,pperi_day,R_incl)
+         first=.FALSE.
       endif