File |
Line number |
Procedure |
Code |
./pkg/ecco/cost_gencost_seaicev4.F |
121 |
COST_GENCOST_SEAICEV4 |
igen_conc=0 |
./pkg/ecco/cost_gencost_seaicev4.F |
125 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-conc') igen_conc=k |
./pkg/ecco/cost_gencost_seaicev4.F |
134 |
COST_GENCOST_SEAICEV4 |
if (igen_conc.NE.0) then |
./pkg/ecco/cost_gencost_seaicev4.F |
139 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_conc) = 0. _d 0 |
./pkg/ecco/cost_gencost_seaicev4.F |
140 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_conc) = 0. _d 0 |
./pkg/ecco/cost_gencost_seaicev4.F |
156 |
COST_GENCOST_SEAICEV4 |
areabarfile=gencost_barfile(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
160 |
COST_GENCOST_SEAICEV4 |
localobsfile=gencost_datafile(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
161 |
COST_GENCOST_SEAICEV4 |
localobswfile=gencost_errfile(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
162 |
COST_GENCOST_SEAICEV4 |
dummy=gencost_dummy(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
167 |
COST_GENCOST_SEAICEV4 |
spminloc=gencost_spmin(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
168 |
COST_GENCOST_SEAICEV4 |
spmaxloc=gencost_spmax(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
169 |
COST_GENCOST_SEAICEV4 |
spzeroloc=gencost_spzero(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
171 |
COST_GENCOST_SEAICEV4 |
localperiod=gencost_period(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
172 |
COST_GENCOST_SEAICEV4 |
nrecloc=gencost_nrec(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
178 |
COST_GENCOST_SEAICEV4 |
preproc(k2)=gencost_preproc(k2,igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
179 |
COST_GENCOST_SEAICEV4 |
preproc_i(k2)=gencost_preproc_i(k2,igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
180 |
COST_GENCOST_SEAICEV4 |
preproc_c(k2)=gencost_preproc_c(k2,igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
181 |
COST_GENCOST_SEAICEV4 |
preproc_r(k2)=gencost_preproc_r(k2,igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
204 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(areabarfile,gencost_errfile(igen_conc), |
./pkg/ecco/cost_gencost_seaicev4.F |
209 |
COST_GENCOST_SEAICEV4 |
fname0w=gencost_errfile(igen_conc) |
./pkg/ecco/cost_gencost_seaicev4.F |
234 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(areabarfile,gencost_datafile(igen_conc), |
./pkg/ecco/cost_gencost_seaicev4.F |
244 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(deconcbarfile,gencost_datafile(igen_conc), |
./pkg/ecco/cost_gencost_seaicev4.F |
255 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(exconcbarfile,gencost_datafile(igen_conc), |
./pkg/ecco/cost_gencost_seaicev4.F |
293 |
COST_GENCOST_SEAICEV4 |
O objf_gencost(1,1,igen_conc),num_gencost(1,1,igen_conc), |
./pkg/ecco/cost_gencost_seaicev4.F |
70 |
COST_GENCOST_SEAICEV4 |
integer igen_conc, igen_deconc, igen_exconc |