--- trunk/libf/dyn3d/serre.f90	2008/02/27 13:16:39	3
+++ trunk/dyn3d/serre.f	2014/03/05 14:57:53	82
@@ -2,27 +2,23 @@
 
   implicit none
 
-  REAL:: clon= 0. ! longitude en degres du centre du zoom
+  REAL:: clon = 0. ! longitude of the center of the zoom, in degrees
+  real:: clat = 0. ! latitude of the center of the zoom, in degrees
 
-  real:: clat= 0. ! latitude en degres du centre du zoom
-
-  real, save:: transx,transy
+  real, save:: transx, transy
   real, save:: alphax, alphay ! anciennes formulations des grossissements
-  real, save:: pxo,pyo
-
-  real:: grossismx= 1.0 ! facteur de grossissement du zoom, selon la longitude
-
-  real:: grossismy= 1.0 ! facteur de grossissement du zoom, selon la latitude
+  real, save:: pxo, pyo
 
-  real:: dzoomx= 0.0
-  ! (extension en longitude de la zone du zoom (fraction de la zone totale))
+  real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude
+  real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude
 
-  real:: dzoomy= 0.0
-  ! extension en latitude de la zone du zoom 
-  ! (fraction de la zone totale)
+  real:: dzoomx = 0.
+  ! extension en longitude de la zone du zoom (fraction de la zone totale)
 
-  real:: taux= 3.0 ! raideur du zoom en X
+  real:: dzoomy = 0.
+  ! extension en latitude de la zone du zoom (fraction de la zone totale)
 
-  real:: tauy= 3.0 ! raideur du zoom en Y
+  real:: taux = 3. ! raideur du zoom en X
+  real:: tauy = 3. ! raideur du zoom en Y
 
 end module serre