| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
258 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
342 |
COST_GENCOST_SSHV4 |
& mdtob, 1, mythid ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
355 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .lt. spval ).OR. |
|
./pkg/ecco/cost_gencost_sshv4.F |
356 |
COST_GENCOST_SSHV4 |
& (mdtob(i,j,bi,bj) .eq. 0. _d 0) ) then |
|
./pkg/ecco/cost_gencost_sshv4.F |
358 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
361 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj)*factor |
|
./pkg/ecco/cost_gencost_sshv4.F |
490 |
COST_GENCOST_SSHV4 |
mdtob(i,j,bi,bj) = mdtob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
689 |
COST_GENCOST_SSHV4 |
& mean_psMssh_all_NUM(i,j,bi,bj)-mdtob(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
700 |
COST_GENCOST_SSHV4 |
& *( psmean(i,j,bi,bj) -mdtob(i,j,bi,bj) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
790 |
COST_GENCOST_SSHV4 |
& psmean(i,j,bi,bj) -mdtob(i,j,bi,bj) - offset |
|
./pkg/ecco/cost_gencost_sshv4.F |
96 |
COST_GENCOST_SSHV4 |
_RL mdtob(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |