6 |
|
|
7 |
contains |
contains |
8 |
|
|
9 |
subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xzoom, xlon, xprimm, xuv) |
subroutine fxhyp_loop_ik(xf, xtild, Xprimt, xlon, xprimm, xuv) |
10 |
|
|
11 |
use coefpoly_m, only: coefpoly |
use coefpoly_m, only: coefpoly |
12 |
USE dimens_m, ONLY: iim |
USE dimens_m, ONLY: iim |
13 |
use nr_util, only: pi_d, twopi_d |
use nr_util, only: pi_d, twopi_d |
14 |
|
use serre, only: clon |
15 |
|
|
16 |
DOUBLE PRECISION, intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax) |
DOUBLE PRECISION, intent(in):: Xf(0:), xtild(0:), Xprimt(0:) ! (0:2 * nmax) |
|
DOUBLE PRECISION, intent(in):: xzoom |
|
17 |
real, intent(out):: xlon(:), xprimm(:) ! (iim) |
real, intent(out):: xlon(:), xprimm(:) ! (iim) |
18 |
|
|
19 |
DOUBLE PRECISION, intent(in):: xuv |
DOUBLE PRECISION, intent(in):: xuv |
78 |
END IF |
END IF |
79 |
END DO |
END DO |
80 |
|
|
81 |
xlon = xvrai + xzoom |
xlon = xvrai + clon |
82 |
xprimm = xxprim |
xprimm = xxprim |
83 |
|
|
84 |
end subroutine fxhyp_loop_ik |
end subroutine fxhyp_loop_ik |