Changeset 3152 for LMDZ6/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90

Timestamp:

Jan 16, 2018, 10:30:10 AM (7 years ago)

Author:

idelkadi

Message:

• Activation des simulateurs et des champs de sortie en fonction de ce qui est demande dans les fichiers .xml pour XIOS (CMIP6)
• Mise a jour du calendrier pour Xios dans Cosp

File:

• LMDZ6/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/cosp/cosp_output_write_mod.F90

@@ -83 +83 @@
    endif
 
-!#ifdef CPP_XIOS
-! !$OMP MASTER
-!IF (cosp_varsdefined) THEN
-!   if (prt_level >= 10) then
-!         WRITE(lunout,*)'Apell xios_update_calendar cosp_varsdefined iinitend ', &
-!                         cosp_varsdefined,iinitend
-!   endif 
-!    CALL xios_update_calendar(itau_wcosp)
-!ENDIF
-!  !$OMP END MASTER
-!  !$OMP BARRIER
-!#endif
+#ifdef CPP_XIOS
+ !$OMP MASTER
+IF (cosp_varsdefined) THEN
+   if (prt_level >= 10) then
+         WRITE(lunout,*)'Apell xios_update_calendar cosp_varsdefined iinitend ', &
+                         cosp_varsdefined,iinitend
+   endif 
+    CALL xios_update_calendar(itau_wcosp)
+ENDIF
+  !$OMP END MASTER
+  !$OMP BARRIER
+#endif
 
  if (cfg%Llidar_sim) then