| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
157 |
COST_GENCOST_SEAICEV4 |
igen_deconc=0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
161 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-deconc') igen_deconc=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 |
178 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
181 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
212 |
COST_GENCOST_SEAICEV4 |
deconcbbbarfile=gencost_barfile(igen_deconc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
219 |
COST_GENCOST_SEAICEV4 |
xx_deconcbbbar_mean_dummy=xx_genbar_dummy(igen_deconc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
462 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_deconc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
463 |
COST_GENCOST_SEAICEV4 |
& num_gencost(bi,bj,igen_deconc) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
466 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_deconc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
467 |
COST_GENCOST_SEAICEV4 |
& num_gencost(bi,bj,igen_deconc) + 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
470 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_deconc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
471 |
COST_GENCOST_SEAICEV4 |
& objf_gencost(bi,bj,igen_deconc) + |
|
./pkg/ecco/cost_gencost_seaicev4.F |
75 |
COST_GENCOST_SEAICEV4 |
integer igen_conc, igen_deconc, igen_exconc |