File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_gencost_sshv4.F |
118 |
COST_GENCOST_SSHV4 |
_RL mean_psMssh_all(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ecco/cost_gencost_sshv4.F |
518 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
633 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
634 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
./pkg/ecco/cost_gencost_sshv4.F |
645 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
646 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
./pkg/ecco/cost_gencost_sshv4.F |
657 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
658 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) + |
./pkg/ecco/cost_gencost_sshv4.F |
672 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
./pkg/ecco/cost_gencost_sshv4.F |
687 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
688 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) / |
./pkg/ecco/cost_gencost_sshv4.F |
691 |
COST_GENCOST_SSHV4 |
offset=offset+RA(i,j,bi,bj)*mean_psMssh_all(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
697 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
705 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
781 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
782 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all(i,j,bi,bj) - offset |
./pkg/ecco/cost_gencost_sshv4.F |
789 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
794 |
COST_GENCOST_SSHV4 |
mean_psMssh_all(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
810 |
COST_GENCOST_SSHV4 |
& 1,mean_psMssh_all,1,1,mythid) |
./pkg/ecco/cost_gencost_sshv4.F |
815 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(mean_psMssh_all,maskc, |
./pkg/ecco/cost_gencost_sshv4.F |
823 |
COST_GENCOST_SSHV4 |
& 1,mean_psMssh_all,1,1,mythid) |
./pkg/ecco/cost_gencost_sshv4.F |
861 |
COST_GENCOST_SSHV4 |
junk = mean_psMssh_all(i,j,bi,bj) |