Symbol Description Uses
fnametmp 71


File Line number Procedure Code
./pkg/ecco/cost_argo_salt.F 135 COST_ARGO_SALT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_argo_salt.F 137 COST_ARGO_SALT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_argo_salt.F 139 COST_ARGO_SALT 
           write(fnametmp(1:80),'(a)') argosfile(1:il)
./pkg/ecco/cost_argo_salt.F 143 COST_ARGO_SALT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argosobs,
./pkg/ecco/cost_argo_salt.F 80 COST_ARGO_SALT 
      character*(80) fnametmp
./pkg/ecco/cost_argo_theta.F 138 COST_ARGO_THETA 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_argo_theta.F 140 COST_ARGO_THETA 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_argo_theta.F 142 COST_ARGO_THETA 
           write(fnametmp(1:80),'(a)') argotfile(1:il)
./pkg/ecco/cost_argo_theta.F 146 COST_ARGO_THETA 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argotobs,
./pkg/ecco/cost_argo_theta.F 79 COST_ARGO_THETA 
      character*(80) fnametmp
./pkg/ecco/cost_bp_read.F 102 COST_BP_READ 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_bp_read.F 104 COST_BP_READ 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_bp_read.F 106 COST_BP_READ 
         write(fnametmp(1:80),'(a)') bpdatfile(1:il)
./pkg/ecco/cost_bp_read.F 111 COST_BP_READ 
        call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_bp_read.F 65 COST_BP_READ 
      character*(80) fnametmp
./pkg/ecco/cost_ctds.F 134 COST_CTDS 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_ctds.F 136 COST_CTDS 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_ctds.F 138 COST_CTDS 
           write(fnametmp(1:80),'(a)') ctdsfile(1:il)
./pkg/ecco/cost_ctds.F 142 COST_CTDS 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdsobs,
./pkg/ecco/cost_ctds.F 80 COST_CTDS 
      character*(80) fnametmp
./pkg/ecco/cost_ctdt.F 135 COST_CTDT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_ctdt.F 137 COST_CTDT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_ctdt.F 139 COST_CTDT 
           write(fnametmp(1:80),'(a)') ctdtfile(1:il)
./pkg/ecco/cost_ctdt.F 143 COST_CTDT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdtobs,
./pkg/ecco/cost_ctdt.F 81 COST_CTDT 
      character*(80) fnametmp
./pkg/ecco/cost_ies_read.F 100 COST_IES_READ 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_ies_read.F 63 COST_IES_READ 
      character*(80) fnametmp
./pkg/ecco/cost_ies_read.F 96 COST_IES_READ 
         write(fnametmp(1:80),'(a)') iesdatfile(1:il)
./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 120 COST_READERS 
         inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readers.F 127 COST_READERS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, ersobs,
./pkg/ecco/cost_readers.F 68 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 120 COST_READGFO 
         inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readgfo.F 127 COST_READGFO 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, gfoobs,
./pkg/ecco/cost_readgfo.F 68 COST_READGFO 
      character*(80) fnametmp
./pkg/ecco/cost_readscatxfields.F 142 COST_READSCATXFIELDS 
        write(fnametmp(1:128),'(2a,i4)')
./pkg/ecco/cost_readscatxfields.F 144 COST_READSCATXFIELDS 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readscatxfields.F 148 COST_READSCATXFIELDS 
     &                           fnametmp(1:128)
./pkg/ecco/cost_readscatxfields.F 152 COST_READSCATXFIELDS 
           write(fnametmp(1:128),'(a)') scatxdatfile(1:il)
./pkg/ecco/cost_readscatxfields.F 166 COST_READSCATXFIELDS 
             call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatxfields.F 76 COST_READSCATXFIELDS 
      character*(128) fnametmp
./pkg/ecco/cost_readscatyfields.F 141 COST_READSCATYFIELDS 
        write(fnametmp(1:128),'(2a,i4)')
./pkg/ecco/cost_readscatyfields.F 143 COST_READSCATYFIELDS 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readscatyfields.F 147 COST_READSCATYFIELDS 
     &                           fnametmp(1:128)
./pkg/ecco/cost_readscatyfields.F 151 COST_READSCATYFIELDS 
           write(fnametmp(1:128),'(a)') scatydatfile(1:il)
./pkg/ecco/cost_readscatyfields.F 165 COST_READSCATYFIELDS 
             call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatyfields.F 76 COST_READSCATYFIELDS 
      character*(128) fnametmp
./pkg/ecco/cost_readtopex.F 120 COST_READTOPEX 
      write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_readtopex.F 131 COST_READTOPEX 
      inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readtopex.F 133 COST_READTOPEX 
         write(fnametmp(1:80),'(a)') topexfile(1:il)
./pkg/ecco/cost_readtopex.F 138 COST_READTOPEX 
         inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_readtopex.F 154 COST_READTOPEX 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, tpobs,
./pkg/ecco/cost_readtopex.F 68 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 122 COST_SLA_READ 
       call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype,
./pkg/ecco/cost_sla_read.F 73 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 140 COST_XBT 
        write(fnametmp(1:80),'(2a,i4)')
./pkg/ecco/cost_xbt.F 142 COST_XBT 
        inquire( file=fnametmp, exist=exst )
./pkg/ecco/cost_xbt.F 144 COST_XBT 
           write(fnametmp(1:80),'(a)') xbtfile(1:il)
./pkg/ecco/cost_xbt.F 148 COST_XBT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, xbtobs,
./pkg/ecco/cost_xbt.F 80 COST_XBT 
      character*(80) fnametmp