| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
123 |
COST_GENCOST_SEAICEV4 |
igen_exconc=0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
127 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-exconc') igen_exconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
145 |
COST_GENCOST_SEAICEV4 |
if(igen_exconc.ne.0) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
146 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
147 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_exconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
158 |
COST_GENCOST_SEAICEV4 |
if(igen_exconc.ne.0) exconcbarfile=gencost_barfile(igen_exconc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
213 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(gencost_errfile(igen_exconc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
214 |
COST_GENCOST_SEAICEV4 |
& gencost_weight(1,1,1,1,igen_exconc),localrec,nnzsiv4,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
253 |
COST_GENCOST_SEAICEV4 |
if(igen_deconc.ne.0 .and. igen_exconc.ne.0) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
320 |
COST_GENCOST_SEAICEV4 |
if(igen_deconc.ne.0 .and. igen_exconc.ne.0) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
331 |
COST_GENCOST_SEAICEV4 |
call ECCO_CP(gencost_weight(1,1,1,1,igen_exconc),nnzsiv4, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
336 |
COST_GENCOST_SEAICEV4 |
O objf_gencost(1,1,igen_exconc),num_gencost(1,1,igen_exconc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
70 |
COST_GENCOST_SEAICEV4 |
integer igen_conc, igen_deconc, igen_exconc |