--- trunk/phylmd/Interface_surf/climb_hq_down.f	2018/07/26 13:23:28	295
+++ trunk/phylmd/Interface_surf/climb_hq_down.f	2018/07/26 16:02:11	297
@@ -11,7 +11,8 @@
     USE dimphy, ONLY: klev
     USE suphec_m, ONLY: rcpd, rd, rg, rkappa
 
-    REAL, intent(out), dimension(:, :):: pkf, cq, dq, ch, dh ! (knon, klev)
+    REAL, intent(in):: pkf(:, :) ! (knon, klev)
+    REAL, intent(out), dimension(:, :):: cq, dq, ch, dh ! (knon, klev)
 
     REAL, intent(in):: paprs(:, :) ! (knon, klev + 1)
     ! pression a inter-couche (Pa)
@@ -46,9 +47,6 @@
 
     !----------------------------------------------------------------
 
-    forall (k = 1:klev) pkf(:, k) = (paprs(:, 1) / pplay(:, k))**RKAPPA
-    ! (La pression de r\'ef\'erence est celle au sol.)
-
     h = RCPD * t * pkf
 
     ! Convertir les coefficients en variables convenables au calcul: