| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
106 |
COST_GENCOST_SEAICEV4 |
_RL localobsweight (1-olx:snx+olx,1-oly:sny+oly,nnzobs,nsx,nsy) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
188 |
COST_GENCOST_SEAICEV4 |
localobsweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
344 |
COST_GENCOST_SEAICEV4 |
& localobsweight, localrec, mythid ) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
353 |
COST_GENCOST_SEAICEV4 |
localobsweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
381 |
COST_GENCOST_SEAICEV4 |
if (localobsweight(i,j,k,bi,bj) .lt. -9900.) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
382 |
COST_GENCOST_SEAICEV4 |
localobsweight(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
384 |
COST_GENCOST_SEAICEV4 |
if (localobsweight(i,j,k,bi,bj) .ne. 0.) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
386 |
COST_GENCOST_SEAICEV4 |
& 1./localobsweight(i,j,k,bi,bj)/ |
|
./pkg/ecco/cost_gencost_seaicev4.F |
387 |
COST_GENCOST_SEAICEV4 |
& localobsweight(i,j,k,bi,bj) |