/[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 97 by guez, Fri Apr 25 14:58:31 2014 UTC revision 112 by guez, Thu Sep 18 13:36:51 2014 UTC
# Line 4  module fxyhyper_m Line 4  module fxyhyper_m
4    
5  contains  contains
6    
7    SUBROUTINE fxyhyper(yzoom, grossy, dzoomy, tauy, xzoom, grossx, dzoomx, &    SUBROUTINE fxyhyper(rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, &
8         taux, rlatu, yprimu, rlatv, yprimv, rlatu1, yprimu1, rlatu2, yprimu2, &         yprimu2, rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, rlonp025, &
9         rlonu, xprimu, rlonv, xprimv, rlonm025, xprimm025, rlonp025, xprimp025)         xprimp025)
10    
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    
# Line 14  contains Line 14  contains
14      use fxhyp_m, only: fxhyp      use fxhyp_m, only: fxhyp
15      use fyhyp_m, only: fyhyp      use fyhyp_m, only: fyhyp
16      USE paramet_m, ONLY: iip1      USE paramet_m, ONLY: iip1
17        use serre, only: clat, grossismy, dzoomy, tauy, clon, grossismx, dzoomx, &
18             taux
19    
20      ! Auteur : P. Le Van d'après les formulations de R. Sadourny      ! Auteur : P. Le Van d'après les formulations de R. Sadourny
21    
22        ! f(x, y) à dérivée tangente hyperbolique
23    
24      ! Cette procédure calcule les latitudes (routine fyhyp) et      ! Cette procédure calcule les latitudes (routine fyhyp) et
25      ! longitudes (fxhyp) par des fonctions à tangente hyperbolique.      ! longitudes (fxhyp) par des fonctions à tangente hyperbolique.
26    
27      ! Il y a trois paramètres, en plus des coordonnées du centre du      ! Il y a trois paramètres, en plus des coordonnées du centre du
28      ! zoom (xzoom et yzoom) :      ! zoom (clon et clat) :
29    
30      ! a) le grossissement du zoom : grossy (en y) et grossx (en x)      ! a) le grossissement du zoom : grossismy (en y) et grossismx (en x)
31      ! b) l' extension du zoom : dzoomy (en y) et dzoomx (en x)      ! b) l' extension du zoom : dzoomy (en y) et dzoomx (en x)
32      ! c) la raideur de la transition du zoom : taux et tauy      ! c) la raideur de la transition du zoom : taux et tauy
33    
34      ! Nota bene : il vaut mieux avoir : grossx * dzoomx < pi (radians)      ! Nota bene : il vaut mieux avoir : grossismx * dzoomx < pi (radians)
35      ! et grossy * dzoomy < pi/2 (radians)      ! et grossismy * dzoomy < pi/2 (radians)
36    
     REAL yzoom, grossy, dzoomy, tauy, xzoom, grossx, dzoomx, taux  
37      REAL rlatu(:), yprimu(:) ! (jjm + 1)      REAL rlatu(:), yprimu(:) ! (jjm + 1)
38      real rlatv(:), yprimv(:) ! (jjm)      real rlatv(:), yprimv(:) ! (jjm)
39      real rlatu1(:), yprimu1(:), rlatu2(:), yprimu2(:) ! (jjm)      real rlatu1(:), yprimu1(:), rlatu2(:), yprimu2(:) ! (jjm)
# Line 44  contains Line 47  contains
47    
48      !----------------------------------------------------------      !----------------------------------------------------------
49    
50      CALL fyhyp(yzoom, grossy, dzoomy, tauy, rlatu, yprimu, rlatv, yprimv, &      CALL fyhyp(clat, grossismy, dzoomy, tauy, rlatu, yprimu, rlatv, yprimv, &
51           rlatu2, yprimu2, rlatu1, yprimu1, dymin, dymax)           rlatu2, yprimu2, rlatu1, yprimu1, dymin, dymax)
52      CALL fxhyp(xzoom, grossx, dzoomx, taux, rlonm025, xprimm025, rlonv, &      CALL fxhyp(clon, grossismx, dzoomx, taux, rlonm025, xprimm025, rlonv, &
53           xprimv, rlonu, xprimu, rlonp025, xprimp025, dxmin, dxmax)           xprimv, rlonu, xprimu, rlonp025, xprimp025, dxmin, dxmax)
54    
55      DO i = 1, iip1      DO i = 1, iip1
Legend:
Removed from v.97  
changed lines
  Added in v.112
  ViewVC Help
Powered by ViewVC 1.1.21