| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_curmtr.F |
218 |
COST_CURMTR |
tmpvbar(i,j) = vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
224 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
229 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
235 |
COST_CURMTR |
tmpvbar(i,j) = vbar(7,9,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
239 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
243 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
276 |
COST_CURMTR |
if (tmpvbar(i,j) .ne. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
279 |
COST_CURMTR |
& (tmpvbar(i,j)-tmpvobs(i,j))* |
|
./pkg/ecco/cost_curmtr.F |
280 |
COST_CURMTR |
& (tmpvbar(i,j)-tmpvobs(i,j)) |
|
./pkg/ecco/cost_curmtr.F |
71 |
COST_CURMTR |
_RL tmpvbar (1-olx:snx+olx,1-oly:sny+oly) |