| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sshv4.F |
1009 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
103 |
COST_GENCOST_SSHV4 |
_RL gfoma(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1241 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
1261 |
COST_GENCOST_SSHV4 |
& gfoob, gfoma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
1301 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1369 |
COST_GENCOST_SSHV4 |
& *gfoma(i,j,bi,bj) |
|
./pkg/ecco/cost_gencost_sshv4.F |
263 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
392 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
409 |
COST_GENCOST_SSHV4 |
& gfoob, gfoma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
428 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)*mdtma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
558 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
578 |
COST_GENCOST_SSHV4 |
& gfoob, gfoma, |
|
./pkg/ecco/cost_gencost_sshv4.F |
607 |
COST_GENCOST_SSHV4 |
if ( gfoma(i,j,bi,bj)* |
|
./pkg/ecco/cost_gencost_sshv4.F |
958 |
COST_GENCOST_SSHV4 |
gfoma(i,j,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_sshv4.F |
978 |
COST_GENCOST_SSHV4 |
& gfoob, gfoma, |