| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
150 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
157 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
163 |
FLT_RUNGA2 |
u1 = u1 + 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 |
191 |
FLT_RUNGA2 |
& + flt_deltaT*u1*scalex |
|
./pkg/flt/flt_runga2.F |
55 |
FLT_RUNGA2 |
_RL uu, vv, u1, v1 |
|
./pkg/flt/flt_runga4.F |
115 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
122 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
129 |
FLT_RUNGA4 |
u1 = u1 + u1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
144 |
FLT_RUNGA4 |
itx1=ix+0.5*flt_deltaT*u1*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 |