--- trunk/libf/dyn3d/inidissip.f	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/inidissip.f	2010/03/05 16:43:45	25
@@ -15,8 +15,8 @@
       use comconst
       use comvert
       use conf_gcm_m
+            use comdissipn
       IMPLICIT NONE
-      include "comdissipn.h"
 
       LOGICAL lstardis
       INTEGER nitergdiv,nitergrot,niterh
@@ -203,7 +203,7 @@
 
       PRINT *,' INIDI tetamin dtvr ',tetamin,dtvr,iperiod
       idissip = INT( tetamin/( 2.*dtvr*iperiod) ) * iperiod
-      PRINT *,' INIDI tetamin idissip ',tetamin,idissip
+      PRINT *,' tetamin = ',tetamin
       idissip = MAX(iperiod,idissip)
       dtdiss  = idissip * dtvr
       PRINT *,' INIDI idissip dtdiss ',idissip,dtdiss