Index: /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/hgardfou.F
===================================================================
--- /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/hgardfou.F	(revision 942)
+++ /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/hgardfou.F	(revision 943)
@@ -2,5 +2,5 @@
 ! $Header$
 !
-      SUBROUTINE hgardfou (t,tsol,text)
+      SUBROUTINE hgardfou (rlon,rlat,pctsrf,t,tsol,text)
       use dimphy
       IMPLICIT none
@@ -8,8 +8,9 @@
 c Verifier la temperature
 c======================================================================
-cym#include "dimensions.h"
+#include "dimensions.h"
 cym#include "dimphy.h"
 #include "YOMCST.h"
 #include "indicesol.h"
+      REAL rlon(klon), rlat(klon), pctsrf(klon, nbsrf)
       REAL t(klon,klev), tsol(klon,nbsrf)
       CHARACTER*(*) text
@@ -26,4 +27,9 @@
          PRINT*, 'hgardfou garantit la temperature dans [100,370] K'
          firstcall = .FALSE.
+c
+         DO i = 1, klon
+          print*,'i=',i,'rlon=',rlon(i),'rlat=',rlat(i)
+         ENDDO
+c
       ENDIF
 c
@@ -47,5 +53,7 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,k,temperature =',jadrs(i),k,zt(jadrs(i))
+             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
+     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
            ENDDO
          ENDIF
@@ -65,5 +73,7 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,k,temperature =',jadrs(i),k,zt(jadrs(i))
+             PRINT *,'i,k,temperature,lon,lat,pourc ter,oce,lic,sic =',
+     $       jadrs(i),k,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i)),
+     $       (pctsrf(jadrs(i),nsrf),nsrf=1,nbsrf)
            ENDDO
          ENDIF
@@ -88,5 +98,7 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i))
+            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
+     $      ,pctsrf(jadrs(i),nsrf)
            ENDDO
          ENDIF
@@ -106,5 +118,7 @@
            ok = .FALSE.
            DO i = 1, jbad
-             PRINT *,'i,nsrf,temperature =',jadrs(i),nsrf,zt(jadrs(i))
+            PRINT *,'i,nsrf,temperature,lon,lat,pourc ter,oce,lic,sic ='
+     $      ,jadrs(i),nsrf,zt(jadrs(i)),rlon(jadrs(i)),rlat(jadrs(i))
+     $      ,pctsrf(jadrs(i),nsrf)
            ENDDO
          ENDIF
Index: /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/physiq.F
===================================================================
--- /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/physiq.F	(revision 942)
+++ /LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/physiq.F	(revision 943)
@@ -1983,5 +1983,5 @@
 cIM END
 c
-      CALL hgardfou(t_seri,ftsol,'debutphy')
+      CALL hgardfou(rlon,rlat,pctsrf,t_seri,ftsol,'debutphy')
 c
 cIM BEG