--- trunk/libf/phylmd/cvltr.f	2010/12/21 15:45:48	37
+++ trunk/libf/phylmd/cvltr.f	2011/01/06 17:52:19	38
@@ -4,7 +4,7 @@
       SUBROUTINE cvltr(pdtime,da, phi, mp,paprs,x,upd,dnd,dx)
       use dimens_m
       use dimphy
-      use YOMCST
+      use SUPHEC_M
             use yoecumf 
       IMPLICIT NONE 
 c=====================================================================