File |
Line number |
Procedure |
Code |
./pkg/ecco/ecco_cost_weights.F |
559 |
ECCO_COST_WEIGHTS |
if ( ( using_cost_sst ).AND.( ssterrfile .NE. ' ' ) ) |
./pkg/ecco/ecco_cost_weights.F |
577 |
ECCO_COST_WEIGHTS |
IF ( using_cost_sst ) THEN |
./pkg/ecco/ecco_cost_weights.F |
623 |
ECCO_COST_WEIGHTS |
IF (using_cost_sst) |
./pkg/ecco/ecco_readparms.F |
245 |
ECCO_READPARMS |
using_cost_sst=.TRUE. |
./pkg/ecco/ecco_readparms.F |
247 |
ECCO_READPARMS |
using_cost_sst=.FALSE. |
./pkg/ecco/ecco_readparms.F |
83 |
ECCO_READPARMS |
& using_cost_sst, using_cost_seaice, |
./pkg/ecco/cost_averagesfields.F |
288 |
COST_AVERAGESFIELDS |
IF (using_cost_sst) THEN |
./pkg/ecco/cost_gencost_all.F |
100 |
COST_GENCOST_ALL |
IF (using_cost_sst) call COST_GENCOST_SSTV4( mythid ) |
./pkg/ecco/cost_hyd.F |
188 |
COST_HYD |
IF (using_cost_sst) THEN |
./pkg/ecco/cost_hyd.F |
74 |
COST_HYD |
IF (using_cost_sst) THEN |
./pkg/ecco/ecco.h |
100 |
NO PROCEDURE |
& using_cost_sst, |
./pkg/ecco/ecco.h |
111 |
NO PROCEDURE |
logical using_cost_sst |
./pkg/ecco/ecco_check.F |
286 |
ECCO_CHECK |
CALL ECCO_CHECK_FILES( using_cost_sst,'sst', |
./pkg/ecco/ecco_check.F |
290 |
ECCO_CHECK |
CALL ECCO_CHECK_FILES( using_cost_sst,'sst', |
./pkg/ecco/ecco_cost_init_barfiles.F |
247 |
ECCO_COST_INIT_BARFILES |
IF (using_cost_sst) THEN |