Index: LMDZ6/trunk/libf/phylmd/cva_driver.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/cva_driver.f90	(revision 5763)
+++ LMDZ6/trunk/libf/phylmd/cva_driver.f90	(revision 5764)
@@ -36,5 +36,5 @@
     never_compress = .FALSE.
     CALL getin_p("convection_no_compression",never_compress)
-    IF (s2s_is_initialized()) never_compress = .TRUE.  ! for GPU, compression must be disabled
+    IF (s2s_gpu_activated()) never_compress = .TRUE.  ! for GPU, compression must be disabled
     CALL cv_flag(iflag_ice_thermo)
 
Index: LMDZ6/trunk/libf/phylmd/physiq_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 5763)
+++ LMDZ6/trunk/libf/phylmd/physiq_mod.F90	(revision 5764)
@@ -387,5 +387,5 @@
        USE phys_output_write_spl_mod, ONLY: phys_output_write_spl
        USE phytracr_spl_mod, ONLY: phytracr_spl_out_init, phytracr_spl
-       USE s2s, ONLY : s2s_initialize
+       USE s2s, ONLY : s2s_initialize, s2s_finalize
     IMPLICIT NONE
     !>======================================================================
@@ -5862,4 +5862,5 @@
 
     IF (lafin) THEN
+       CALL s2s_finalize     ! finalization of source to source tools
        itau_phy = itau_phy + itap
        CALL phyredem ("restartphy.nc")
Index: LMDZ6/trunk/libf/phylmd/s2s.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/s2s.F90	(revision 5763)
+++ LMDZ6/trunk/libf/phylmd/s2s.F90	(revision 5764)
@@ -9,5 +9,5 @@
   
     PRIVATE
-    PUBLIC s2s_initialize, s2s_is_initialized
+    PUBLIC s2s_initialize, s2s_finalize, s2s_gpu_activated, s2s_register_activated
 
   CONTAINS
@@ -16,9 +16,18 @@
     END SUBROUTINE s2s_initialize
     
-    FUNCTION s2s_is_initialized()
+    SUBROUTINE s2s_finalize()
+    END SUBROUTINE s2s_finalize
+
+    FUNCTION s2s_gpu_activated()
       IMPLICIT NONE
-      LOGICAL :: s2s_is_initialized
-      s2s_is_initialized=.FALSE.
-    END FUNCTION s2s_is_initialized
+      LOGICAL :: s2s_gpu_activated
+      s2s_gpu_activated=.FALSE.
+    END FUNCTION s2s_gpu_activated
+
+    FUNCTION s2s_register_activated()
+      IMPLICIT NONE
+      LOGICAL :: s2s_register_activated
+      s2s_register_activated=.FALSE.
+    END FUNCTION s2s_register_activated
 
   END MODULE s2s