Changeset 1249 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/oasis.F90

Timestamp:

Oct 21, 2009, 6:04:08 PM (15 years ago)

Author:

yann meurdesoif

Message:

Corrections de Bug divers - portage vers Titane (CCRT) -
YM

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/oasis.F90 (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/oasis.F90

@@ -68 +68 @@
   END TYPE FLD_CPL
 
-  TYPE(FLD_CPL), DIMENSION(maxsend), PUBLIC :: infosend   ! Information for sending coupling fields
-  TYPE(FLD_CPL), DIMENSION(maxrecv), PUBLIC :: inforecv   ! Information for receiving coupling fields
-  
-  LOGICAL :: cpl_current
+  TYPE(FLD_CPL), DIMENSION(maxsend), SAVE, PUBLIC :: infosend   ! Information for sending coupling fields
+  TYPE(FLD_CPL), DIMENSION(maxrecv), SAVE, PUBLIC :: inforecv   ! Information for receiving coupling fields
+  
+  LOGICAL,SAVE :: cpl_current
+!$OMP THREADPRIVATE(cpl_current)
 
 #ifdef CPP_COUPLE
@@ -140 +141 @@
 ! Atmospheric variables to send
 
+!$OMP MASTER
     infosend(:)%action = .FALSE.
 
@@ -288 +290 @@
        WRITE(lunout,*) 'inicma : endef psmile ok '
     ENDIF
+
+!$OMP END MASTER
     
   END SUBROUTINE inicma