Changeset 5764 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90

Timestamp:

Jul 10, 2025, 10:34:41 AM (2 weeks 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

File:

• LMDZ6/trunk/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

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")