Index: LMDZ5/trunk/libf/bibio/wxios.F90
===================================================================
--- LMDZ5/trunk/libf/bibio/wxios.F90	(revision 2094)
+++ LMDZ5/trunk/libf/bibio/wxios.F90	(revision 2095)
@@ -161,5 +161,5 @@
     !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
-    SUBROUTINE wxios_set_cal(pasdetemps, calendrier, annee, mois, jour, heure)
+    SUBROUTINE wxios_set_cal(pasdetemps, calendrier, annee, mois, jour, heure, ini_an, ini_mois, ini_jour, ini_heure)
         IMPLICIT NONE
         INCLUDE 'iniprint.h'
@@ -167,6 +167,6 @@
      !Paramètres:
      CHARACTER(len=*), INTENT(IN) :: calendrier
-     INTEGER, INTENT(IN) :: annee, mois, jour
-     REAL, INTENT(IN) :: pasdetemps, heure
+     INTEGER, INTENT(IN) :: annee, mois, jour, ini_an, ini_mois, ini_jour
+     REAL, INTENT(IN) :: pasdetemps, heure, ini_heure
      
      !Variables:
@@ -197,10 +197,18 @@
         END SELECT
         
-        !Formatage de la date de départ:
-        WRITE(date, "(i4.4,'-',i2.2,'-',i2.2,' 00:00:00')") annee, mois, jour
-        
-        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: Initial time: ", date
-        
-        CALL xios_set_context_attr_hdl(g_ctx, start_date= date)
+        !Formatage de la date d'origine:
+        WRITE(date, "(i4.4,'-',i2.2,'-',i2.2,' ',i2.2,':00:00')") annee, mois, jour, int(heure)
+        
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: Time origin: ", date
+        
+        CALL xios_set_context_attr_hdl(g_ctx, time_origin = date)
+
+        !Formatage de la date de debut:
+
+        WRITE(date, "(i4.4,'-',i2.2,'-',i2.2,' ',i2.2,':00:00')") ini_an, ini_mois, ini_jour, int(ini_heure)
+        
+        IF (prt_level >= 10) WRITE(lunout,*) "wxios_set_cal: Start date: ", date
+        
+        CALL xios_set_context_attr_hdl(g_ctx, start_date = date)
         
         !Et enfin,le pas de temps:
@@ -550,5 +558,5 @@
     SUBROUTINE wxios_closedef()
         CALL xios_close_context_definition()
-        CALL xios_update_calendar(0)
+!        CALL xios_update_calendar(0)
     END SUBROUTINE wxios_closedef
     
Index: LMDZ5/trunk/libf/phylmd/phys_output_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/phys_output_mod.F90	(revision 2094)
+++ LMDZ5/trunk/libf/phylmd/phys_output_mod.F90	(revision 2095)
@@ -94,5 +94,5 @@
     REAL                                  :: dtime
     INTEGER                               :: idayref
-    REAL                                  :: zjulian
+    REAL                                  :: zjulian_start, zjulian
     REAL, DIMENSION(klev)                 :: Ahyb, Bhyb, Alt
     CHARACTER(LEN=4), DIMENSION(nlevSTD)  :: clevSTD
@@ -133,4 +133,6 @@
     INTEGER :: x_an, x_mois, x_jour
     REAL :: x_heure
+    INTEGER :: ini_an, ini_mois, ini_jour
+    REAL :: ini_heure
 #endif
 
@@ -255,4 +257,5 @@
      ELSE
          CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
+         CALL ymds2ju(annee_ref, 1, day_ini, start_time, zjulian_start)
      END IF
 
@@ -261,5 +264,7 @@
     !Temps julian => an, mois, jour, heure
     CALL ju2ymds(zjulian, x_an, x_mois, x_jour, x_heure)
-    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure)
+    CALL ju2ymds(zjulian_start, ini_an, ini_mois, ini_jour, ini_heure)
+    CALL wxios_set_cal(dtime, calend, x_an, x_mois, x_jour, x_heure, ini_an, &
+                       ini_mois, ini_jour, ini_heure )
 #endif
 
Index: LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90	(revision 2094)
+++ LMDZ5/trunk/libf/phylmd/phys_output_write_mod.F90	(revision 2095)
@@ -300,5 +300,6 @@
              write(lunout,*)"phys_output_write: call xios_update_calendar, itau_w=",itau_w
           endif
-          CALL xios_update_calendar(itau_w)
+!          CALL xios_update_calendar(itau_w)
+          CALL xios_update_calendar(itap)
        END IF
        !$OMP END MASTER