Changeset 1821 for LMDZ5/trunk/libf/phylmd/iophy.F90

Timestamp:

Jul 30, 2013, 2:46:15 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Le passage de définition est maintenant effectué automatiquement lors du premier appel d'écriture à phys_output_write.
UG
.................................................
The definition run is now automatically triggered by the first writing call to phys_output_write.
UG

File:

• LMDZ5/trunk/libf/phylmd/iophy.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/iophy.F90

@@ -767 +767 @@
   ! On regarde si on est dans la phase de définition ou d'écriture:
   IF(.NOT.vars_defined) THEN
-
+!$OMP MASTER
       !Si phase de définition.... on définit
       DO iff=iff_beg, iff_end
@@ -774 +774 @@
          ENDIF
       ENDDO
+!$OMP END MASTER
   ELSE
 
@@ -861 +862 @@
   IF(.NOT.vars_defined) THEN
       !Si phase de définition.... on définit
+!$OMP MASTER
       DO iff=1, nfiles
         IF (clef_files(iff)) THEN
@@ -866 +868 @@
         ENDIF
       ENDDO
+!$OMP END MASTER
   ELSE
     !Et sinon on.... écrit