| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sstv4.F |
106 |
COST_GENCOST_SSTV4 |
integer igen_amsre, igen_amsre_lsc |
|
./pkg/ecco/cost_gencost_sstv4.F |
132 |
COST_GENCOST_SSTV4 |
igen_amsre_lsc=0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
135 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre-lsc') igen_amsre_lsc=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
285 |
COST_GENCOST_SSTV4 |
& gencost_scalefile(igen_amsre_lsc), |
|
./pkg/ecco/cost_gencost_sstv4.F |
286 |
COST_GENCOST_SSTV4 |
& gencost_smooth2Ddiffnbt(igen_amsre_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
290 |
COST_GENCOST_SSTV4 |
& gencost_scalefile(igen_amsre_lsc), |
|
./pkg/ecco/cost_gencost_sstv4.F |
291 |
COST_GENCOST_SSTV4 |
& gencost_smooth2Ddiffnbt(igen_amsre_lsc),mythid) |
|
./pkg/ecco/cost_gencost_sstv4.F |
310 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_amsre_lsc)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
312 |
COST_GENCOST_SSTV4 |
objf_gencost(igen_amsre_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
313 |
COST_GENCOST_SSTV4 |
& objf_gencost(igen_amsre_lsc,bi,bj) |
|
./pkg/ecco/cost_gencost_sstv4.F |
316 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre_lsc,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
317 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre_lsc,bi,bj) + 1. _d 0 /ndaysaveRL |