File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_gencost_sshv4.F |
1007 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
1019 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
1170 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) then |
./pkg/ecco/cost_gencost_sshv4.F |
1182 |
COST_GENCOST_SSHV4 |
& (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) |
./pkg/ecco/cost_gencost_sshv4.F |
137 |
COST_GENCOST_SSHV4 |
_RL anom_psMslaobs_MSK (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy) |
./pkg/ecco/cost_gencost_sshv4.F |
921 |
COST_GENCOST_SSHV4 |
anom_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0 |
./pkg/ecco/cost_gencost_sshv4.F |
995 |
COST_GENCOST_SSHV4 |
& anom_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0 |