--- trunk/libf/phylmd/Thermcell/thermcell.f90	2011/12/06 15:07:04	54
+++ trunk/phylmd/Thermcell/thermcell.f	2014/03/26 17:18:58	91
@@ -20,7 +20,7 @@
     ! 3. un entraînement
     ! 4. un détraînement
 
-    USE dimphy, ONLY : klev, klon, max
+    USE dimphy, ONLY : klev, klon
     USE suphec_m, ONLY : rd, rg, rkappa
 
     ! arguments:
@@ -30,8 +30,10 @@
     real ptimestep, l_mix, r_aspect
     REAL, intent(in):: pt(ngrid, nlay)
     real pdtadj(ngrid, nlay)
-    REAL pu(ngrid, nlay), pduadj(ngrid, nlay)
-    REAL pv(ngrid, nlay), pdvadj(ngrid, nlay)
+    REAL, intent(in):: pu(ngrid, nlay)
+    real pduadj(ngrid, nlay)
+    REAL, intent(in):: pv(ngrid, nlay)
+    real pdvadj(ngrid, nlay)
     REAL po(ngrid, nlay), pdoadj(ngrid, nlay)
     REAL, intent(in):: pplay(ngrid, nlay)
     real, intent(in):: pplev(ngrid, nlay+1)