Changeset 5889 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/calcul_fluxs_mod.f90

Timestamp:

Nov 27, 2025, 6:44:57 PM (5 weeks ago)

Author:

yann meurdesoif

Message:

GPU port of surf_seaice

YM

File:

• LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/calcul_fluxs_mod.f90 (modified) (3 diffs)

LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/calcul_fluxs_mod.f90

@@ -15 +15 @@
        tsurf_new, evap, fluxlat, fluxsens, dflux_s, dflux_l, &
        sens_prec_liq, sens_prec_sol, lat_prec_liq, lat_prec_sol, rhoa)
-
+!$gpum horizontal knon
     USE indice_sol_mod
     use sens_heat_rain_m, only: sens_heat_rain
@@ -104 +104 @@
     CHARACTER (len = 20)                 :: modname = 'calcul_fluxs'
     LOGICAL                              :: fonte_neige
-    LOGICAL, SAVE                        :: check = .FALSE.
-    !$OMP THREADPRIVATE(check)
+    LOGICAL, PARAMETER                   :: check = .FALSE.
 
 ! End definition
@@ -281 +280 @@
        p1lay, t1lay, &
        flux_u1, flux_v1)
-
+!$gpum horizontal knon
     USE clesphys_mod_h
     USE yomcst_mod_h
-USE dimphy
+    USE dimphy