| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_bp.F |
107 |
COST_BP |
bpcount(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_bp.F |
144 |
COST_BP |
bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) +1. |
|
./pkg/ecco/cost_bp.F |
157 |
COST_BP |
if (bpcount(i,j,bi,bj).GT.0.) then |
|
./pkg/ecco/cost_bp.F |
158 |
COST_BP |
bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
159 |
COST_BP |
bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj) |
|
./pkg/ecco/cost_bp.F |
71 |
COST_BP |
_RL bpcount ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |