| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
156 |
COST_GENCOST_SEAICEV4 |
igen_conc=0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
160 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-conc') igen_conc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
165 |
COST_GENCOST_SEAICEV4 |
if ((igen_conc.NE.0).AND.(igen_deconc.NE.0) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
176 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_conc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
179 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_conc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
187 |
COST_GENCOST_SEAICEV4 |
if(gencost_timevaryweight(igen_conc)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
210 |
COST_GENCOST_SEAICEV4 |
areabbbarfile=gencost_barfile(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
213 |
COST_GENCOST_SEAICEV4 |
localobsfile=gencost_datafile(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
215 |
COST_GENCOST_SEAICEV4 |
localobswfile=gencost_errfile(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
217 |
COST_GENCOST_SEAICEV4 |
xx_areabbbar_mean_dummy=xx_genbar_dummy(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
224 |
COST_GENCOST_SEAICEV4 |
spminloc=gencost_spmin(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
225 |
COST_GENCOST_SEAICEV4 |
spmaxloc=gencost_spmax(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
226 |
COST_GENCOST_SEAICEV4 |
spzeroloc=gencost_spzero(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
228 |
COST_GENCOST_SEAICEV4 |
localperiod=gencost_period(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
229 |
COST_GENCOST_SEAICEV4 |
nrecloc=gencost_nrec(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
330 |
COST_GENCOST_SEAICEV4 |
if(gencost_timevaryweight(igen_conc)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
379 |
COST_GENCOST_SEAICEV4 |
if (gencost_timevaryweight(igen_conc)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
393 |
COST_GENCOST_SEAICEV4 |
& gencost_weight(i,j,bi,bj,igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
397 |
COST_GENCOST_SEAICEV4 |
& gencost_weight(i,j,bi,bj,igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
412 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_conc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
413 |
COST_GENCOST_SEAICEV4 |
& objf_gencost(bi,bj,igen_conc) + junk*junk*localwww |
|
./pkg/ecco/cost_gencost_seaicev4.F |
416 |
COST_GENCOST_SEAICEV4 |
& num_gencost(bi,bj,igen_conc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
417 |
COST_GENCOST_SEAICEV4 |
& num_gencost(bi,bj,igen_conc) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
75 |
COST_GENCOST_SEAICEV4 |
integer igen_conc, igen_deconc, igen_exconc |