--- trunk/libf/phylmd/clvent.f	2012/01/10 19:02:02	56
+++ trunk/libf/phylmd/clvent.f	2012/01/30 12:54:02	57
@@ -3,7 +3,7 @@
      s                  d_ven,flux_v)
       use dimens_m
       use dimphy
-      use iniprint
+      use conf_gcm_m
       use SUPHEC_M
       IMPLICIT none
 c======================================================================