| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_sstv4.F |
115 |
COST_GENCOST_SSTV4 |
igen_amsre=0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
118 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre') igen_amsre=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
186 |
COST_GENCOST_SSTV4 |
il=ilnblnk(gencost_datafile(igen_amsre)) |
|
./pkg/ecco/cost_gencost_sstv4.F |
188 |
COST_GENCOST_SSTV4 |
& gencost_datafile(igen_amsre)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
324 |
COST_GENCOST_SSTV4 |
il=ilnblnk(gencost_datafile(igen_amsre)) |
|
./pkg/ecco/cost_gencost_sstv4.F |
326 |
COST_GENCOST_SSTV4 |
& gencost_datafile(igen_amsre)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
375 |
COST_GENCOST_SSTV4 |
junkweight = gencost_weight(i,j,bi,bj,igen_amsre)* |
|
./pkg/ecco/cost_gencost_sstv4.F |
377 |
COST_GENCOST_SSTV4 |
objf_gencost(igen_amsre,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
378 |
COST_GENCOST_SSTV4 |
& objf_gencost(igen_amsre,bi,bj)+junk*junk*junkweight |
|
./pkg/ecco/cost_gencost_sstv4.F |
380 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre,bi,bj) = |
|
./pkg/ecco/cost_gencost_sstv4.F |
381 |
COST_GENCOST_SSTV4 |
& num_gencost(igen_amsre,bi,bj) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_sstv4.F |
96 |
COST_GENCOST_SSTV4 |
integer igen_amsre, igen_amsre_lsc |