Changeset 5815

Timestamp:

Sep 17, 2025, 10:43:22 AM (18 hours ago)

Author:

rkazeroni

Message:

For GPU porting of alpale routine:

• Change SAVE attribute of constant variables to PARAMETER to avoid threads sync issues
• Add "horizontal" comment to specify possible names of horizontal variables

File:

• LMDZ6/trunk/libf/phylmd/alpale_mod.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/alpale_mod.f90

@@ -1 +1 @@
 ! Contains the alpale subroutine, as well as the old content from alpale.h
+!$gpum horizontal klon
 
 MODULE alpale_mod
@@ -78 +79 @@
     INTEGER :: i, k
     REAL, DIMENSION(klon) :: www
-    REAL, SAVE :: ale_max = 1000.
-    REAL, SAVE :: alp_max = 2.
-    CHARACTER*20 modname
-    CHARACTER*80 abort_message
-
-
-    !$OMP THREADPRIVATE(ale_max,alp_max)
+    REAL, PARAMETER :: ale_max = 1000.
+    REAL, PARAMETER :: alp_max = 2.
+    CHARACTER (LEN=20), PARAMETER :: modname = 'alpale'
+    CHARACTER (LEN=80) :: abort_message
 
     ! Calcul de l'energie disponible ALE (J/kg) et de la puissance