Index: LMDZ6/trunk/libf/phylmd/alpale_mod.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/alpale_mod.f90	(revision 5813)
+++ LMDZ6/trunk/libf/phylmd/alpale_mod.f90	(revision 5815)
@@ -1,3 +1,4 @@
 ! Contains the alpale subroutine, as well as the old content from alpale.h
+!$gpum horizontal klon
 
 MODULE alpale_mod
@@ -78,11 +79,8 @@
     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