Changeset 470

Timestamp:

09/05/16 14:57:05 (8 years ago)

Author:

ymipsl

Message:

Repairing openMP :
Only master thread may call XIOS

YM

File:

• codes/icosagcm/trunk/src/observable.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/observable.f90

@@ -61 +61 @@
     IF(init) THEN
        scalar(1)=dt
-       CALL xios_send_field("timestep", scalar)
+       IF (is_omp_master) CALL xios_send_field("timestep", scalar)
        scalar(1)=preff
-       CALL xios_send_field("preff", scalar)
-       CALL xios_send_field("ap",ap)
-       CALL xios_send_field("bp",bp)
+       IF (is_omp_master) CALL xios_send_field("preff", scalar)
+       IF (is_omp_master) CALL xios_send_field("ap",ap)
+       IF (is_omp_master) CALL xios_send_field("bp",bp)
        DO l=1,llm
           mid_ap(l)=(ap(l)+ap(l+1))/2
           mid_bp(l)=(bp(l)+bp(l+1))/2
        ENDDO
-       CALL xios_send_field("mid_ap",mid_ap)
-       CALL xios_send_field("mid_bp",mid_bp)
+       IF (is_omp_master) CALL xios_send_field("mid_ap",mid_ap)
+       IF (is_omp_master) CALL xios_send_field("mid_bp",mid_bp)
 
        CALL output_field("phis",f_phis)