--- trunk/phylmd/cltrac.f	2015/01/13 14:56:15	120
+++ trunk/phylmd/cltrac.f	2018/03/20 09:35:59	265
@@ -8,7 +8,7 @@
 
     ! From LMDZ4/libf/phylmd/cltrac.F,v 1.1.1.1 2004/05/19 12:53:07
 
-    USE dimens_m
+    USE dimensions
     USE dimphy
     USE suphec_m
     ! ======================================================================
@@ -31,7 +31,7 @@
     ! flux_tr--output-R- flux de tr
     ! ======================================================================
     REAL, INTENT (IN) :: dtime
-    REAL coef(klon, klev)
+    REAL coef(:, 2:) ! (klon, 2:klev)
     REAL, INTENT (IN) :: t(klon, klev) ! temperature (K)
     REAL tr(klon, klev)
     REAL, INTENT (IN) :: paprs(klon, klev+1)