Index: LMDZ4/trunk/libf/phylmd/condsurf.F
===================================================================
--- LMDZ4/trunk/libf/phylmd/condsurf.F	(revision 687)
+++ LMDZ4/trunk/libf/phylmd/condsurf.F	(revision 688)
@@ -29,6 +29,5 @@
       PARAMETER ( nannemax = 60 )
 c
-      INTEGER jour
-      INTEGER jourvrai
+      INTEGER jour, jourvrai
       REAL lmt_bils(klon) !bilan chaleur au sol
 c
@@ -93,5 +92,5 @@
 c
       debut(1) = 1
-      debut(2) = jour
+      debut(2) = jourvrai
       epais(1) = klon
       epais(2) = 1
@@ -104,5 +103,5 @@
          CALL abort
       ENDIF
-c     PRINT*,'debut,epais',debut,epais
+      PRINT*,'debut,epais',debut,epais,'jour,jourvrai',jour,jourvrai
 #ifdef NC_DOUBLE
       ierr = NF_GET_VARA_DOUBLE(nid, nvarid,debut,epais,lmt_bils)