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

Diff of /trunk/dyn3d/fxyhyper.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 77 by guez, Fri Nov 15 18:45:49 2013 UTC revision 78 by guez, Wed Feb 5 17:51:07 2014 UTC
# Line 11  contains Line 11  contains
11      ! From dyn3d/fxyhyper.F, version 1.1.1.1 2004/05/19 12:53:06      ! From dyn3d/fxyhyper.F, version 1.1.1.1 2004/05/19 12:53:06
12    
13      USE dimens_m, ONLY: jjm      USE dimens_m, ONLY: jjm
14        use fxhyp_m, only: fxhyp
15      USE paramet_m, ONLY: iip1, jjp1      USE paramet_m, ONLY: iip1, jjp1
16    
17      ! Auteur : P. Le Van d'après formulations de R. Sadourny      ! Auteur : P. Le Van d'après formulations de R. Sadourny
# Line 18  contains Line 19  contains
19      ! Cette procédure calcule les latitudes (routine fyhyp) et      ! Cette procédure calcule les latitudes (routine fyhyp) et
20      ! longitudes (fxhyp) par des fonctions à tangente hyperbolique.      ! longitudes (fxhyp) par des fonctions à tangente hyperbolique.
21    
22      ! Il y a 3 paramètres, en plus des coordonnées du centre du zoom (xzoom      ! Il y a trois paramètres, en plus des coordonnées du centre du
23      ! et yzoom) :      ! zoom (xzoom et yzoom) :
24    
25      ! a) le grossissement du zoom : grossy (en y) et grossx (en x)      ! a) le grossissement du zoom : grossy (en y) et grossx (en x)
26      ! b) l' extension du zoom : dzoomy (en y) et dzoomx (en x)      ! b) l' extension du zoom : dzoomy (en y) et dzoomx (en x)
27      ! c) la raideur de la transition du zoom : taux et tauy      ! c) la raideur de la transition du zoom : taux et tauy
28    
29      ! N. B. : il vaut mieux avoir : grossx * dzoomx < pi (radians) et      ! Nota bene : il vaut mieux avoir : grossx * dzoomx < pi (radians)
30      ! grossy * dzoomy < pi/2 (radians)      ! et grossy * dzoomy < pi/2 (radians)
31    
32      ! Arguments      REAL yzoom, grossy, dzoomy, tauy, xzoom, grossx, dzoomx, taux
   
     REAL xzoom, yzoom, grossx, grossy, dzoomx, dzoomy, taux, tauy  
33      REAL rlatu(jjp1), yprimu(jjp1), rlatv(jjm), yprimv(jjm)      REAL rlatu(jjp1), yprimu(jjp1), rlatv(jjm), yprimv(jjm)
34      real rlatu1(jjm), yprimu1(jjm), rlatu2(jjm), yprimu2(jjm)      real rlatu1(jjm), yprimu1(jjm), rlatu2(jjm), yprimu2(jjm)
35      REAL rlonu(iip1), xprimu(iip1), rlonv(iip1), xprimv(iip1)      REAL rlonu(iip1), xprimu(iip1), rlonv(iip1), xprimv(iip1)
36      REAL rlonm025(iip1), xprimm025(iip1), rlonp025(iip1), xprimp025(iip1)      REAL rlonm025(iip1), xprimm025(iip1), rlonp025(iip1), xprimp025(iip1)
     double precision dxmin, dxmax, dymin, dymax  
37    
38      ! Variables locales      ! Variables locales :
39    
40        double precision dxmin, dxmax, dymin, dymax
41      INTEGER i, j      INTEGER i, j
42    
43      !----------------------------------------------------------      !----------------------------------------------------------
Legend:
Removed from v.77  
changed lines
  Added in v.78
  ViewVC Help
Powered by ViewVC 1.1.21