--- trunk/dyn3d/comgeom.f	2014/04/25 14:58:31	97
+++ trunk/dyn3d/comgeom.f	2014/09/18 13:36:51	112
@@ -170,8 +170,7 @@
     use jumble, only: new_unit
     use nr_util, only: pi
     USE paramet_m, ONLY : iip1, jjp1
-    USE serre, ONLY : alphax, alphay, clat, clon, dzoomx, dzoomy, grossismx, &
-         grossismy, pxo, pyo, taux, tauy, transx, transy
+    USE serre, ONLY : alphax, alphay, clat, clon, pxo, pyo, transx, transy
     ! Modifiés pxo, pyo, transx, transy
 
     ! Local:
@@ -217,10 +216,8 @@
     print *, "gamdi_h = ", gamdi_h
 
     IF (fxyhypb) THEN
-       ! Utilisation de fxyhyper, f(x, y) à dérivée tangente hyperbolique
        print *, 'inigeom: Y = latitude, dérivée tangente hyperbolique'
-       CALL fxyhyper(clat, grossismy, dzoomy, tauy, clon, grossismx, dzoomx, &
-            taux, rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, &
+       CALL fxyhyper(rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, &
             yprimu2, rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, &
             rlonp025, xprimp025)
     ELSE