| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_readparms.F |
177 |
ECCO_READPARMS |
& gencost_name, |
|
./pkg/ecco/ecco_readparms.F |
587 |
ECCO_READPARMS |
gencost_name(k) = 'gencost' |
|
./pkg/ecco/ecco_readparms.F |
655 |
ECCO_READPARMS |
if ( (gencost_name(k).EQ.'sshv4-mdt').OR. |
|
./pkg/ecco/ecco_readparms.F |
656 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-tp').OR. |
|
./pkg/ecco/ecco_readparms.F |
657 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-ers').OR. |
|
./pkg/ecco/ecco_readparms.F |
658 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-gfo').OR. |
|
./pkg/ecco/ecco_readparms.F |
659 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-lsc').OR. |
|
./pkg/ecco/ecco_readparms.F |
660 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sshv4-gmsl').OR. |
|
./pkg/ecco/ecco_readparms.F |
661 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'bpv4-grace').OR. |
|
./pkg/ecco/ecco_readparms.F |
662 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sstv4-amsre').OR. |
|
./pkg/ecco/ecco_readparms.F |
663 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'sstv4-amsre-lsc') ) then |
|
./pkg/ecco/ecco_readparms.F |
674 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
676 |
ECCO_READPARMS |
& k,' ',gencost_name(k)(1:il),': ',using_gencost(k) |
|
./pkg/ecco/ecco_readparms.F |
686 |
ECCO_READPARMS |
elseif ( gencost_name(k)(1:6).EQ.'transp' ) then |
|
./pkg/ecco/ecco_readparms.F |
689 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
691 |
ECCO_READPARMS |
& k,' ',gencost_name(k)(1:il),': ',using_gencost(k) |
|
./pkg/ecco/ecco_readparms.F |
697 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-conc').OR. |
|
./pkg/ecco/ecco_readparms.F |
698 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-deconc').OR. |
|
./pkg/ecco/ecco_readparms.F |
699 |
ECCO_READPARMS |
& (gencost_name(k).EQ.'siv4-exconc') ) then |
|
./pkg/ecco/ecco_readparms.F |
814 |
ECCO_READPARMS |
if ( gencost_name(k) .EQ. 'gencost' ) |
|
./pkg/ecco/ecco_readparms.F |
815 |
ECCO_READPARMS |
& gencost_name(k) = gencost_datafile(k) |
|
./pkg/ecco/ecco_readparms.F |
828 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
831 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
840 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
843 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
851 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
854 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_readparms.F |
876 |
ECCO_READPARMS |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_readparms.F |
879 |
ECCO_READPARMS |
& ' ',gencost_name(k)(1:il) |
|
./pkg/ecco/ecco_summary.F |
786 |
ECCO_SUMMARY |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_summary.F |
788 |
ECCO_SUMMARY |
& ') = ',gencost_name(k)(1:il) |
|
./pkg/ecco/cost_gencost_all.F |
87 |
COST_GENCOST_ALL |
& gencost_outputlevel(k), gencost_name(k), |
|
./pkg/ecco/cost_gencost_bpv4.F |
93 |
COST_GENCOST_BPV4 |
if ( (gencost_name(k).EQ.'bpv4-grace').AND. |
|
./pkg/ecco/cost_gencost_customize.F |
197 |
COST_GENCOST_CUSTOMIZE |
elseif ( (gencost_name(k).EQ.'siv4-conc').OR. |
|
./pkg/ecco/cost_gencost_customize.F |
201 |
COST_GENCOST_CUSTOMIZE |
elseif (gencost_name(k).EQ.'siv4-deconc') then |
|
./pkg/ecco/cost_gencost_customize.F |
204 |
COST_GENCOST_CUSTOMIZE |
elseif ( (gencost_name(k).EQ.'siv4-exconc').OR. |
|
./pkg/ecco/cost_gencost_glbmean.F |
100 |
COST_GENCOST_GLBMEAN |
& (gencost_name(k).EQ.'gmsl')) |
|
./pkg/ecco/cost_gencost_glbmean.F |
112 |
COST_GENCOST_GLBMEAN |
if(gencost_name(k).EQ.'gmbp') fac = 1. _d 2 * recip_gravity |
|
./pkg/ecco/cost_gencost_glbmean.F |
270 |
COST_GENCOST_GLBMEAN |
WRITE(msgBuf,'(A,i6,2e16.5)') gencost_name(kgen)(1:10),irec, |
|
./pkg/ecco/cost_gencost_glbmean.F |
99 |
COST_GENCOST_GLBMEAN |
if (((gencost_name(k).EQ.'gmbp') .OR. |
|
./pkg/ecco/cost_gencost_seaicev4.F |
125 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-conc') igen_conc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
126 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-deconc') igen_deconc=k |
|
./pkg/ecco/cost_gencost_seaicev4.F |
127 |
COST_GENCOST_SEAICEV4 |
if (gencost_name(k).EQ.'siv4-exconc') igen_exconc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
193 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-mdt') igen_mdt=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
194 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-tp') igen_tp=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
195 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-ers') igen_ers=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
196 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gfo') igen_gfo=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
197 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-lsc') igen_lsc=k |
|
./pkg/ecco/cost_gencost_sshv4.F |
198 |
COST_GENCOST_SSHV4 |
if (gencost_name(k).EQ.'sshv4-gmsl') igen_gmsl=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
127 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre') kgen=k |
|
./pkg/ecco/cost_gencost_sstv4.F |
128 |
COST_GENCOST_SSTV4 |
if (gencost_name(k).EQ.'sstv4-amsre-lsc') then |
|
./pkg/ecco/cost_gencost_transp.F |
113 |
COST_GENCOST_TRANSP |
if ( (gencost_name(k)(1:6).EQ.'transp').AND. |
|
./pkg/ecco/cost_gencost_transp.F |
171 |
COST_GENCOST_TRANSP |
il=ilnblnk(gencost_name(kgen(icount))) |
|
./pkg/ecco/cost_gencost_transp.F |
173 |
COST_GENCOST_TRANSP |
& 'Cost ',gencost_name(kgen(icount))(1:il), |
|
./pkg/ecco/ecco.h |
320 |
NO PROCEDURE |
& gencost_name, |
|
./pkg/ecco/ecco.h |
331 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) gencost_name(NGENCOST) |
|
./pkg/ecco/ecco_check.F |
358 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
361 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
369 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-tp') using_tpj=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
370 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-ers') using_ers=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
371 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-gfo') using_gfo=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
372 |
ECCO_CHECK |
if (gencost_name(k).EQ.'sshv4-mdt') using_mdt=using_gencost(k) |
|
./pkg/ecco/ecco_check.F |
375 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-conc') |
|
./pkg/ecco/ecco_check.F |
377 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-deconc') |
|
./pkg/ecco/ecco_check.F |
379 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-exconc') |
|
./pkg/ecco/ecco_check.F |
382 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-sst') then |
|
./pkg/ecco/ecco_check.F |
391 |
ECCO_CHECK |
if (gencost_name(k).EQ.'siv4-vol') then |
|
./pkg/ecco/ecco_check.F |
414 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
417 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
421 |
ECCO_CHECK |
elseif(.not.(gencost_name(k).eq.'sshv4-gmsl')) then |
|
./pkg/ecco/ecco_check.F |
423 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
426 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
451 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
454 |
ECCO_CHECK |
& ' undefined so ',gencost_name(k)(1:il), |
|
./pkg/ecco/ecco_check.F |
467 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
470 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
483 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
486 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
496 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
499 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
524 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
525 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
|
./pkg/ecco/ecco_check.F |
556 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
558 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
590 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
592 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
605 |
ECCO_CHECK |
il=ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
608 |
ECCO_CHECK |
& ' so ',gencost_name(k)(1:il),' gets switched off' |
|
./pkg/ecco/ecco_check.F |
628 |
ECCO_CHECK |
il = ilnblnk(gencost_name(k)) |
|
./pkg/ecco/ecco_check.F |
629 |
ECCO_CHECK |
WRITE(msgBuf,'(2A)') gencost_name(k)(1:il),' is switched off' |
|
./pkg/ecco/ecco_cost_final.F |
1555 |
ECCO_COST_FINAL |
IL = ILNBLNK( gencost_name(num_var) ) |
|
./pkg/ecco/ecco_cost_final.F |
1558 |
ECCO_COST_FINAL |
& gencost_name(num_var)(1:IL),' (gencost ', num_var, ') = ', |
|
./pkg/ecco/ecco_cost_init_fixed.F |
233 |
ECCO_COST_INIT_FIXED |
if ( (gencost_name(k).EQ.'gmbp') .OR. |
|
./pkg/ecco/ecco_cost_init_fixed.F |
234 |
ECCO_COST_INIT_FIXED |
& (gencost_name(k).EQ.'gmsl')) then |