| 18 |
! 1., taux=0., clon=0.) est à - 180 degrés. |
! 1., taux=0., clon=0.) est à - 180 degrés. |
| 19 |
|
|
| 20 |
USE dimens_m, ONLY: iim |
USE dimens_m, ONLY: iim |
| 21 |
use fxhyp_loop_ik_m, only: fxhyp_loop_ik, nmax |
use invert_zoom_x_m, only: invert_zoom_x, nmax |
| 22 |
use nr_util, only: pi, pi_d, twopi, twopi_d, arth |
use nr_util, only: pi, pi_d, twopi, twopi_d, arth |
| 23 |
use principal_cshift_m, only: principal_cshift |
use principal_cshift_m, only: principal_cshift |
| 24 |
use serre, only: clon, grossismx, dzoomx, taux |
use serre, only: clon, grossismx, dzoomx, taux |
| 157 |
|
|
| 158 |
Xf(2 * nmax) = pi_d |
Xf(2 * nmax) = pi_d |
| 159 |
|
|
| 160 |
call fxhyp_loop_ik(xf, xtild, Xprimt, rlonm025(:iim), xprimm025(:iim), & |
call invert_zoom_x(xf, xtild, Xprimt, rlonm025(:iim), xprimm025(:iim), & |
| 161 |
xuv = - 0.25d0) |
xuv = - 0.25d0) |
| 162 |
call fxhyp_loop_ik(xf, xtild, Xprimt, rlonv(:iim), xprimv(:iim), & |
call invert_zoom_x(xf, xtild, Xprimt, rlonv(:iim), xprimv(:iim), & |
| 163 |
xuv = 0d0) |
xuv = 0d0) |
| 164 |
call fxhyp_loop_ik(xf, xtild, Xprimt, rlonu(:iim), xprimu(:iim), & |
call invert_zoom_x(xf, xtild, Xprimt, rlonu(:iim), xprimu(:iim), & |
| 165 |
xuv = 0.5d0) |
xuv = 0.5d0) |
| 166 |
call fxhyp_loop_ik(xf, xtild, Xprimt, rlonp025(:iim), xprimp025(:iim), & |
call invert_zoom_x(xf, xtild, Xprimt, rlonp025(:iim), xprimp025(:iim), & |
| 167 |
xuv = 0.25d0) |
xuv = 0.25d0) |
| 168 |
end if test_grossismx |
end if test_grossismx |
| 169 |
|
|
Parent Directory
| 
Revision Log
| 
Patch