--- trunk/libf/dyn3d/Dissipation/inidissip.f90	2012/09/20 09:57:03	65
+++ trunk/libf/dyn3d/Dissipation/inidissip.f90	2012/09/20 13:00:41	66
@@ -23,7 +23,7 @@
     USE comconst, ONLY: dtvr
     use comdissnew, only: nitergdiv, nitergrot, niterh, tetagdiv, tetagrot, &
          tetatemp
-    USE comvert, ONLY: preff, presnivs
+    USE disvert_m, ONLY: preff, presnivs
     USE conf_gcm_m, ONLY: iperiod
     USE dimens_m, ONLY: iim, jjm
     use divgrad2_m, only: divgrad2