| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga4.F |
197 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(itx2,jty2,ktz2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
207 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(itx2,jty2,u3,uVel, |
|
./pkg/flt/flt_runga4.F |
215 |
FLT_RUNGA4 |
u3 = u3 + port_rand_norm()*flt_noise |
|
./pkg/flt/flt_runga4.F |
226 |
FLT_RUNGA4 |
u3 = u3 + u3*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
239 |
FLT_RUNGA4 |
itx3=ix+flt_deltaT*u3*scalex |
|
./pkg/flt/flt_runga4.F |
293 |
FLT_RUNGA4 |
& * (u1 + 2*u2 + 2*u3 + u4) * scalex |
|
./pkg/flt/flt_runga4.F |
45 |
FLT_RUNGA4 |
_RL u1, v1, u2, v2, u3, v3, u4, v4 |
|
./pkg/kpp/kpp_routines.F |
754 |
WSCALE |
_RL wbm, was, wbs, u3, tempVar |
|
./pkg/kpp/kpp_routines.F |
792 |
WSCALE |
u3 = ustar(i) * ustar(i) * ustar(i) |
|
./pkg/kpp/kpp_routines.F |
793 |
WSCALE |
tempVar = u3 + conc1 * zehat |
|
./pkg/kpp/kpp_routines.F |
794 |
WSCALE |
wm(i) = vonk * ustar(i) * u3 / tempVar |