| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
102 |
COST_GENCOST_SSHV4 |
_RL ersma(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1239 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1256 |
COST_GENCOST_SSHV4 |
& ersob, ersma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1292 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1359 |
COST_GENCOST_SSHV4 |
& *ersma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
261 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
390 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
405 |
COST_GENCOST_SSHV4 |
& ersob, ersma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
422 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
556 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
573 |
COST_GENCOST_SSHV4 |
& ersob, ersma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
597 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
956 |
COST_GENCOST_SSHV4 |
ersma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
973 |
COST_GENCOST_SSHV4 |
& ersob, ersma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
997 |
COST_GENCOST_SSHV4 |
if ( ersma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |