Changeset 3835 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/time_phylmdz_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/time_phylmdz_mod.f90 (modified) (3 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/time_phylmdz_mod.f90

@@ -2 +2 @@
 
     REAL,SAVE    :: pdtphys     ! physics time step (s)
+!$OMP THREADPRIVATE(pdtphys)
     INTEGER,SAVE :: day_step    ! number of physical steps per day
+!$OMP THREADPRIVATE(day_step)
     INTEGER,SAVE :: ndays       ! number of days to run
+!$OMP THREADPRIVATE(ndays)
     INTEGER,SAVE :: annee_ref   ! reference year from the origin
+!$OMP THREADPRIVATE(annee_ref)
     INTEGER,SAVE :: day_ref     ! reference year of the origin
+!$OMP THREADPRIVATE(day_ref)
     INTEGER,SAVE :: day_ini     ! initial day of the run starting from 1st january of annee_ref
+!$OMP THREADPRIVATE(day_ini)
     INTEGER,SAVE :: day_end     ! final day of the run starting from 1st january of annee_ref
+!$OMP THREADPRIVATE(day_end)
     REAL,SAVE    :: start_time  ! starting time from the begining of the initial day
+!$OMP THREADPRIVATE(start_time)
     INTEGER,SAVE :: raz_date
+!$OMP THREADPRIVATE(raz_date)
 
     INTEGER,SAVE :: itau_phy     ! number of physiq iteration from origin
+!$OMP THREADPRIVATE(itau_phy)
     INTEGER,SAVE :: itaufin      ! final iteration 
+!$OMP THREADPRIVATE(itaufin)
     REAL,SAVE    :: current_time ! current elapsed time (s) from the begining of the run
-
+!$OMP THREADPRIVATE(current_time)
     
 
@@ -22 +33 @@
   USE ioipsl, ONLY : getin
   USE phys_cal_mod, ONLY: phys_cal_init
+  USE mod_phys_lmdz_para
   IMPLICIT NONE
   INCLUDE 'YOMCST.h'
@@ -42 +54 @@
   
     raz_date = 0
-    CALL getin('raz_date', raz_date)
+    IF (is_master) CALL getin('raz_date', raz_date)
+    CALL bcast(raz_date)
     current_time=0