| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
101 |
COST_GENCOST_SSHV4 |
_RL tpma(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1237 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1251 |
COST_GENCOST_SSHV4 |
& tpob, tpma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1283 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1349 |
COST_GENCOST_SSHV4 |
& *tpma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
259 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
388 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
401 |
COST_GENCOST_SSHV4 |
& tpob, tpma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
416 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
554 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
568 |
COST_GENCOST_SSHV4 |
& tpob, tpma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
587 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
954 |
COST_GENCOST_SSHV4 |
tpma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
968 |
COST_GENCOST_SSHV4 |
& tpob, tpma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
985 |
COST_GENCOST_SSHV4 |
if ( tpma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |