| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_boxmean.F |
111 |
COST_GENCOST_BOXMEAN |
call MDSREADFIELD( gencost_errfile(igen_boxmean), |
|
./pkg/ecco/cost_gencost_boxmean.F |
140 |
COST_GENCOST_BOXMEAN |
call MDSREADFIELD( gencost_errfile(igen_boxmean), |
|
./pkg/ecco/cost_gencost_boxmean.F |
213 |
COST_GENCOST_BOXMEAN |
objf_gencost(1,1,igen_boxmean)=myMeanGlo |
|
./pkg/ecco/cost_gencost_boxmean.F |
214 |
COST_GENCOST_BOXMEAN |
num_gencost(1,1,igen_boxmean)=1. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
42 |
COST_GENCOST_BOXMEAN |
integer igen_boxmean |
|
./pkg/ecco/cost_gencost_boxmean.F |
73 |
COST_GENCOST_BOXMEAN |
igen_boxmean=0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
75 |
COST_GENCOST_BOXMEAN |
if (gencost_name(k).EQ.'boxmean') igen_boxmean=k |
|
./pkg/ecco/cost_gencost_boxmean.F |
78 |
COST_GENCOST_BOXMEAN |
if (igen_boxmean.NE.0) then |
|
./pkg/ecco/cost_gencost_boxmean.F |
93 |
COST_GENCOST_BOXMEAN |
objf_gencost(bi,bj,igen_boxmean) = 0. _d 0 |
|
./pkg/ecco/cost_gencost_boxmean.F |
94 |
COST_GENCOST_BOXMEAN |
num_gencost(bi,bj,igen_boxmean) = 0. _d 0 |