--- trunk/libf/dyn3d/nxgrarot.f	2010/03/03 13:23:49	24
+++ trunk/libf/dyn3d/nxgrarot.f	2010/03/05 16:43:45	25
@@ -18,10 +18,10 @@
       use dimens_m
       use paramet_m
       use logic
+            use comdissipn
       IMPLICIT NONE
 c
 c
-      include "comdissipn.h"
 c
       INTEGER klevel
       REAL xcov( ip1jmp1,klevel ), ycov( ip1jm,klevel )