libf/dyn3d/serre.f90

module serre

  implicit none

  REAL:: clon= 0. ! longitude en degres du centre du zoom

  real:: clat= 0. ! latitude en degres du centre du zoom

  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:: dzoomx= 0.0
  ! (extension en longitude de la zone du zoom (fraction de la zone totale))

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

  real:: taux= 3.0 ! raideur du zoom en X

  real:: tauy= 3.0 ! raideur du zoom en Y

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