Changeset 3835 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_cal_mod.F90

Timestamp:

Jun 18, 2015, 1:53:21 PM (9 years ago)

Author:

ymipsl

Message:

Some missing threadprivate...

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_cal_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/phys_cal_mod.F90

@@ -3 +3 @@
 ! This module contains information on the calendar at the actual time step
 
-  SAVE
-
-  INTEGER :: year_cur      ! current year
-  INTEGER :: mth_cur       ! current month
-  INTEGER :: day_cur       ! current day
-  INTEGER :: days_elapsed  ! number of whole days since start of the simulation 
-  INTEGER :: mth_len       ! number of days in the current month
-  INTEGER :: year_len      ! number of days in the current year
-  REAL    :: hour
-  REAL    :: jD_1jan
-  REAL    :: jH_1jan
-  REAL    :: xjour
-  REAL    :: jD_cur  ! jour courant a l'appel de la physique (jour julien)
-  REAL    :: jH_cur  ! heure courante a l'appel de la physique (jour julien)
-  REAL    :: jD_ref  ! jour du demarage de la simulation (jour julien)
+  INTEGER,SAVE :: year_cur      ! current year
+!$OMP THREADPRIVATE(year_cur)
+  INTEGER,SAVE :: mth_cur       ! current month
+!$OMP THREADPRIVATE(mth_cur)
+  INTEGER,SAVE :: day_cur       ! current day
+!$OMP THREADPRIVATE(day_cur)
+  INTEGER,SAVE :: days_elapsed  ! number of whole days since start of the simulation 
+!$OMP THREADPRIVATE(days_elapsed)
+  INTEGER,SAVE :: mth_len       ! number of days in the current month
+!$OMP THREADPRIVATE(mth_len)
+  INTEGER,SAVE :: year_len      ! number of days in the current year
+!$OMP THREADPRIVATE(year_len)
+  REAL,SAVE    :: hour
+!$OMP THREADPRIVATE(hour)
+  REAL,SAVE    :: jD_1jan
+!$OMP THREADPRIVATE(jD_1jan)
+  REAL,SAVE    :: jH_1jan
+!$OMP THREADPRIVATE(jH_1jan)
+  REAL,SAVE    :: xjour
+!$OMP THREADPRIVATE(xjour)
+  REAL,SAVE    :: jD_cur  ! jour courant a l'appel de la physique (jour julien)
+!$OMP THREADPRIVATE(jD_cur)
+  REAL,SAVE    :: jH_cur  ! heure courante a l'appel de la physique (jour julien)
+!$OMP THREADPRIVATE(jH_cur)
+  REAL,SAVE    :: jD_ref  ! jour du demarage de la simulation (jour julien)
+!$OMP THREADPRIVATE(jD_ref)