--- trunk/libf/dyn3d/iniconst.f90	2012/09/20 09:57:03	65
+++ trunk/libf/dyn3d/iniconst.f90	2012/09/20 13:00:41	66
@@ -6,7 +6,7 @@
   USE dimens_m, ONLY : iim, jjm, llm
   USE comconst, ONLY : cpp, dtphys, dtvr, im, imp1, jm, kappa, lllm, lllmm1, &
        lllmp1, r, unsim
-  USE comvert, ONLY : disvert
+  USE disvert_m, ONLY : disvert
   USE conf_gcm_m, ONLY : iphysiq
 
   IMPLICIT NONE