--- trunk/libf/phylmd/readsulfate.f	2008/03/31 12:24:17	7
+++ trunk/libf/phylmd/readsulfate.f	2011/01/06 17:52:19	38
@@ -6,7 +6,7 @@
       use dimens_m      
       use dimphy      
       use temps      
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
       
 c Content: 
@@ -281,7 +281,7 @@
       use dimens_m      
       use dimphy      
       use temps      
-      use YOMCST
+      use SUPHEC_M
       IMPLICIT none
       
 c Content: