/[lmdze]/trunk/dyn3d/serre.f
ViewVC logotype

Contents of /trunk/dyn3d/serre.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 39 - (show annotations)
Tue Jan 25 15:11:05 2011 UTC (13 years, 3 months ago) by guez
Original Path: trunk/libf/dyn3d/serre.f90
File size: 751 byte(s) 
"pi" comes from "nr_util". Removed subroutine "initialize" in module
"comconst".

Copied the content of "fxy_sin.h" into "fxysinus", instead of getting
it from an "include" line. Removed file "fxy_sin.h".

"ps" has rank 2 in "gcm" and "dynetat0".

Assumed-shape for argument "q" of "integrd".
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
  ViewVC Help
Powered by ViewVC 1.1.21