17 |
! Le premier point scalaire pour une grille regulière (grossismx = |
! Le premier point scalaire pour une grille regulière (grossismx = |
18 |
! 1) avec clon = 0 est à - 180 degrés. |
! 1) avec clon = 0 est à - 180 degrés. |
19 |
|
|
20 |
USE dimens_m, ONLY: iim |
USE dimensions, ONLY: iim |
21 |
use dynetat0_m, only: clon, grossismx, dzoomx, taux |
use dynetat0_m, only: clon, grossismx, dzoomx, taux |
22 |
use invert_zoom_x_m, only: invert_zoom_x, nmax |
use invert_zoom_x_m, only: invert_zoom_x, nmax |
23 |
use nr_util, only: pi, pi_d, twopi, twopi_d, arth |
use nr_util, only: pi, pi_d, twopi, twopi_d, arth |
102 |
* ffdx(:nmax - 1) |
* ffdx(:nmax - 1) |
103 |
Xf(nmax) = pi_d |
Xf(nmax) = pi_d |
104 |
|
|
105 |
call invert_zoom_x(xf, xtild, G, rlonm025(:iim), xprimm025(:iim), & |
call invert_zoom_x(beta, xf, xtild, G, rlonm025(:iim), xprimm025(:iim), & |
106 |
xuv = - 0.25d0) |
xuv = - 0.25d0) |
107 |
call invert_zoom_x(xf, xtild, G, rlonv(:iim), xprimv(:iim), xuv = 0d0) |
call invert_zoom_x(beta, xf, xtild, G, rlonv(:iim), xprimv(:iim), & |
108 |
call invert_zoom_x(xf, xtild, G, rlonu(:iim), xprimu(:iim), xuv = 0.5d0) |
xuv = 0d0) |
109 |
call invert_zoom_x(xf, xtild, G, rlonp025(:iim), xprimp025(:iim), & |
call invert_zoom_x(beta, xf, xtild, G, rlonu(:iim), xprimu(:iim), & |
110 |
|
xuv = 0.5d0) |
111 |
|
call invert_zoom_x(beta, xf, xtild, G, rlonp025(:iim), xprimp025(:iim), & |
112 |
xuv = 0.25d0) |
xuv = 0.25d0) |
113 |
end if |
end if |
114 |
|
|