File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_readparms.F |
580 |
ECCO_READPARMS |
gencost_flag(k) = 0 |
./pkg/ecco/ecco_readparms.F |
664 |
ECCO_READPARMS |
gencost_flag(k)=-1 |
./pkg/ecco/ecco_readparms.F |
672 |
ECCO_READPARMS |
gencost_flag(k)=-3 |
./pkg/ecco/ecco_readparms.F |
687 |
ECCO_READPARMS |
gencost_flag(k)=-4 |
./pkg/ecco/ecco_readparms.F |
700 |
ECCO_READPARMS |
gencost_flag(k)=2 |
./pkg/ecco/ecco_readparms.F |
704 |
ECCO_READPARMS |
gencost_flag(k)=1 |
./pkg/ecco/ecco_readparms.F |
732 |
ECCO_READPARMS |
& (gencost_flag(k).EQ.-3) ) then |
./pkg/ecco/ecco_readparms.F |
812 |
ECCO_READPARMS |
if ( gencost_flag(k).GE.1 ) then |
./pkg/ecco/ecco_readparms.F |
862 |
ECCO_READPARMS |
elseif( gencost_flag(k) .eq. -1 ) then |
./pkg/ecco/ecco_readparms.F |
864 |
ECCO_READPARMS |
elseif( gencost_flag(k).lt.-1) then |
./pkg/ecco/ecco_summary.F |
842 |
ECCO_SUMMARY |
write(msgbuf,'(a,i2)') ' gencost_flag = ',gencost_flag(k) |
./pkg/ecco/cost_gencost_all.F |
54 |
COST_GENCOST_ALL |
if ( (using_gencost(k)).AND.( gencost_flag(k).EQ.1 ) |
./pkg/ecco/cost_gencost_assignperiod.F |
56 |
COST_GENCOST_ASSIGNPERIOD |
if ( (using_gencost(k)).AND.( (gencost_flag(k).GE.1).OR. |
./pkg/ecco/cost_gencost_boxmean.F |
76 |
COST_GENCOST_BOXMEAN |
if ( (gencost_flag(kgen).EQ.-3).AND.(using_gencost(kgen)) ) then |
./pkg/ecco/ecco.h |
283 |
NO PROCEDURE |
& gencost_flag, gencost_outputlevel, |
./pkg/ecco/ecco.h |
293 |
NO PROCEDURE |
integer gencost_flag(NGENCOST) |
./pkg/ecco/ecco_check.F |
408 |
ECCO_CHECK |
if(gencost_flag(k).eq. -1) then |
./pkg/ecco/ecco_check.F |
434 |
ECCO_CHECK |
elseif(gencost_flag(k) .eq. -3 ) then |
./pkg/ecco/ecco_check.F |
533 |
ECCO_CHECK |
elseif ( gencost_flag(k).eq. -4 ) then |
./pkg/ecco/ecco_cost_init_fixed.F |
183 |
ECCO_COST_INIT_FIXED |
if ( (using_gencost(k)).AND.( (gencost_flag(k).GE.1).OR. |