Index: /LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90
===================================================================
--- /LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90	(revision 136)
+++ /LMDZ.3.3/branches/rel-LF/libf/phylmd/interface_surf.F90	(revision 137)
@@ -762,4 +762,5 @@
   real, allocatable, dimension(:,:),save :: tamp_zmasq
   real, dimension(iim, jjm+1) :: deno
+  integer                     :: idtime
 ! 
   logical, save    :: first_appel = .true.
@@ -807,5 +808,6 @@
 ! initialisation couplage
 !
-    call inicma(npas , nexca, dtime,(jjm+1)*iim)
+    idtime = int(dtime)
+    call inicma(npas , nexca, idtime,(jjm+1)*iim)
 !
 ! 1ere lecture champs ocean