--- trunk/Sources/dyn3d/gcm.f	2016/05/09 19:56:28	191
+++ trunk/Sources/dyn3d/gcm.f	2017/04/28 13:40:59	224
@@ -32,7 +32,6 @@
   use leapfrog_m, only: leapfrog
   use netcdf95, only: nf95_close
   use suphec_m, only: suphec
-  use tracstoke, only: istdyn, istphy
   use unit_nml_m, only: unit_nml
   use yoethf_m, only: yoethf
   use createnewfield_m, only: NbField, Ncid
@@ -81,7 +80,7 @@
   call init_dyn_phy
 
   ! Initialisation de la physique :
-  IF (iflag_phys == 1) THEN
+  IF (iflag_phys) THEN
      airephy = pack(aire_2d, dyn_phy)
      CALL suphec
      call yoethf
@@ -93,10 +92,6 @@
   CALL initdynav(dtvr, nqmx, t_ops = iperiod * dtvr, t_wrt = periodav * daysec)
   call init_dynzon(dt_app = dtvr * iperiod)
 
-  ! Choix des fr\'equences de stockage pour le hors-ligne :
-  istdyn = day_step / 4 ! stockage toutes les 6 h = 1 jour / 4
-  istphy = istdyn / iphysiq     
-
   CALL conf_guide
   CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q)