Changeset 5889 for LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/albsno.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/albsno.f90 (modified) (3 diffs)

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

@@ -2 +2 @@
 ! $Header$
 !
+MODULE albsno_mod
+
+CONTAINS
+
 SUBROUTINE albsno(klon, knon, dtime, agesno, alb_neig_grid, precip_snow)
-
+!$gpum horizontal knon klon
   USE clesphys_mod_h
   IMPLICIT NONE
@@ -28 +32 @@
   REAL                                 :: as
   REAL, DIMENSION(klon,nvm)            :: veget
-  REAL, DIMENSION(nvm),SAVE            :: init, decay
-  !$OMP THREADPRIVATE(init, decay)
+  REAL, DIMENSION(nvm)       :: init  
+  REAL, DIMENSION(nvm)       :: decay
 
-  DATA init /0.55, 0.14, 0.18, 0.29, 0.15, 0.15, 0.14, 0./
-  DATA decay/0.30, 0.67, 0.63, 0.45, 0.40, 0.14, 0.06, 1./
 !****************************************************************************************
+  init  = (/0.55, 0.14, 0.18, 0.29, 0.15, 0.15, 0.14, 0./)
+  decay = (/0.30, 0.67, 0.63, 0.45, 0.40, 0.14, 0.06, 1./)
 
   if (albsno0>=0.) then
@@ -61 +65 @@
   
 END SUBROUTINE albsno
+
+END MODULE albsno_mod