| File |
Line number |
Procedure |
Code |
|
./pkg/flt/FLT.h |
53 |
NO PROCEDURE |
_RL flt_noise, flt_deltaT |
|
./pkg/flt/FLT.h |
57 |
NO PROCEDURE |
& flt_noise, flt_deltaT, |
|
./pkg/flt/flt_readparms.F |
33 |
FLT_READPARMS |
& flt_noise, flt_deltaT, FLT_Iter0, |
|
./pkg/flt/flt_readparms.F |
55 |
FLT_READPARMS |
flt_noise = 0.0 |
|
./pkg/flt/flt_runga2.F |
126 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga2.F |
127 |
FLT_RUNGA2 |
uu = uu + uu*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
128 |
FLT_RUNGA2 |
vv = vv + vv*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
132 |
FLT_RUNGA2 |
ww = ww + ww*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
161 |
FLT_RUNGA2 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga2.F |
163 |
FLT_RUNGA2 |
u1 = u1 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga2.F |
164 |
FLT_RUNGA2 |
v1 = v1 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga2.F |
168 |
FLT_RUNGA2 |
w1 = w1 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga2.F |
174 |
FLT_RUNGA2 |
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
175 |
FLT_RUNGA2 |
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
179 |
FLT_RUNGA2 |
w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
128 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
129 |
FLT_RUNGA4 |
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
130 |
FLT_RUNGA4 |
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
134 |
FLT_RUNGA4 |
w1 = w1 + w1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
168 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
170 |
FLT_RUNGA4 |
u2 = u2 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
171 |
FLT_RUNGA4 |
v2 = v2 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
175 |
FLT_RUNGA4 |
w2 = w2 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
181 |
FLT_RUNGA4 |
u2 = u2 + u2*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
182 |
FLT_RUNGA4 |
v2 = v2 + v2*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
186 |
FLT_RUNGA4 |
w2 = w2 + w2*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
218 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
220 |
FLT_RUNGA4 |
u3 = u3 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
221 |
FLT_RUNGA4 |
v3 = v3 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
225 |
FLT_RUNGA4 |
w3 = w3 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
231 |
FLT_RUNGA4 |
u3 = u3 + u3*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
232 |
FLT_RUNGA4 |
v3 = v3 + v3*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
236 |
FLT_RUNGA4 |
w3 = w3 + w3*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
268 |
FLT_RUNGA4 |
IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN |
|
./pkg/flt/flt_runga4.F |
270 |
FLT_RUNGA4 |
u4 = u4 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
271 |
FLT_RUNGA4 |
v4 = v4 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
275 |
FLT_RUNGA4 |
w4 = w4 + PORT_RAND_NORM()*flt_noise |
|
./pkg/flt/flt_runga4.F |
281 |
FLT_RUNGA4 |
u4 = u4 + u4*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
282 |
FLT_RUNGA4 |
v4 = v4 + v4*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
286 |
FLT_RUNGA4 |
w4 = w4 + w4*(PORT_RAND(seed)-0.5)*flt_noise |