--- trunk/dyn3d/fxhyp_loop_ik.f	2015/02/06 18:33:15	126
+++ trunk/dyn3d/fxhyp_loop_ik.f	2015/02/10 17:58:56	127
@@ -6,14 +6,14 @@
 
 contains
 
-  subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xzoom, xlon, xprimm, xuv)
+  subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xlon, xprimm, xuv)
 
     use coefpoly_m, only: coefpoly
     USE dimens_m, ONLY: iim
     use nr_util, only: pi_d, twopi_d
+    use serre, only: clon
 
     DOUBLE PRECISION, intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax)
-    DOUBLE PRECISION, intent(in):: xzoom
     real, intent(out):: xlon(:), xprimm(:) ! (iim)
 
     DOUBLE PRECISION, intent(in):: xuv
@@ -78,7 +78,7 @@
        END IF
     END DO
 
-    xlon = xvrai + xzoom
+    xlon = xvrai + clon
     xprimm = xxprim
 
   end subroutine fxhyp_loop_ik