--- trunk/libf/dyn3d/divgrad.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/divgrad.f	2010/03/05 16:43:45	25
@@ -6,6 +6,7 @@
       use paramet_m
       use logic
       use comgeom
+            use comdissipn
       IMPLICIT NONE
 c
 c=======================================================================
@@ -23,7 +24,6 @@
 c   declarations:
 c   -------------
 c
-      include "comdissipn.h"
 c
       INTEGER klevel
       REAL h( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )