--- trunk/Sources/phylmd/transp.f	2015/09/14 17:13:16	169
+++ trunk/phylmd/transp.f	2018/03/20 09:35:59	265
@@ -4,12 +4,11 @@
 
 contains
 
-  SUBROUTINE transp(paprs, tsol, t, q, u, v, geom, vtran_e, vtran_q, utran_e, &
-       utran_q)
+  SUBROUTINE transp(paprs, t, q, u, v, geom, vtran_e, vtran_q, utran_e, utran_q)
 
     ! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09
 
-    USE dimens_m
+    USE dimensions
     USE dimphy
     USE suphec_m
     ! ======================================================================
@@ -20,7 +19,6 @@
 
 
     REAL, INTENT (IN) :: paprs(klon, klev+1)
-    REAL tsol(klon)
     REAL, INTENT (IN) :: t(klon, klev)
     REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev)
     REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)