File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_gencost_sshv4.F |
120 |
COST_GENCOST_SSHV4 |
_RL mean_psMssh_all_MSK(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ecco/cost_gencost_sshv4.F |
690 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
698 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
706 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
783 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
791 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
795 |
COST_GENCOST_SSHV4 |
mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
860 |
COST_GENCOST_SSHV4 |
if (mean_psMssh_all_MSK(i,j,bi,bj).NE.0. _d 0) then |