Changeset 5965 for LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90

Timestamp:

Dec 19, 2025, 11:19:30 AM (5 weeks ago)

Author:

yann meurdesoif

Message:

GPU port of surf_seaice
Merge of commit r5889
YM

File:

• LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/surf_seaice_mod.F90

@@ -31 +31 @@
 #endif               
          &      )
+!$gpum horizontal knon klon
 
   USE dimphy
@@ -150 +151 @@
 !****************************************************************************************
     IF (type_ocean == 'couple') THEN
-       
+!$gpum nocall       
        CALL ocean_cpl_ice( &
             rlon, rlat, swnet, lwnet, alb1, & 
@@ -165 +166 @@
        
     ELSE IF (type_ocean == 'slab'.AND.version_ocean=='sicINT') THEN
+!$gpum nocall  
        CALL ocean_slab_ice( & 
           itime, dtime, jour, knon, knindex, &
@@ -176 +178 @@
 
       ELSE ! type_ocean=force or slab +sicOBS or sicNO
+
        IF (is_master) WRITE(lunout,*) "******* CHECKSUM  ==> ocean_forced IN *******"
+!$gpum nocall checksum
        CALL checksum("itime", itime)
        CALL checksum("dtime", dtime)