trunk/dyn3d/serre.f

module serre

  implicit none

  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, save:: transx, transy
  real, save:: alphax, alphay ! anciennes formulations des grossissements
  real, save:: pxo, pyo

  real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude
  real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude

  real:: dzoomx = 0.
  ! extension en longitude de la zone du zoom (fraction de la zone totale)

  real:: dzoomy = 0.
  ! extension en latitude de la zone du zoom (fraction de la zone totale)

  real:: taux = 3. ! raideur du zoom en X
  real:: tauy = 3. ! raideur du zoom en Y

end module serre
1	guez	3	module serre
2
3			implicit none
4
5	guez	39	REAL:: clon = 0. ! longitude of the center of the zoom, in degrees
6			real:: clat = 0. ! latitude of the center of the zoom, in degrees
7	guez	3
8	guez	39	real, save:: transx, transy
9	guez	3	real, save:: alphax, alphay ! anciennes formulations des grossissements
10	guez	39	real, save:: pxo, pyo
11	guez	3
12	guez	39	real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude
13			real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude
14	guez	3
15	guez	39	real:: dzoomx = 0.
16			! extension en longitude de la zone du zoom (fraction de la zone totale)
17	guez	3
18	guez	39	real:: dzoomy = 0.
19			! extension en latitude de la zone du zoom (fraction de la zone totale)
20	guez	3
21	guez	39	real:: taux = 3. ! raideur du zoom en X
22			real:: tauy = 3. ! raideur du zoom en Y
23	guez	3
24			end module serre