| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_bp.F |
101 |
COST_BP |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
185 |
COST_BP |
bpdifanom(i,j,bi,bj) = |
|
./pkg/ecco/cost_bp.F |
191 |
COST_BP |
bpdifanom(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
209 |
COST_BP |
offset = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
227 |
COST_BP |
bpdifanom(i,j,bi,bj) = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
239 |
COST_BP |
& 1,bpdifanom,irec,1,mythid) |
|
./pkg/ecco/cost_bp.F |
245 |
COST_BP |
call SMOOTH_BASIC2D(bpdifanom,maskc,750000. _d 0,5000,mythid) |
|
./pkg/ecco/cost_bp.F |
252 |
COST_BP |
& 1,bpdifanom,irec,1,mythid) |
|
./pkg/ecco/cost_bp.F |
266 |
COST_BP |
junk = bpdifanom(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
66 |
COST_BP |
_RL bpdifanom ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |