Symbol Description Uses
tempfile 39


File Line number Procedure Code
./pkg/ecco/ecco_readparms.F 54 ECCO_READPARMS 
      CHARACTER*(128) tempfile
./pkg/ecco/ecco_readparms.F 735 ECCO_READPARMS 
            write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C'
./pkg/ecco/ecco_readparms.F 736 ECCO_READPARMS 
            inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_readparms.F 738 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_readparms.F 743 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr,
./pkg/ecco/ecco_readparms.F 749 ECCO_READPARMS 
            write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W'
./pkg/ecco/ecco_readparms.F 750 ECCO_READPARMS 
            inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_readparms.F 752 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_readparms.F 757 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr,
./pkg/ecco/ecco_readparms.F 763 ECCO_READPARMS 
            write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S'
./pkg/ecco/ecco_readparms.F 764 ECCO_READPARMS 
            inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_readparms.F 766 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_readparms.F 771 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr,
./pkg/ecco/ecco_readparms.F 777 ECCO_READPARMS 
            write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'K'
./pkg/ecco/ecco_readparms.F 778 ECCO_READPARMS 
            inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_readparms.F 781 ECCO_READPARMS 
             call MDS_READVEC_LOC(tempfile,cost_iprec,ioUnit,'RL',
./pkg/ecco/cost_gencost_boxmean.F 124 COST_GENCOST_BOXMEAN 
      write(tempfile(1:128),'(2A)') gencost_mask(kgen)(1:il),'T'
./pkg/ecco/cost_gencost_boxmean.F 125 COST_GENCOST_BOXMEAN 
      inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/cost_gencost_boxmean.F 131 COST_GENCOST_BOXMEAN 
       call MDS_READVEC_LOC(tempfile,cost_iprec,ioUnit,'RL',
./pkg/ecco/cost_gencost_boxmean.F 59 COST_GENCOST_BOXMEAN 
      CHARACTER*(128) tempfile
./pkg/ecco/ecco_check.F 463 ECCO_CHECK 
             write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'C'
./pkg/ecco/ecco_check.F 464 ECCO_CHECK 
             inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_check.F 479 ECCO_CHECK 
             write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'W'
./pkg/ecco/ecco_check.F 480 ECCO_CHECK 
             inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_check.F 492 ECCO_CHECK 
             write(tempfile(1:128),'(2A)') gencost_mask(k)(1:il),'S'
./pkg/ecco/ecco_check.F 493 ECCO_CHECK 
             inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_check.F 49 ECCO_CHECK 
      CHARACTER*(128) tempfile,tempfile1
./pkg/ecco/ecco_check.F 543 ECCO_CHECK 
           write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'W'
./pkg/ecco/ecco_check.F 544 ECCO_CHECK 
           inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_check.F 546 ECCO_CHECK 
     &       tempfile(1:il+1),exst
./pkg/ecco/ecco_check.F 553 ECCO_CHECK 
     &         tempfile(1:il+1)
./pkg/ecco/ecco_check.F 570 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_check.F 572 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_check.F 577 ECCO_CHECK 
           write(tempfile(1:128),'(2A)') gencost_errfile(k)(1:il),'S'
./pkg/ecco/ecco_check.F 578 ECCO_CHECK 
           inquire( file=tempfile(1:il+1), exist=exst )
./pkg/ecco/ecco_check.F 580 ECCO_CHECK 
     &       tempfile(1:il+1),exst
./pkg/ecco/ecco_check.F 587 ECCO_CHECK 
     &         tempfile(1:il+1)
./pkg/ecco/ecco_check.F 598 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_check.F 600 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,