Index: LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/climb_hq_mod.f90
===================================================================
--- LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/climb_hq_mod.f90	(revision 5929)
+++ LMDZ6/branches/PBLSURF_GPUPORT/libf/phylmd/climb_hq_mod.f90	(revision 5930)
@@ -224,5 +224,5 @@
 !****************************************************************************************
     
-    CALL calc_coef(knon, yKcoefhq, ygamaq, delp, q, &
+    CALL calc_coef_wd(knon, yKcoefhq, ygamaq, delp, q, &
          yCcoef_Q, yDcoef_Q, yAcoef_Q, yBcoef_Q)
 
@@ -242,5 +242,5 @@
     ENDDO
 
-    CALL calc_coef(knon, yKcoefhq, ygamah, delp, yh_old, &
+    CALL calc_coef_wd(knon, yKcoefhq, ygamah, delp, yh_old, &
          yCcoef_H, yDcoef_H, yAcoef_H, yBcoef_H)
  
@@ -313,5 +313,5 @@
 !****************************************************************************************
 !
-  SUBROUTINE calc_coef(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
+  SUBROUTINE calc_coef_wd(knon, Kcoef, gama, delp, X, Ccoef, Dcoef, Acoef, Bcoef)
 !$gpum horizontal knon
 !
@@ -376,5 +376,5 @@
     END DO
 
-  END SUBROUTINE calc_coef
+  END SUBROUTINE calc_coef_wd
 !
 !****************************************************************************************