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	module serre
2
3	implicit none
4
5	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
8	real, save:: transx, transy
9	real, save:: alphax, alphay ! anciennes formulations des grossissements
10	real, save:: pxo, pyo
11
12	real:: grossismx = 1. ! facteur de grossissement du zoom, selon la longitude
13	real:: grossismy = 1. ! facteur de grossissement du zoom, selon la latitude
14
15	real:: dzoomx = 0.
16	! extension en longitude de la zone du zoom (fraction de la zone totale)
17
18	real:: dzoomy = 0.
19	! extension en latitude de la zone du zoom (fraction de la zone totale)
20
21	real:: taux = 3. ! raideur du zoom en X
22	real:: tauy = 3. ! raideur du zoom en Y
23
24	end module serre