| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_curmtr.F |
214 |
COST_CURMTR |
tmpubar(i,j) = ubar(i,j,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
222 |
COST_CURMTR |
tmpubar(i,j) = ubar(5,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
227 |
COST_CURMTR |
tmpubar(i,j) = ubar(11,12,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
232 |
COST_CURMTR |
tmpubar(i,j) = (ubar(7,8,k,bi,bj) + ubar(8,8,k,bi,bj) |
|
./pkg/ecco/cost_curmtr.F |
237 |
COST_CURMTR |
tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
241 |
COST_CURMTR |
tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2. |
|
./pkg/ecco/cost_curmtr.F |
265 |
COST_CURMTR |
if (tmpubar(i,j) .ne. 0.) then |
|
./pkg/ecco/cost_curmtr.F |
268 |
COST_CURMTR |
& (tmpubar(i,j)-tmpuobs(i,j))* |
|
./pkg/ecco/cost_curmtr.F |
269 |
COST_CURMTR |
& (tmpubar(i,j)-tmpuobs(i,j)) |
|
./pkg/ecco/cost_curmtr.F |
68 |
COST_CURMTR |
_RL tmpubar (1-olx:snx+olx,1-oly:sny+oly) |