Changeset 2830 for LMDZ5/trunk

Timestamp:

Mar 24, 2017, 4:42:11 PM (8 years ago)

Author:

acozic

Message:

Add a missing OM MASTER directive for the strataer version.

File:

• LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -409 +409 @@
 #ifdef CPP_XIOS
 #ifdef CPP_StratAer
-    IF (.NOT.vars_defined) THEN
+!$OMP MASTER
+   IF (.NOT.vars_defined) THEN
           !On ajoute les variables 3D traceurs par l interface fortran 
           CALL xios_get_handle("fields_strataer_trac_3D", group_handle)
@@ -473 +474 @@
           ENDDO
     ENDIF
-#endif
-#endif
-
+!$OMP END MASTER
+#endif
+#endif
     ! ug la boucle qui suit ne sert qu'une fois, pour l'initialisation, sinon il n'y a toujours qu'un seul passage:
     DO iinit=1, iinitend