Changeset 263 for codes/icosagcm/branches

Timestamp:

07/29/14 18:32:37 (10 years ago)

Author:

ymipsl

Message:

Corectly finalize xios context in standard physics when simulation is finished.

YM

Location:

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd

Files:

• physiq.F90 (modified) (1 diff)
• xios_output.F90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/physiq.F90

@@ -2236 +2236 @@
       CALL write_xios_field("ASR",fluxabs_sw)
       CALL write_xios_field("OLR",fluxtop_lw)
-
+      IF (lastcall) CALL finalize_xios_output
+      
+      
+      
       if (lastcall) then
 

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/xios_output.F90

@@ -65 +65 @@
   END SUBROUTINE initialize_xios_output
 
+  SUBROUTINE finalize_xios_output
+  USE xios
+
+!$OMP BARRIER    
+!$OMP MASTER
+    CALL xios_context_finalize
+!$OMP END MASTER    
+!$OMP BARRIER    
+  
+  END SUBROUTINE finalize_xios_output
+
+
   SUBROUTINE update_xios_timestep
   USE xios