Changeset 3347 for LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

Timestamp:

Jun 26, 2018, 11:12:19 AM (6 years ago)

Author:

idelkadi

Message:

Correction de la gestion des cles logiques de sorties COSP (en mode OpenMP)

File:

• LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/cosp/phys_cosp.F90

@@ -343 +343 @@
 
 !+++++++++++++ Open output files and define output files axis !+++++++++++++
-!    if (debut_cosp) then
+    if (debut_cosp) then
 
       !$OMP MASTER
@@ -353 +353 @@
       !$OMP BARRIER
         debut_cosp=.false.
-!      endif ! debut_cosp
+      endif ! debut_cosp
 !    else
 !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
@@ -408 +408 @@
       CLOSE(10)
     ENDIF
+!$OMP BARRIER
     CALL bcast(overlap)
     CALL bcast(isccp_topheight)
@@ -440 +441 @@
     CALL bcast(n2o)
     CALL bcast(co)
-!$OMP BARRIER  
+
   END SUBROUTINE read_cosp_input