Changeset 473

Timestamp:

09/05/16 15:43:48 (8 years ago)

Author:

ymipsl

Message:

Repairing openMP :
Only master thread may call XIOS

YM

File:

• codes/icosagcm/trunk/src/timeloop_gcm.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -220 +220 @@
 
     IF (xios_output) THEN ! we must call update_calendar before any XIOS output
-       CALL xios_update_calendar(1)
+      IF (is_omp_master) CALL xios_update_calendar(1)
     END IF
     CALL write_output_fields_basic(.TRUE., f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
@@ -229 +229 @@
 
        IF (xios_output) THEN
-          IF(it>itau0+1) CALL xios_update_calendar(it-itau0)
+
+          IF(it>itau0+1 .AND. is_omp_master) CALL xios_update_calendar(it-itau0)
        ELSE
           CALL update_time_counter(dt*it)