--- trunk/libf/phylmd/hgardfou.f90	2011/01/06 17:52:19	38
+++ trunk/libf/phylmd/hgardfou.f90	2013/02/18 16:33:12	69
@@ -10,10 +10,8 @@
 
     ! This procedure aborts the program if the temperature gets out of range.
 
-    use dimens_m
-    use indicesol
-    use dimphy
-    use SUPHEC_M
+    USE indicesol, ONLY: nbsrf
+    USE dimphy, ONLY: klev, klon
 
     REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf)
 
@@ -41,6 +39,7 @@
              print *, "t(", jadrs(i), ", ", k, ") = ", t(jadrs(i), k)
           ENDDO
        ENDIF
+
        jbad = 0
        DO i = 1, klon
           IF (t(i, k) < temp_min) THEN