| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_readparms.F |
176 |
ECCO_READPARMS |
& gencost_datafile, |
|
./pkg/ecco/ecco_readparms.F |
586 |
ECCO_READPARMS |
gencost_datafile(k) = ' ' |
|
./pkg/ecco/ecco_readparms.F |
703 |
ECCO_READPARMS |
elseif ( gencost_datafile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_readparms.F |
815 |
ECCO_READPARMS |
& gencost_name(k) = gencost_datafile(k) |
|
./pkg/ecco/ecco_summary.F |
793 |
ECCO_SUMMARY |
if ( gencost_datafile(k) .ne. ' ' ) then |
|
./pkg/ecco/ecco_summary.F |
794 |
ECCO_SUMMARY |
il = ilnblnk(gencost_datafile(k)) |
|
./pkg/ecco/ecco_summary.F |
795 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' data file = ',gencost_datafile(k)(1:il) |
|
./pkg/ecco/cost_gencost_all.F |
79 |
COST_GENCOST_ALL |
& nnzobs, gencost_datafile(k), gencost_errfile(k), |
|
./pkg/ecco/cost_gencost_bpv4.F |
166 |
COST_GENCOST_BPV4 |
call COST_BP_READ( gencost_datafile(kgen), |
|
./pkg/ecco/cost_gencost_bpv4.F |
219 |
COST_GENCOST_BPV4 |
call COST_BP_READ( gencost_datafile(kgen), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
160 |
COST_GENCOST_SEAICEV4 |
localobsfile=gencost_datafile(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
234 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(areabarfile,gencost_datafile(igen_conc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
244 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(deconcbarfile,gencost_datafile(igen_conc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
255 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(exconcbarfile,gencost_datafile(igen_conc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
272 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_mdt) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
273 |
COST_GENCOST_SSHV4 |
mdtfi=gencost_datafile(igen_mdt)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
279 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_tp) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
280 |
COST_GENCOST_SSHV4 |
tpfi=gencost_datafile(igen_tp)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
288 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_ers) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
289 |
COST_GENCOST_SSHV4 |
ersfi=gencost_datafile(igen_ers)(1:ilps) |
|
./pkg/ecco/cost_gencost_sshv4.F |
297 |
COST_GENCOST_SSHV4 |
ilps=ilnblnk( gencost_datafile(igen_gfo) ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
298 |
COST_GENCOST_SSHV4 |
gfofi=gencost_datafile(igen_gfo)(1:ilps) |
|
./pkg/ecco/cost_gencost_sstv4.F |
220 |
COST_GENCOST_SSTV4 |
il=ilnblnk(gencost_datafile(kgen)) |
|
./pkg/ecco/cost_gencost_sstv4.F |
222 |
COST_GENCOST_SSTV4 |
& gencost_datafile(kgen)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_sstv4.F |
378 |
COST_GENCOST_SSTV4 |
il=ilnblnk(gencost_datafile(kgen)) |
|
./pkg/ecco/cost_gencost_sstv4.F |
380 |
COST_GENCOST_SSTV4 |
& gencost_datafile(kgen)(1:il), '_', yday |
|
./pkg/ecco/cost_gencost_transp.F |
183 |
COST_GENCOST_TRANSP |
if( .not. gencost_datafile(kgen(icount)).eq.' ') then |
|
./pkg/ecco/ecco.h |
323 |
NO PROCEDURE |
& gencost_datafile, |
|
./pkg/ecco/ecco.h |
334 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) gencost_datafile(NGENCOST) |
|
./pkg/ecco/ecco_check.F |
343 |
ECCO_CHECK |
if ( gencost_datafile(k) .ne. ' ' ) then |
|
./pkg/ecco/ecco_check.F |
346 |
ECCO_CHECK |
& gencost_datafile(k), gencost_startdate1(k), myThid ) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
250 |
ECCO_COST_INIT_FIXED |
if ( gencost_datafile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_cost_init_fixed.F |
251 |
ECCO_COST_INIT_FIXED |
ilo = ifnblnk(gencost_datafile(k)) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
252 |
ECCO_COST_INIT_FIXED |
ihi = ilnblnk(gencost_datafile(k)) |
|
./pkg/ecco/ecco_cost_init_fixed.F |
255 |
ECCO_COST_INIT_FIXED |
I gencost_datafile(k)(ilo:ihi), |