| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_seaicev4.F |
122 |
COST_GENCOST_SEAICEV4 |
igen_deconc=0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
126 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-deconc') igen_deconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
141 |
COST_GENCOST_SEAICEV4 |
if(igen_deconc.ne.0) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
142 |
COST_GENCOST_SEAICEV4 |
objf_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
143 |
COST_GENCOST_SEAICEV4 |
num_gencost(bi,bj,igen_deconc) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_seaicev4.F |
157 |
COST_GENCOST_SEAICEV4 |
if(igen_deconc.ne.0) deconcbarfile=gencost_barfile(igen_deconc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
211 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(gencost_errfile(igen_deconc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
212 |
COST_GENCOST_SEAICEV4 |
& gencost_weight(1,1,1,1,igen_deconc),localrec,nnzsiv4,mythid) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
242 |
COST_GENCOST_SEAICEV4 |
if(igen_deconc.ne.0) then |
|
./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 |
298 |
COST_GENCOST_SEAICEV4 |
if(igen_deconc.ne.0) then |
|
./pkg/ecco/cost_gencost_seaicev4.F |
309 |
COST_GENCOST_SEAICEV4 |
call ECCO_CP(gencost_weight(1,1,1,1,igen_deconc),nnzsiv4, |
|
./pkg/ecco/cost_gencost_seaicev4.F |
314 |
COST_GENCOST_SEAICEV4 |
O objf_gencost(1,1,igen_deconc),num_gencost(1,1,igen_deconc), |
|
./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 |
70 |
COST_GENCOST_SEAICEV4 |
integer igen_conc, igen_deconc, igen_exconc |