| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
151 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
158 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
164 |
FLT_RUNGA2 |
v1 = v1 + PORT_RAND_NORM()*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 |
193 |
FLT_RUNGA2 |
& + flt_deltaT*v1*scaley |
|
./pkg/flt/flt_runga2.F |
55 |
FLT_RUNGA2 |
_RL uu, vv, u1, v1 |
|
./pkg/flt/flt_runga4.F |
116 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
123 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
130 |
FLT_RUNGA4 |
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
145 |
FLT_RUNGA4 |
jty1=jy+0.5*flt_deltaT*v1*scaley |
|
./pkg/flt/flt_runga4.F |
300 |
FLT_RUNGA4 |
& * (v1 + 2*v2 + 2*v3 + v4) * scaley |
|
./pkg/flt/flt_runga4.F |
55 |
FLT_RUNGA4 |
_RL u1, v1, u2, v2, u3, v3, u4, v4 |
|
./pkg/openad/ad_s_different_multiple.F |
40 |
OAD_S_DIFFERENT_MULTIPLE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./pkg/openad/ad_s_different_multiple.F |
52 |
OAD_S_DIFFERENT_MULTIPLE |
v1 = val1 |
|
./pkg/openad/ad_s_different_multiple.F |
57 |
OAD_S_DIFFERENT_MULTIPLE |
v4 = NINT(v1/freq)*freq |
|
./pkg/openad/ad_s_different_multiple.F |
58 |
OAD_S_DIFFERENT_MULTIPLE |
d1 = v1-v4 |
|
./eesupp/src/diff_phase_multiple.F |
41 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/diff_phase_multiple.F |
56 |
NO PROCEDURE |
v1 = val1 |
|
./eesupp/src/diff_phase_multiple.F |
61 |
NO PROCEDURE |
v4 = phase + NINT((v1-phase)/freq)*freq |
|
./eesupp/src/diff_phase_multiple.F |
62 |
NO PROCEDURE |
d1 = v1-v4 |
|
./eesupp/src/different_multiple.F |
40 |
NO PROCEDURE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./eesupp/src/different_multiple.F |
52 |
NO PROCEDURE |
v1 = val1 |
|
./eesupp/src/different_multiple.F |
57 |
NO PROCEDURE |
v4 = NINT(v1/freq)*freq |
|
./eesupp/src/different_multiple.F |
58 |
NO PROCEDURE |
d1 = v1-v4 |