| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
625 |
COST_GENCOST_SSHV4 |
call ECCO_ZERO(num0array,1,oneRL,mythid) |
|
./pkg/ecco/cost_gencost_sshv4.F |
702 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
707 |
COST_GENCOST_SSHV4 |
num0array(i,j,bi,bj)=0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
726 |
COST_GENCOST_SSHV4 |
num0total=num0total+num0array(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
90 |
COST_GENCOST_SSHV4 |
_RL num0array ( 1-olx:snx+olx, 1-oly:sny+oly, nsx, nsy ) |