| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_runga2.F |
146 |
FLT_RUNGA2 |
CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
153 |
FLT_RUNGA2 |
CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga2.F |
159 |
FLT_RUNGA2 |
v1 = v1 + port_rand_norm()*flt_noise |
|
./pkg/flt/flt_runga2.F |
170 |
FLT_RUNGA2 |
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga2.F |
188 |
FLT_RUNGA2 |
& + flt_deltaT*v1*scaley |
|
./pkg/flt/flt_runga2.F |
45 |
FLT_RUNGA2 |
_RL uu, vv, u1, v1 |
|
./pkg/flt/flt_runga4.F |
111 |
FLT_RUNGA4 |
CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
118 |
FLT_RUNGA4 |
CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid) |
|
./pkg/flt/flt_runga4.F |
125 |
FLT_RUNGA4 |
v1 = v1 + v1*(PORT_RAND(seed)-0.5)*flt_noise |
|
./pkg/flt/flt_runga4.F |
140 |
FLT_RUNGA4 |
jty1=jy+0.5*flt_deltaT*v1*scaley |
|
./pkg/flt/flt_runga4.F |
295 |
FLT_RUNGA4 |
& * (v1 + 2*v2 + 2*v3 + v4) * scaley |
|
./pkg/flt/flt_runga4.F |
45 |
FLT_RUNGA4 |
_RL u1, v1, u2, v2, u3, v3, u4, v4 |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
37 |
OAD_S_DIFFERENT_MULTIPLE |
_RL v1, v2, v3, v4, d1, d2, d3 |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
49 |
OAD_S_DIFFERENT_MULTIPLE |
v1 = val1 |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
54 |
OAD_S_DIFFERENT_MULTIPLE |
v4 = NINT(v1/freq)*freq |
|
./verification/OpenAD/code_oad_all/ad_s_different_multiple.F |
55 |
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 |