| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_readparms.F |
179 |
ECCO_READPARMS |
& gencost_errfile, |
|
./pkg/ecco/ecco_readparms.F |
599 |
ECCO_READPARMS |
gencost_errfile(k) = ' ' |
|
./pkg/ecco/ecco_summary.F |
818 |
ECCO_SUMMARY |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_summary.F |
819 |
ECCO_SUMMARY |
write(msgbuf,'(a,a)') ' error file = ',gencost_errfile(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 |
101 |
COST_GENCOST_BPV4 |
if ( gencost_errfile(kgen) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_bpv4.F |
102 |
COST_GENCOST_BPV4 |
& call ECCO_READWEI(gencost_errfile(kgen), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
161 |
COST_GENCOST_SEAICEV4 |
localobswfile=gencost_errfile(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
204 |
COST_GENCOST_SEAICEV4 |
call COST_GENCAL(areabarfile,gencost_errfile(igen_conc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
209 |
COST_GENCOST_SEAICEV4 |
fname0w=gencost_errfile(igen_conc) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
211 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(gencost_errfile(igen_deconc), |
|
./pkg/ecco/cost_gencost_seaicev4.F |
213 |
COST_GENCOST_SEAICEV4 |
call ECCO_READWEI(gencost_errfile(igen_exconc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
213 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_mdt) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
214 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_mdt), |
|
./pkg/ecco/cost_gencost_sshv4.F |
216 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_lsc) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
217 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_lsc), |
|
./pkg/ecco/cost_gencost_sshv4.F |
219 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_tp) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
220 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_tp), |
|
./pkg/ecco/cost_gencost_sshv4.F |
222 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_ers) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
223 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_ers), |
|
./pkg/ecco/cost_gencost_sshv4.F |
225 |
COST_GENCOST_SSHV4 |
if ( gencost_errfile(igen_gfo) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sshv4.F |
226 |
COST_GENCOST_SSHV4 |
& call ECCO_READWEI(gencost_errfile(igen_gfo), |
|
./pkg/ecco/cost_gencost_sstv4.F |
141 |
COST_GENCOST_SSTV4 |
if ( gencost_errfile(kgen) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
142 |
COST_GENCOST_SSTV4 |
& call ECCO_READWEI(gencost_errfile(kgen), |
|
./pkg/ecco/cost_gencost_sstv4.F |
144 |
COST_GENCOST_SSTV4 |
if ( gencost_errfile(kgen_lsc) .NE. ' ' ) |
|
./pkg/ecco/cost_gencost_sstv4.F |
145 |
COST_GENCOST_SSTV4 |
& call ECCO_READWEI(gencost_errfile(kgen_lsc), |
|
./pkg/ecco/cost_gencost_transp.F |
213 |
COST_GENCOST_TRANSP |
call COST_GENCAL(mybarfile,gencost_errfile(kgen(icount)), |
|
./pkg/ecco/ecco.h |
322 |
NO PROCEDURE |
& gencost_errfile, |
|
./pkg/ecco/ecco.h |
333 |
NO PROCEDURE |
character*(MAX_LEN_FNAM) gencost_errfile(NGENCOST) |
|
./pkg/ecco/ecco_check.F |
350 |
ECCO_CHECK |
& ( gencost_errfile(k) .NE. ' ' ) ) then |
|
./pkg/ecco/ecco_check.F |
352 |
ECCO_CHECK |
& gencost_errfile(k), gencost_startdate1(k), myThid ) |
|
./pkg/ecco/ecco_check.F |
353 |
ECCO_CHECK |
elseif ( gencost_errfile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_check.F |
354 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
355 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
409 |
ECCO_CHECK |
if(gencost_errfile(k) .ne. ' ') then |
|
./pkg/ecco/ecco_check.F |
410 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
411 |
ECCO_CHECK |
inquire( file=gencost_errfile(k)(1:il), exist=exst ) |
|
./pkg/ecco/ecco_check.F |
441 |
ECCO_CHECK |
if(gencost_errfile(k) .ne. ' ') then |
|
./pkg/ecco/ecco_check.F |
540 |
ECCO_CHECK |
if ( gencost_errfile(k) .NE. ' ' ) then |
|
./pkg/ecco/ecco_check.F |
542 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
543 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'W' |
|
./pkg/ecco/ecco_check.F |
576 |
ECCO_CHECK |
il = ilnblnk(gencost_errfile(k)) |
|
./pkg/ecco/ecco_check.F |
577 |
ECCO_CHECK |
write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'S' |