File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_readparms.F |
197 |
ECCO_READPARMS |
& gencost_startdate1, |
./pkg/ecco/ecco_readparms.F |
582 |
ECCO_READPARMS |
gencost_startdate1(k) = 0 |
./pkg/ecco/ecco.h |
284 |
NO PROCEDURE |
& gencost_startdate1, gencost_startdate2, |
./pkg/ecco/ecco.h |
295 |
NO PROCEDURE |
integer gencost_startdate1(NGENCOST) |
./pkg/ecco/ecco_check.F |
346 |
ECCO_CHECK |
& gencost_datafile(k), gencost_startdate1(k), myThid ) |
./pkg/ecco/ecco_check.F |
352 |
ECCO_CHECK |
& gencost_errfile(k), gencost_startdate1(k), myThid ) |
./pkg/ecco/ecco_cost_init_fixed.F |
212 |
ECCO_COST_INIT_FIXED |
if (gencost_startdate1(k).GT.0) then |
./pkg/ecco/ecco_cost_init_fixed.F |
214 |
ECCO_COST_INIT_FIXED |
& gencost_startdate1(k), gencost_startdate2(k), |
./pkg/ecco/ecco_cost_init_fixed.F |
219 |
ECCO_COST_INIT_FIXED |
gencost_startdate1(k)=startdate_1 |