--- trunk/libf/phylmd/hgardfou.f90	2008/02/27 13:16:39	3
+++ trunk/libf/phylmd/hgardfou.f90	2011/01/06 17:52:19	38
@@ -13,7 +13,7 @@
     use dimens_m
     use indicesol
     use dimphy
-    use YOMCST
+    use SUPHEC_M
 
     REAL, intent(in):: t(klon, klev), tsol(klon, nbsrf)