Symbol Description Uses
fnametmp 60


File Line number Procedure Code
./pkg/ecco/cost_xbt.F 138 COST_XBT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_xbt.F 140 COST_XBT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_xbt.F 142 COST_XBT 
           write(fnametmp(1:80),'(a)') xbtfile(1:il)
./pkg/ecco/cost_xbt.F 146 COST_XBT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, xbtobs,
./pkg/ecco/cost_xbt.F 78 COST_XBT 
      character*(80) fnametmp
./pkg/ecco/cost_readtopex.F 115 COST_READTOPEX 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readtopex.F 117 COST_READTOPEX 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readtopex.F 119 COST_READTOPEX 
         write(fnametmp(1:80),'(a)') topexfile(1:il)
./pkg/ecco/cost_readtopex.F 125 COST_READTOPEX 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, tpobs,
./pkg/ecco/cost_readtopex.F 71 COST_READTOPEX 
      character*(80) fnametmp
./pkg/ecco/cost_readers.F 115 COST_READERS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readers.F 117 COST_READERS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readers.F 119 COST_READERS 
         write(fnametmp(1:80),'(a)') ersfile(1:il)
./pkg/ecco/cost_readers.F 126 COST_READERS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, ersobs,
./pkg/ecco/cost_readers.F 71 COST_READERS 
      character*(80) fnametmp
./pkg/ecco/cost_argo_theta.F 136 COST_ARGO_THETA 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_argo_theta.F 138 COST_ARGO_THETA 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_argo_theta.F 140 COST_ARGO_THETA 
           write(fnametmp(1:80),'(a)') argotfile(1:il)
./pkg/ecco/cost_argo_theta.F 144 COST_ARGO_THETA 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argotobs,
./pkg/ecco/cost_argo_theta.F 77 COST_ARGO_THETA 
      character*(80) fnametmp
./pkg/ecco/cost_readscatyfields.F 106 COST_READSCATYFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readscatyfields.F 108 COST_READSCATYFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readscatyfields.F 110 COST_READSCATYFIELDS 
         write(fnametmp(1:80),'(a)') scatydatfile(1:il)
./pkg/ecco/cost_readscatyfields.F 114 COST_READSCATYFIELDS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatyfields.F 65 COST_READSCATYFIELDS 
      character*(80) fnametmp
./pkg/ecco/cost_readsstfields.F 106 COST_READSSTFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readsstfields.F 108 COST_READSSTFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readsstfields.F 110 COST_READSSTFIELDS 
         write(fnametmp(1:80),'(a)') sstdatfile(1:il)
./pkg/ecco/cost_readsstfields.F 114 COST_READSSTFIELDS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, sstdat,
./pkg/ecco/cost_readsstfields.F 65 COST_READSSTFIELDS 
      character*(80) fnametmp
./pkg/ecco/cost_argo_salt.F 133 COST_ARGO_SALT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_argo_salt.F 135 COST_ARGO_SALT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_argo_salt.F 137 COST_ARGO_SALT 
           write(fnametmp(1:80),'(a)') argosfile(1:il)
./pkg/ecco/cost_argo_salt.F 141 COST_ARGO_SALT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argosobs,
./pkg/ecco/cost_argo_salt.F 78 COST_ARGO_SALT 
      character*(80) fnametmp
./pkg/ecco/cost_ctdt.F 133 COST_CTDT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_ctdt.F 135 COST_CTDT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_ctdt.F 137 COST_CTDT 
           write(fnametmp(1:80),'(a)') ctdtfile(1:il)
./pkg/ecco/cost_ctdt.F 141 COST_CTDT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdtobs,
./pkg/ecco/cost_ctdt.F 79 COST_CTDT 
      character*(80) fnametmp
./pkg/ecco/cost_readsssfields.F 106 COST_READSSSFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readsssfields.F 108 COST_READSSSFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readsssfields.F 110 COST_READSSSFIELDS 
         write(fnametmp(1:80),'(a)') sssdatfile(1:il)
./pkg/ecco/cost_readsssfields.F 114 COST_READSSSFIELDS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, sssdat,
./pkg/ecco/cost_readsssfields.F 65 COST_READSSSFIELDS 
      character*(80) fnametmp
./pkg/ecco/cost_readtmifields.F 106 COST_READTMIFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readtmifields.F 108 COST_READTMIFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readtmifields.F 110 COST_READTMIFIELDS 
         write(fnametmp(1:80),'(a)') tmidatfile(1:il)
./pkg/ecco/cost_readtmifields.F 117 COST_READTMIFIELDS 
       call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, tmidat,
./pkg/ecco/cost_readtmifields.F 65 COST_READTMIFIELDS 
      character*(80) fnametmp
./pkg/ecco/cost_ctds.F 132 COST_CTDS 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_ctds.F 134 COST_CTDS 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_ctds.F 136 COST_CTDS 
           write(fnametmp(1:80),'(a)') ctdsfile(1:il)
./pkg/ecco/cost_ctds.F 140 COST_CTDS 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdsobs,
./pkg/ecco/cost_ctds.F 78 COST_CTDS 
      character*(80) fnametmp
./pkg/ecco/cost_readscatxfields.F 107 COST_READSCATXFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readscatxfields.F 109 COST_READSCATXFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readscatxfields.F 111 COST_READSCATXFIELDS 
         write(fnametmp(1:80),'(a)') scatxdatfile(1:il)
./pkg/ecco/cost_readscatxfields.F 115 COST_READSCATXFIELDS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatxfields.F 65 COST_READSCATXFIELDS 
      character*(80) fnametmp