--- trunk/libf/dyn3d/divgrad.f	2010/03/05 16:43:45	25
+++ trunk/libf/dyn3d/divgrad.f	2010/03/09 15:27:15	26
@@ -6,7 +6,7 @@
       use paramet_m
       use logic
       use comgeom
-            use comdissipn
+            use inidissip_m
       IMPLICIT NONE
 c
 c=======================================================================
@@ -30,7 +30,8 @@
 c
       REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)
 
-      INTEGER  l,ij,iter,lh
+      INTEGER  l,ij,iter
+      integer, intent(in):: lh
 c
 c
 c