| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_curmtr.F |
216 |
COST_CURMTR |
tmpvbar(i,j) = vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
222 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
227 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
233 |
COST_CURMTR |
tmpvbar(i,j) = vbar(7,9,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
237 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
241 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
274 |
COST_CURMTR |
if (tmpvbar(i,j) .ne. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
277 |
COST_CURMTR |
& (tmpvbar(i,j)-tmpvobs(i,j))* |
|
./pkg/ecco/cost_curmtr.F |
278 |
COST_CURMTR |
& (tmpvbar(i,j)-tmpvobs(i,j)) |
|
./pkg/ecco/cost_curmtr.F |
69 |
COST_CURMTR |
_RL tmpvbar (1-olx:snx+olx,1-oly:sny+oly) |