--- trunk/libf/dyn3d/etat0.f90	2009/12/14 15:25:16	23
+++ trunk/libf/dyn3d/etat0.f90	2010/03/05 16:43:45	25
@@ -49,6 +49,7 @@
     use regr_pr_o3_m, only: regr_pr_o3
     use phyredem_m, only: phyredem
     use caldyn0_m, only: caldyn0
+    use inigeom_m, only: inigeom
 
     ! Variables local to the procedure:
 
@@ -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