64 |
|
|
65 |
REAL FUNCTION ripx(ri) |
REAL FUNCTION ripx(ri) |
66 |
! stretching in x |
! stretching in x |
67 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
68 |
REAL, INTENT (IN) :: ri |
REAL, INTENT (IN) :: ri |
69 |
|
|
70 |
ripx = (ri - 1.) * 2 * pi / REAL(iim) |
ripx = (ri - 1.) * 2 * pi / REAL(iim) |
74 |
|
|
75 |
REAL FUNCTION fx(ri) |
REAL FUNCTION fx(ri) |
76 |
! stretching in x |
! stretching in x |
77 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
78 |
USE serre, ONLY : alphax, pxo, transx |
USE serre, ONLY : alphax, pxo, transx |
79 |
REAL, INTENT (IN) :: ri |
REAL, INTENT (IN) :: ri |
80 |
|
|
85 |
|
|
86 |
REAL FUNCTION fxprim(ri) |
REAL FUNCTION fxprim(ri) |
87 |
! stretching in x |
! stretching in x |
88 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
89 |
USE serre, ONLY : alphax, pxo, transx |
USE serre, ONLY : alphax, pxo, transx |
90 |
REAL, INTENT (IN) :: ri |
REAL, INTENT (IN) :: ri |
91 |
|
|
96 |
|
|
97 |
REAL FUNCTION bigy(rj) |
REAL FUNCTION bigy(rj) |
98 |
! stretching in y |
! stretching in y |
99 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
100 |
REAL, INTENT (IN) :: rj |
REAL, INTENT (IN) :: rj |
101 |
|
|
102 |
bigy = 2 * (REAL(jjm + 1) - rj) * pi / jjm |
bigy = 2 * (REAL(jjm + 1) - rj) * pi / jjm |
106 |
|
|
107 |
REAL FUNCTION fy(rj) |
REAL FUNCTION fy(rj) |
108 |
! stretching in y |
! stretching in y |
109 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
110 |
USE serre, ONLY : alphay, pyo, transy |
USE serre, ONLY : alphay, pyo, transy |
111 |
REAL, INTENT (IN) :: rj |
REAL, INTENT (IN) :: rj |
112 |
|
|
118 |
|
|
119 |
REAL FUNCTION fyprim(rj) |
REAL FUNCTION fyprim(rj) |
120 |
! stretching in y |
! stretching in y |
121 |
USE comconst, ONLY : pi |
USE nr_util, ONLY : pi |
122 |
USE serre, ONLY : alphay, pyo, transy |
USE serre, ONLY : alphay, pyo, transy |
123 |
REAL, INTENT (IN) :: rj |
REAL, INTENT (IN) :: rj |
124 |
|
|