--- trunk/libf/phylmd/diagetpq.f90	2011/09/20 09:14:34	51
+++ trunk/libf/phylmd/diagetpq.f90	2011/09/23 12:28:01	52
@@ -25,10 +25,8 @@
 
     ! 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