--- trunk/libf/dyn3d/gradiv2.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/gradiv2.f	2010/03/09 15:27:15	26
@@ -18,9 +18,9 @@
       use dimens_m
       use paramet_m
       use comgeom
+            use inidissip_m
       IMPLICIT NONE
 c
-      include "comdissipn.h"
 c
 c     ........    variables en arguments      ........
 
@@ -32,7 +32,8 @@
 c
       REAL div(ip1jmp1,llm)
       REAL signe, nugrads
-      INTEGER l,ij,iter,ld
+      INTEGER l,ij,iter
+      integer, intent(in):: ld
       
 c    ........................................................
 c