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

Timestamp:

Aug 2, 2013, 4:36:53 PM (11 years ago)

Author:

Ehouarn Millour

Message:

Première étape de l'implémentation de XIOS. Modifications isolées dans des flags CPP_XIOS. Sorties opérationnelles (sauf stations et régionalisation) en modes séquentiel et omp, pas mpi.
UG
...........................................
First step of the XIOS implementation. Modifications are confined into CPP_XIOS flags. Output is operationnal (except for stations and regionalization) in sequential and omp modes (not mpi).
UG

File:

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

LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90

@@ -39 +39 @@
     USE write_field_phy
     USE iophy
+    USE mod_phys_lmdz_para
+
+#ifdef CPP_XIOS
+    ! ug Pour les sorties XIOS
+        USE wxios
+    USE xios
+#endif
 
     IMPLICIT NONE
@@ -80 +87 @@
      ! 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
@@ -88 +101 @@
 ! ug la boucle qui suit ne sert qu'une fois, pour l'initialisation, sinon il n'y a toujours qu'un seul passage:
 DO iinit=1, iinitend
+#ifdef CPP_XIOS
+IF (vars_defined) THEN
+     CALL wxios_update_calendar(itau_w)
+END IF
+#endif
 ! On procède à l'écriture ou à la définition des nombreuses variables:
 !!! Champs 1D !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -993 +1011 @@
                 ENDIF ! clef_files
             ENDDO !  iff
+#ifdef CPP_XIOS
+            !On finalise l'initialisation:
+            CALL wxios_closedef()
+#endif
 !$OMP END MASTER
 !$OMP BARRIER