| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/cost_gencost_boxmean.F |
75 |
COST_GENCOST_BOXMEAN |
if (gencost_name(k).EQ.'boxmean') igen_boxmean=k |
|
./pkg/ecco/cost_gencost_customize.F |
74 |
COST_GENCOST_CUSTOMIZE |
if (gencost_name(k).EQ.'siv4-conc') gencost_modfld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
76 |
COST_GENCOST_CUSTOMIZE |
if (gencost_name(k).EQ.'siv4-deconc') gencost_modfld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_customize.F |
78 |
COST_GENCOST_CUSTOMIZE |
if (gencost_name(k).EQ.'siv4-exconc') gencost_modfld(i,j,bi,bj,k) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
160 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-conc') igen_conc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
161 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-deconc') igen_deconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
162 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-exconc') igen_exconc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
178 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
179 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-tp') igen_tp=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
180 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-ers') igen_ers=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
181 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
182 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
183 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gmsl') igen_gmsl=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
134 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre') igen_amsre=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
135 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre-lsc') igen_amsre_lsc=k |
|
./pkg/ecco/ecco_check.F |
126 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-conc') |
|
./pkg/ecco/ecco_check.F |
128 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-deconc') |
|
./pkg/ecco/ecco_check.F |
130 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-exconc') |
|
./pkg/ecco/ecco_check.F |
133 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-sst') then |
|
./pkg/ecco/ecco_check.F |
142 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-vol') then |
|
./pkg/ecco/ecco_cost.h |
105 |
NO PROCEDURE |
& gencost_name, |
|
./pkg/ecco/ecco_cost.h |
112 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) gencost_name(NGENCOST) |
|
./pkg/ecco/ecco_cost_final.F |
1409 |
ECCO_COST_FINAL |
IL = ILNBLNK( gencost_name(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1412 |
ECCO_COST_FINAL |
& gencost_name(num_var)(1:IL),' (gencost ', num_var, ') = ', |
|
./pkg/ecco/ecco_readparms.F |
156 |
ECCO_READPARMS |
& gencost_name, |
|
./pkg/ecco/ecco_readparms.F |
519 |
ECCO_READPARMS |
gencost_name(k) = 'gencost' |
|
./pkg/ecco/ecco_readparms.F |
546 |
ECCO_READPARMS |
if ( (gencost_name(k).EQ.'sshv4-mdt').OR. |
|
./pkg/ecco/ecco_readparms.F |
547 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-tp').OR. |
|
./pkg/ecco/ecco_readparms.F |
548 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-ers').OR. |
|
./pkg/ecco/ecco_readparms.F |
549 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-gfo').OR. |
|
./pkg/ecco/ecco_readparms.F |
550 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-lsc').OR. |
|
./pkg/ecco/ecco_readparms.F |
551 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-gmsl').OR. |
|
./pkg/ecco/ecco_readparms.F |
552 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'boxmean').OR. |
|
./pkg/ecco/ecco_readparms.F |
553 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sstv4-amsre').OR. |
|
./pkg/ecco/ecco_readparms.F |
554 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sstv4-amsre-lsc') ) then |
|
./pkg/ecco/ecco_readparms.F |
560 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-conc').OR. |
|
./pkg/ecco/ecco_readparms.F |
561 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-deconc').OR. |
|
./pkg/ecco/ecco_readparms.F |
562 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-exconc') ) then |
|
./pkg/ecco/ecco_readparms.F |
579 |
ECCO_READPARMS |
if ( gencost_name(k) .EQ. 'gencost' ) |
|
./pkg/ecco/ecco_readparms.F |
580 |
ECCO_READPARMS |
& gencost_name(k) = gencost_datafile(k) |
|
./pkg/ecco/ecco_readparms.F |
589 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
592 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
601 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
604 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
612 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
615 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |