| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
158 |
COST_GENCOST_SEAICEV4 |
igen_exconc=0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
162 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-exconc') igen_exconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
166 |
COST_GENCOST_SEAICEV4 |
& .AND.(igen_exconc.NE.0)) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
177 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
180 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
211 |
COST_GENCOST_SEAICEV4 |
exconcbbbarfile=gencost_barfile(igen_exconc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
218 |
COST_GENCOST_SEAICEV4 |
xx_exconcbbbar_mean_dummy=xx_genbar_dummy(igen_exconc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
436 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_exconc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
437 |
COST_GENCOST_SEAICEV4 |
& num_gencost(bi,bj,igen_exconc) + 1. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
440 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_exconc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
441 |
COST_GENCOST_SEAICEV4 |
& num_gencost(bi,bj,igen_exconc) + 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
444 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_exconc) = |
|
./pkg/ecco/cost_gencost_seaicev4.F |
445 |
COST_GENCOST_SEAICEV4 |
& objf_gencost(bi,bj,igen_exconc) + |
|
./pkg/ecco/cost_gencost_seaicev4.F |
75 |
COST_GENCOST_SEAICEV4 |
integer igen_conc, igen_deconc, igen_exconc |