Symbol Description Uses
fnametmp 64


File Line number Procedure Code
./pkg/ecco/cost_argo_salt.F 134 COST_ARGO_SALT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_argo_salt.F 136 COST_ARGO_SALT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_argo_salt.F 138 COST_ARGO_SALT 
           write(fnametmp(1:80),'(a)') argosfile(1:il)
./pkg/ecco/cost_argo_salt.F 142 COST_ARGO_SALT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argosobs,
./pkg/ecco/cost_argo_salt.F 79 COST_ARGO_SALT 
      character*(80) fnametmp
./pkg/ecco/cost_argo_theta.F 137 COST_ARGO_THETA 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_argo_theta.F 139 COST_ARGO_THETA 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_argo_theta.F 141 COST_ARGO_THETA 
           write(fnametmp(1:80),'(a)') argotfile(1:il)
./pkg/ecco/cost_argo_theta.F 145 COST_ARGO_THETA 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argotobs,
./pkg/ecco/cost_argo_theta.F 78 COST_ARGO_THETA 
      character*(80) fnametmp
./pkg/ecco/cost_bp_read.F 100 COST_BP_READ 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_bp_read.F 63 COST_BP_READ 
      character*(80) fnametmp
./pkg/ecco/cost_bp_read.F 92 COST_BP_READ 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_bp_read.F 94 COST_BP_READ 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_bp_read.F 96 COST_BP_READ 
         write(fnametmp(1:80),'(a)') bpdatfile(1:il)
./pkg/ecco/cost_ctds.F 133 COST_CTDS 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_ctds.F 135 COST_CTDS 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_ctds.F 137 COST_CTDS 
           write(fnametmp(1:80),'(a)') ctdsfile(1:il)
./pkg/ecco/cost_ctds.F 141 COST_CTDS 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdsobs,
./pkg/ecco/cost_ctds.F 79 COST_CTDS 
      character*(80) fnametmp
./pkg/ecco/cost_ctdt.F 134 COST_CTDT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_ctdt.F 136 COST_CTDT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_ctdt.F 138 COST_CTDT 
           write(fnametmp(1:80),'(a)') ctdtfile(1:il)
./pkg/ecco/cost_ctdt.F 142 COST_CTDT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdtobs,
./pkg/ecco/cost_ctdt.F 80 COST_CTDT 
      character*(80) fnametmp
./pkg/ecco/cost_readers.F 111 COST_READERS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readers.F 113 COST_READERS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readers.F 115 COST_READERS 
         write(fnametmp(1:80),'(a)') ersfile(1:il)
./pkg/ecco/cost_readers.F 122 COST_READERS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, ersobs,
./pkg/ecco/cost_readers.F 67 COST_READERS 
      character*(80) fnametmp
./pkg/ecco/cost_readgfo.F 111 COST_READGFO 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readgfo.F 113 COST_READGFO 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readgfo.F 115 COST_READGFO 
         write(fnametmp(1:80),'(a)') gfofile(1:il)
./pkg/ecco/cost_readgfo.F 122 COST_READGFO 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, gfoobs,
./pkg/ecco/cost_readgfo.F 67 COST_READGFO 
      character*(80) fnametmp
./pkg/ecco/cost_readscatxfields.F 108 COST_READSCATXFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readscatxfields.F 110 COST_READSCATXFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readscatxfields.F 112 COST_READSCATXFIELDS 
         write(fnametmp(1:80),'(a)') scatxdatfile(1:il)
./pkg/ecco/cost_readscatxfields.F 116 COST_READSCATXFIELDS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatxfields.F 66 COST_READSCATXFIELDS 
      character*(80) fnametmp
./pkg/ecco/cost_readscatyfields.F 107 COST_READSCATYFIELDS 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readscatyfields.F 109 COST_READSCATYFIELDS 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readscatyfields.F 111 COST_READSCATYFIELDS 
         write(fnametmp(1:80),'(a)') scatydatfile(1:il)
./pkg/ecco/cost_readscatyfields.F 115 COST_READSCATYFIELDS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatyfields.F 66 COST_READSCATYFIELDS 
      character*(80) fnametmp
./pkg/ecco/cost_readtopex.F 111 COST_READTOPEX 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readtopex.F 113 COST_READTOPEX 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readtopex.F 115 COST_READTOPEX 
         write(fnametmp(1:80),'(a)') topexfile(1:il)
./pkg/ecco/cost_readtopex.F 121 COST_READTOPEX 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, tpobs,
./pkg/ecco/cost_readtopex.F 67 COST_READTOPEX 
      character*(80) fnametmp
./pkg/ecco/cost_sla_read.F 116 COST_SLA_READ 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_sla_read.F 118 COST_SLA_READ 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_sla_read.F 120 COST_SLA_READ 
         write(fnametmp(1:80),'(a)') sla_file(1:il)
./pkg/ecco/cost_sla_read.F 127 COST_SLA_READ 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, sla_obs,
./pkg/ecco/cost_sla_read.F 72 COST_SLA_READ 
      character*(80) fnametmp
./pkg/ecco/cost_sla_read_yd.F 105 COST_SLA_READ_YD 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_sla_read_yd.F 107 COST_SLA_READ_YD 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_sla_read_yd.F 112 COST_SLA_READ_YD 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, sla_obs,
./pkg/ecco/cost_sla_read_yd.F 73 COST_SLA_READ_YD 
      character*(80) fnametmp
./pkg/ecco/cost_xbt.F 139 COST_XBT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_xbt.F 141 COST_XBT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_xbt.F 143 COST_XBT 
           write(fnametmp(1:80),'(a)') xbtfile(1:il)
./pkg/ecco/cost_xbt.F 147 COST_XBT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, xbtobs,
./pkg/ecco/cost_xbt.F 79 COST_XBT 
      character*(80) fnametmp