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

Annotation of /trunk/dyn3d/serre.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 39 - (hide annotations)
Tue Jan 25 15:11:05 2011 UTC (13 years, 4 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 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
  ViewVC Help
Powered by ViewVC 1.1.21