Changeset 5968 for LMDZ6/trunk/libf/phylmd/limit_read_mod.f90

Timestamp:

Dec 19, 2025, 11:46:41 AM (3 weeks ago)

Author:

yann meurdesoif

Message:

GPU port of surf_ocean
Merge of commit r5896
YM

File:

• LMDZ6/trunk/libf/phylmd/limit_read_mod.f90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/limit_read_mod.f90

@@ -90 +90 @@
        knon, knindex, &
        rugos_out, alb_out)
+!$gpum horizontal knon klon
 !
 ! This subroutine is called from surf_land_bucket. 
@@ -95 +96 @@
 ! then this routine will call limit_read_tot.
 !
-    USE dimphy
-    USE surface_data
+    USE surface_data, ONLY: type_ocean, version_ocean
 
 ! Input arguments
@@ -116 +116 @@
 !****************************************************************************************
 
-IF (type_ocean == 'couple'.OR. &
+    IF (type_ocean == 'couple'.OR. &
          (type_ocean == 'slab' .AND. version_ocean == 'sicINT')) THEN
        ! limit.nc has not yet been read. Do it now!
+!$gpum nocall
        CALL limit_read_tot(itime, dtime, jour, is_modified)
     END IF
@@ -132 +133 @@
 
   SUBROUTINE limit_read_sst(knon, knindex, sst_out)
+!$gpum horizontal knon klon
 !
 ! This subroutine returns the sea surface temperature already read from limit.nc.