Changeset 1852 for LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

Timestamp:

Aug 30, 2013, 10:47:10 AM (11 years ago)

Author:

Ehouarn Millour

Message:

Implémentation des sorties XIOS dans LMDZ. Activation via -cpp CPP_XIOS.
ATTENTION: un problème de raccord subsiste en mode MPI !
UG
................................
Adding XIOS output to LMDZ. Activated by the CPP_XIOS key.
WARNING: buggy for now in MPI mode.
UG

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -90 +90 @@
      ! On le donne à iophy pour que les histwrite y aient accès:
      CALL set_itau_iophy(itau_w)
-
-    ! ug OMP en chantier...
-    !IF(is_using_mpi .AND. .NOT. is_mpi_root) THEN
-       ! vars_defined=.TRUE.
-    !END IF
-
+    
     IF(.NOT.vars_defined) THEN
         iinitend = 2
@@ -1066 +1061 @@
         IF(.NOT.vars_defined) THEN
 !$OMP MASTER
+#ifndef CPP_NO_IOIPSL 
             DO iff=1,nfiles
                 IF (clef_files(iff)) THEN
@@ -1074 +1070 @@
                 ENDIF ! clef_files
             ENDDO !  iff
+#endif
 #ifdef CPP_XIOS
             !On finalise l'initialisation:
             CALL wxios_closedef()
 #endif
+
 !$OMP END MASTER
 !$OMP BARRIER
@@ -1089 +1087 @@
     IF(vars_defined) THEN
 ! On synchronise les fichiers pour IOIPSL
+#ifndef CPP_NO_IOIPSL 
 !$OMP MASTER
       DO iff=1,nfiles
@@ -1096 +1095 @@
       END DO
 !$OMP END MASTER
+#endif
     ENDIF