Changeset 5908 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90

Timestamp:

Dec 4, 2025, 1:38:46 PM (3 weeks ago)

Author:

yann meurdesoif

Message:

gpu port of surf_landice

YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90 (modified) (4 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/pbl_surface_mod.F90

@@ -597 +597 @@
 
   END SUBROUTINE pbl_surface_newfrac
+
+  SUBROUTINE pbl_surface_precall
+  USE surf_landice_mod, ONLY : surf_landice_precall
+  IMPLICIT NONE
+    CALL surf_landice_precall
+  END SUBROUTINE pbl_surface_precall
+
+  SUBROUTINE pbl_surface_postcall
+  USE surf_landice_mod, ONLY : surf_landice_postcall
+  IMPLICIT NONE
+    CALL surf_landice_postcall
+  END SUBROUTINE pbl_surface_postcall
 
 
@@ -1191 +1203 @@
       CALL checksum("n2mout", n2mout) 
       CALL checksum("n2mout_x", n2mout_x) 
+    
+    CALL pbl_surface_precall
 
     CALL pbl_surface_uncompress_pre( &
@@ -1252 +1266 @@
       ENDIF
     ENDDO
-
+    
     CALL pbl_surface_subsrf( nsrf, knon, ni(1:knon),  &
        dtime,     date0,     itap,     jour,          &
@@ -1344 +1358 @@
 #endif      
      &   )
+
+      CALL pbl_surface_postcall
 
       IF (is_master) WRITE(lunout,*) "****************** CHECKSUM OUT ****************************"