Changeset 5764 for LMDZ6/trunk/libf

Timestamp:

Jul 10, 2025, 10:34:41 AM (2 days ago)

Author:

rkazeroni

Message:

For GPU porting:

• update wrapper for source-to-source tools with default being no tools used
• update usage of wrapper routines

Location:

LMDZ6/trunk/libf/phylmd

Files:

• cva_driver.f90 (modified) (1 diff)
• physiq_mod.F90 (modified) (2 diffs)
• s2s.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/cva_driver.f90

@@ -36 +36 @@
     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)
 

LMDZ6/trunk/libf/phylmd/physiq_mod.F90

@@ -387 +387 @@
        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 +5862 @@
 
     IF (lafin) THEN
+       CALL s2s_finalize     ! finalization of source to source tools
        itau_phy = itau_phy + itap
        CALL phyredem ("restartphy.nc")

LMDZ6/trunk/libf/phylmd/s2s.F90

@@ -9 +9 @@
   
     PRIVATE
-    PUBLIC s2s_initialize, s2s_is_initialized
+    PUBLIC s2s_initialize, s2s_finalize, s2s_gpu_activated, s2s_register_activated
 
   CONTAINS
@@ -16 +16 @@
     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