--- trunk/dyn3d/gcm.f	2014/03/05 14:57:53	82
+++ trunk/dyn3d/gcm.f	2014/05/13 17:23:16	98
@@ -8,7 +8,6 @@
   ! "divgrad2", "nxgraro2"). Possibilité de choisir le schéma pour
   ! l'advection de "q", en modifiant "iadv" dans "traceur.def".
 
-  USE calendar, only: ioconf_calendar
   use comconst, only: daysec, dtvr, iniconst
   use comgeom, only: rlatu, aire_2d, cu_2d, cv_2d, rlonv, inigeom
   use comgeomphy, only: airephy, cuphy, cvphy, rlatd, rlond
@@ -27,6 +26,7 @@
   use initdynav_m, only: initdynav
   use inithist_m, only: inithist
   use init_dynzon_m, only: init_dynzon
+  USE ioconf_calendar_m, only: ioconf_calendar
   use jumble, only: new_unit
   use leapfrog_m, only: leapfrog
   use suphec_m, only: suphec
@@ -84,22 +84,16 @@
   ! Lecture du fichier "start.nc" :
   CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0)
 
-  ! On remet le calendrier à zero si demandé :
-  if (annee_ref /= anneeref .or. day_ref /= dayref) then
-     print *, 'Attention : les dates initiales lues dans le fichier ' // &
-          '"start" ne correspondent pas à celles lues dans "gcm.def".'
-     if (raz_date) then
-        print *, 'On réinitialise à la date lue dans "gcm.def".'
-        annee_ref = anneeref
-        day_ref = dayref
-        day_ini = dayref
-        itau_dyn = 0
-        time_0 = 0.
-     else
-        print *, 'On garde les dates du fichier "start".'
-     endif
-  ELSE
-     raz_date = .false.
+  ! On remet le calendrier à zéro si demandé :
+  if (raz_date) then
+     print *, 'On réinitialise à la date lue dans la namelist.'
+     annee_ref = anneeref
+     day_ref = dayref
+     day_ini = dayref
+     itau_dyn = 0
+     time_0 = 0.
+  else
+     print *, 'On garde les dates du fichier "start".'
   endif
 
   CALL disvert