| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
145 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
152 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
u1 = u1 + port_rand_norm()*flt_noise |
|
./pkg/flt/flt_runga2.F |
169 |
FLT_RUNGA2 |
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
186 |
FLT_RUNGA2 |
& + flt_deltaT*u1*scalex |
|
./pkg/flt/flt_runga2.F |
45 |
FLT_RUNGA2 |
_RL uu, vv, u1, v1 |
|
./pkg/flt/flt_runga4.F |
110 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
117 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
124 |
FLT_RUNGA4 |
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
139 |
FLT_RUNGA4 |
itx1=ix+0.5*flt_deltaT*u1*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 |