--- trunk/libf/phylmd/diagetpq.f90	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/diagetpq.f90	2012/07/26 14:37:37	62
@@ -25,14 +25,11 @@
 
     ! Jean-Louis Dufresne, July 2002
 
-    use dimens_m
-    use dimphy
-    use SUPHEC_M
-    use yoethf_m
+    USE dimphy, ONLY: klev, klon
+    USE suphec_m, ONLY: rcpd, rcpv, rcs, rcw, rg, rlstt, rlvtt
 
     ! Arguments: 
     ! airephy-------input-R- grid area
-    ! tit-----imput-A15- Comment added in PRINT (CHARACTER*15)
     ! iprt----input-I- PRINT level ( <=1 : no PRINT)
     ! idiag---input-I- indice dans lequel sera range les nouveaux
     ! bilans d' entalpie et de masse
@@ -67,7 +64,7 @@
 
     ! Input variables
     real airephy(klon)
-    CHARACTER(len=15) tit
+    CHARACTER(len=*), intent(in):: tit ! comment added in PRINT
     INTEGER iprt, idiag, idiag2
     REAL, intent(in):: dtime
     REAL, intent(in):: t(klon, klev)