File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_gencost_sshv4.F |
1011 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
./pkg/ecco/cost_gencost_sshv4.F |
1035 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
1036 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) / |
./pkg/ecco/cost_gencost_sshv4.F |
1042 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
1065 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
1112 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = |
./pkg/ecco/cost_gencost_sshv4.F |
1113 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs(i,j,bi,bj) - slaoffset |
./pkg/ecco/cost_gencost_sshv4.F |
1117 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
1131 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
./pkg/ecco/cost_gencost_sshv4.F |
1140 |
COST_GENCOST_SSHV4 |
& call SMOOTH_HETERO2D(anom_psMslaobs,maskc, |
./pkg/ecco/cost_gencost_sshv4.F |
1155 |
COST_GENCOST_SSHV4 |
& 1,anom_psMslaobs,irec,1,mythid) |
./pkg/ecco/cost_gencost_sshv4.F |
1171 |
COST_GENCOST_SSHV4 |
junk = anom_psMslaobs(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
1173 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_SUB(i,j,bi,bj) = anom_psMslaobs(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
1288 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
1297 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
1306 |
COST_GENCOST_SSHV4 |
& - anom_psMslaobs(i,j,bi,bj) |
./pkg/ecco/cost_gencost_sshv4.F |
135 |
COST_GENCOST_SSHV4 |
_RL anom_psMslaobs(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ecco/cost_gencost_sshv4.F |
920 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
987 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |
./pkg/ecco/cost_gencost_sshv4.F |
999 |
COST_GENCOST_SSHV4 |
anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+ |