Changeset 2601 for LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

Timestamp:

Jul 24, 2016, 11:51:55 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn temps.h into module temps_mod.F90
EM

File:

• LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -32 +32 @@
   USE inifis_mod, ONLY: inifis
   USE time_phylmdz_mod, ONLY: init_time
+  USE temps_mod, ONLY: annee_ref, day_ini, day_ref, start_time
   USE infotrac_phy, ONLY: init_infotrac_phy
   USE phystokenc_mod, ONLY: init_phystokenc
@@ -52 +53 @@
   include "dimensions.h"
   include "iniprint.h"
-  include "temps.h"
   include "tracstoke.h"
 
@@ -98 +98 @@
   ! --> now initialize things specific to the phylmd physics package
   
-!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
+!!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
+!$OMP PARALLEL DEFAULT(SHARED) &
+!       Copy all threadprivate variables in temps_mod
+!$OMP COPYIN(annee_ref, day_ini, day_ref, start_time)
 
   ! copy over preff , ap(), bp(), etc 
@@ -144 +147 @@
 #endif
   END IF
-!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
 
+!!$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/)
+!$OMP PARALLEL DEFAULT(SHARED)
   ! Additional initializations for aquaplanets 
   IF (iflag_phys>=100) THEN