--- trunk/libf/dyn3d/etat0.f90	2010/03/05 16:43:45	25
+++ trunk/libf/dyn3d/etat0.f90	2010/03/09 15:27:15	26
@@ -50,6 +50,7 @@
     use phyredem_m, only: phyredem
     use caldyn0_m, only: caldyn0
     use inigeom_m, only: inigeom
+    use inidissip_m, only: inidissip
 
     ! Variables local to the procedure:
 
@@ -291,7 +292,6 @@
 
     ! Initialisation pour traceurs:
     call iniadvtrac
-    ! Ecriture:
     CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
          tetagrot, tetatemp)
     itau_dyn = 0