--- trunk/dyn3d/fxyhyper.f	2014/09/18 13:36:51	112
+++ trunk/dyn3d/fxyhyper.f	2014/12/18 17:30:24	118
@@ -22,13 +22,13 @@
     ! f(x, y) à dérivée tangente hyperbolique
 
     ! Cette procédure calcule les latitudes (routine fyhyp) et
-    ! longitudes (fxhyp) par des fonctions à tangente hyperbolique.
+    ! longitudes (fxhyp) par des fonctions tangente hyperbolique.
 
     ! Il y a trois paramètres, en plus des coordonnées du centre du
     ! zoom (clon et clat) :
 
     ! a) le grossissement du zoom : grossismy (en y) et grossismx (en x)
-    ! b) l' extension du zoom : dzoomy (en y) et dzoomx (en x)
+    ! b) l'extension du zoom : dzoomy (en y) et dzoomx (en x)
     ! c) la raideur de la transition du zoom : taux et tauy 
 
     ! Nota bene : il vaut mieux avoir : grossismx * dzoomx < pi (radians)
@@ -53,17 +53,17 @@
          xprimv, rlonu, xprimu, rlonp025, xprimp025, dxmin, dxmax)
 
     DO i = 1, iip1
-       IF(rlonp025(i).LT.rlonv(i)) THEN
+       IF (rlonp025(i).LT.rlonv(i)) THEN
           print *, ' Attention ! rlonp025 < rlonv', i
           STOP 1
        ENDIF
 
-       IF(rlonv(i).LT.rlonm025(i)) THEN 
+       IF (rlonv(i).LT.rlonm025(i)) THEN 
           print *, ' Attention ! rlonm025 > rlonv', i
           STOP 1
        ENDIF
 
-       IF(rlonp025(i).GT.rlonu(i)) THEN
+       IF (rlonp025(i).GT.rlonu(i)) THEN
           print *, ' Attention ! rlonp025 > rlonu', i
           STOP 1
        ENDIF
@@ -72,32 +72,32 @@
     print *, 'Test de coherence ok pour fx'
 
     DO j = 1, jjm
-       IF(rlatu1(j).LE.rlatu2(j)) THEN
+       IF (rlatu1(j).LE.rlatu2(j)) THEN
           print *, 'Attention ! rlatu1 < rlatu2 ', rlatu1(j), rlatu2(j), j
           STOP 13
        ENDIF
 
-       IF(rlatu2(j).LE.rlatu(j+1)) THEN
+       IF (rlatu2(j).LE.rlatu(j+1)) THEN
           print *, 'Attention ! rlatu2 < rlatup1 ', rlatu2(j), rlatu(j+1), j
           STOP 14
        ENDIF
 
-       IF(rlatu(j).LE.rlatu1(j)) THEN
+       IF (rlatu(j).LE.rlatu1(j)) THEN
           print *, ' Attention ! rlatu < rlatu1 ', rlatu(j), rlatu1(j), j
           STOP 15
        ENDIF
 
-       IF(rlatv(j).LE.rlatu2(j)) THEN
+       IF (rlatv(j).LE.rlatu2(j)) THEN
           print *, ' Attention ! rlatv < rlatu2 ', rlatv(j), rlatu2(j), j
           STOP 16
        ENDIF
 
-       IF(rlatv(j).ge.rlatu1(j)) THEN
+       IF (rlatv(j).ge.rlatu1(j)) THEN
           print *, ' Attention ! rlatv > rlatu1 ', rlatv(j), rlatu1(j), j
           STOP 17
        ENDIF
 
-       IF(rlatv(j).ge.rlatu(j)) THEN
+       IF (rlatv(j).ge.rlatu(j)) THEN
           print *, ' Attention ! rlatv > rlatu ', rlatv(j), rlatu(j), j
           STOP 18
        ENDIF