--- trunk/Sources/phylmd/cltrac.f	2015/04/29 15:47:56	134
+++ trunk/Sources/phylmd/cltrac.f	2017/11/06 17:47:03	230
@@ -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)