--- trunk/libf/dyn3d/etat0.f90	2009/12/14 15:25:16	23
+++ trunk/libf/dyn3d/etat0.f90	2010/03/09 15:27:15	26
@@ -49,6 +49,8 @@
     use regr_pr_o3_m, only: regr_pr_o3
     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:
 
@@ -290,7 +292,6 @@
 
     ! Initialisation pour traceurs:
     call iniadvtrac
-    ! Ecriture:
     CALL inidissip(lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
          tetagrot, tetatemp)
     itau_dyn = 0
@@ -305,7 +306,6 @@
     CALL dynredem1("start.nc", vvent, uvent, tpot, q3d, masse, psol)
 
     ! Ecriture état initial physique:
-    print *, 'dtvr = ', dtvr
     print *, "iphysiq = ", iphysiq
     phystep   = dtvr * REAL(iphysiq)
     print *, 'phystep = ', phystep