Index: LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90	(revision 2801)
+++ LMDZ5/trunk/libf/phylmd/phys_cal_mod.F90	(revision 2802)
@@ -9,5 +9,5 @@
   INTEGER,SAVE :: day_cur       ! current day
 !$OMP THREADPRIVATE(day_cur)
-  INTEGER,SAVE :: days_elapsed  ! number of whole days since start of the simulation 
+  INTEGER,SAVE :: days_elapsed  ! number of whole days since start of the current year
 !$OMP THREADPRIVATE(days_elapsed)
   INTEGER,SAVE :: mth_len       ! number of days in the current month
@@ -33,11 +33,12 @@
 !$OMP THREADPRIVATE(calend)
 
-
 CONTAINS
   
   SUBROUTINE phys_cal_init(annee_ref,day_ref)
-  USE IOIPSL, ONLY:  ymds2ju
-  USE ioipsl_getin_p_mod, ONLY: getin_p
-  IMPLICIT NONE
+
+    USE IOIPSL, ONLY:  ymds2ju
+    USE ioipsl_getin_p_mod, ONLY: getin_p
+
+    IMPLICIT NONE
     INTEGER,INTENT(IN) :: annee_ref
     INTEGER,INTENT(IN) :: day_ref
@@ -79,3 +80,2 @@
 
 END MODULE phys_cal_mod
-