| File |
Line number |
Procedure |
Code |
|
./pkg/sbo/sbo_calc.F |
160 |
SBO_CALC |
integer bi, bj, i, j, k, kn0 |
|
./pkg/sbo/sbo_calc.F |
200 |
SBO_CALC |
kn0 = max(k,1) |
|
./pkg/sbo/sbo_calc.F |
203 |
SBO_CALC |
I 1, sNx, 1, sNy, kn0, |
|
./pkg/sbo/sbo_calc.F |
204 |
SBO_CALC |
I theta(1-OLx,1-OLy,kn0,bi,bj), |
|
./pkg/sbo/sbo_calc.F |
205 |
SBO_CALC |
I salt(1-OLx,1-OLy,kn0,bi,bj), |
|
./pkg/sbo/sbo_calc.F |
207 |
SBO_CALC |
I kn0, bi, bj, myThid ) |
|
./pkg/sbo/sbo_calc.F |
212 |
SBO_CALC |
IF ( maskC(i,j,kn0,bi,bj) .NE. 0. ) THEN |
|
./pkg/sbo/sbo_calc.F |
222 |
SBO_CALC |
& * maskC(i,j,kn0,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
dradius = etaN(i,j,bi,bj) * maskC(i,j,kn0,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
244 |
SBO_CALC |
u =(uvel(i,j,kn0,bi,bj)+uvel(i+1,j,kn0,bi,bj))*0.5 _d 0 |
|
./pkg/sbo/sbo_calc.F |
245 |
SBO_CALC |
v =(vvel(i,j,kn0,bi,bj)+vvel(i,j+1,kn0,bi,bj))*0.5 _d 0 |