| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_curmtr.F |
213 |
COST_CURMTR |
tmpubar(i,j) = ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
221 |
COST_CURMTR |
tmpubar(i,j) = ubar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
226 |
COST_CURMTR |
tmpubar(i,j) = ubar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
231 |
COST_CURMTR |
tmpubar(i,j) = (ubar(7,8,k,bi,bj) + ubar(8,8,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
236 |
COST_CURMTR |
tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
240 |
COST_CURMTR |
tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
264 |
COST_CURMTR |
if (tmpubar(i,j) .ne. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
267 |
COST_CURMTR |
& (tmpubar(i,j)-tmpuobs(i,j))* |
|
./pkg/ecco/cost_curmtr.F |
268 |
COST_CURMTR |
& (tmpubar(i,j)-tmpuobs(i,j)) |
|
./pkg/ecco/cost_curmtr.F |
67 |
COST_CURMTR |
_RL tmpubar (1-olx:snx+olx,1-oly:sny+oly) |