Changeset 3348 for LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

Timestamp:

Jun 26, 2018, 11:50:32 AM (6 years ago)

Author:

idelkadi

Message:

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

File:

• LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90 (modified) (2 diffs)

LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/cosp/phys_cosp.F90

@@ -408 +408 @@
       CLOSE(10)
     ENDIF
+!$OMP BARRIER
+
     CALL bcast(overlap)
     CALL bcast(isccp_topheight)
@@ -440 +442 @@
     CALL bcast(n2o)
     CALL bcast(co)
-!$OMP BARRIER  
   END SUBROUTINE read_cosp_input