Index: LMDZ6/trunk/libf/phylmd/calbeta_clim.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/calbeta_clim.f90	(revision 5970)
+++ LMDZ6/trunk/libf/phylmd/calbeta_clim.f90	(revision 5971)
@@ -3,6 +3,11 @@
 ! fairhead Exp $
 !
+MODULE calbeta_clim_mod
+
+
+CONTAINS
 
 SUBROUTINE calbeta_clim(klon,time,lat_radian,beta)
+!$gpum horizontal klon
 
   !======================================================================
@@ -71,2 +76,4 @@
 
 end SUBROUTINE calbeta_clim
+
+END MODULE calbeta_clim_mod
Index: LMDZ6/trunk/libf/phylmd/surf_land_bucket_hetero_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/surf_land_bucket_hetero_mod.F90	(revision 5970)
+++ LMDZ6/trunk/libf/phylmd/surf_land_bucket_hetero_mod.F90	(revision 5971)
@@ -43,4 +43,5 @@
     USE albsno_mod, ONLY :  albsno
     USE calbeta_mod, ONLY :  calbeta
+    USE calbeta_clim_mod, ONLY :  calbeta_clim
 
 #ifdef ISO
Index: LMDZ6/trunk/libf/phylmd/surf_land_bucket_mod.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/surf_land_bucket_mod.F90	(revision 5970)
+++ LMDZ6/trunk/libf/phylmd/surf_land_bucket_mod.F90	(revision 5971)
@@ -23,5 +23,5 @@
 #endif           
             )
-
+!$gpum horizontal knon klon
     USE limit_read_mod
     USE surface_data
@@ -50,4 +50,6 @@
     USE soil_mod, ONLY :  soil
     USE calbeta_mod, ONLY :  calbeta
+    USE calbeta_clim_mod, ONLY :  calbeta_clim
+
 
 !****************************************************************************************
@@ -125,4 +127,6 @@
     REAL :: coeff_rel_diag
 #endif 
+    REAL :: lat(knon), lon(knon)
+
 !
 !****************************************************************************************
@@ -169,11 +173,14 @@
     CALL calbeta(dtime, is_ter, knon, snow, qsol, beta, capsol, dif_grnd)
     if (type_veget=='betaclim') then
-       CALL calbeta_clim(knon,jour,latitude(knindex(1:knon)),beta)
+       lat(1:knon) = latitude(knindex(1:knon))
+       CALL calbeta_clim(knon,jour,lat ,beta)
     endif
        
 ! calculate temperature, heat capacity and conduction flux in soil
     IF (soil_model) THEN
+       lat(1:knon) = latitude(knindex(1:knon))
+       lon(1:knon) = longitude(knindex(1:knon))
        CALL soil(dtime, is_ter, knon, snow, tsurf, qsol,  & 
-        & longitude(knindex(1:knon)), latitude(knindex(1:knon)), tsoil, soilcap, soilflux)
+        & lon, lat, tsoil, soilcap, soilflux)
 
        DO i=1, knon
@@ -337,4 +344,5 @@
        dummy_riverflow(:)   = 0.0
        dummy_coastalflow(:) = 0.0
+!$gpum nocall
        CALL cpl_send_land_fields(itime, knon, knindex, &
             dummy_riverflow, dummy_coastalflow)
Index: LMDZ6/trunk/libf/phylmd/surface_data.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/surface_data.f90	(revision 5970)
+++ LMDZ6/trunk/libf/phylmd/surface_data.f90	(revision 5971)
@@ -12,5 +12,5 @@
   !$OMP THREADPRIVATE(ok_veget)
 
-  CHARACTER(len=10), SAVE :: type_veget   ! orchidee/y/bucket/n/betaclim
+  CHARACTER(len=s2s_str_maxlen), SAVE :: type_veget   ! orchidee/y/bucket/n/betaclim
   !$OMP THREADPRIVATE(type_veget)