| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga4.F |
202 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
212 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx2,jty2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
220 |
FLT_RUNGA4 |
u3 = u3 + 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 |
244 |
FLT_RUNGA4 |
itx3=ix+flt_deltaT*u3*scalex |
|
./pkg/flt/flt_runga4.F |
298 |
FLT_RUNGA4 |
& * (u1 + 2*u2 + 2*u3 + u4) * scalex |
|
./pkg/flt/flt_runga4.F |
55 |
FLT_RUNGA4 |
_RL u1, v1, u2, v2, u3, v3, u4, v4 |
|
./pkg/kpp/kpp_routines.F |
876 |
WSCALE |
_RL wbm, was, wbs, u3, tempVar |
|
./pkg/kpp/kpp_routines.F |
924 |
WSCALE |
u3 = ustar(i) * ustar(i) * ustar(i) |
|
./pkg/kpp/kpp_routines.F |
925 |
WSCALE |
tempVar = u3 + conc1 * zehat |
|
./pkg/kpp/kpp_routines.F |
926 |
WSCALE |
wm(i) = vonk * ustar(i) * u3 / tempVar |