| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_curmtr.F |
217 |
COST_CURMTR |
tmpvbar(i,j) = vbar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
223 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
228 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
234 |
COST_CURMTR |
tmpvbar(i,j) = vbar(7,9,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
238 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
242 |
COST_CURMTR |
tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
275 |
COST_CURMTR |
if (tmpvbar(i,j) .ne. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
278 |
COST_CURMTR |
& (tmpvbar(i,j)-tmpvobs(i,j))* |
|
./pkg/ecco/cost_curmtr.F |
279 |
COST_CURMTR |
& (tmpvbar(i,j)-tmpvobs(i,j)) |
|
./pkg/ecco/cost_curmtr.F |
70 |
COST_CURMTR |
_RL tmpvbar (1-olx:snx+olx,1-oly:sny+oly) |