Symbol Description Uses
fname2 41


File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 214 SEAICE_COST_CONCENTRATION 
        write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_concentration.F 216 SEAICE_COST_CONCENTRATION 
        inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_concentration.F 219 SEAICE_COST_CONCENTRATION 
           print *,'fname2',fname2
./pkg/seaice/seaice_cost_concentration.F 222 SEAICE_COST_CONCENTRATION 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_concentration.F 233 SEAICE_COST_CONCENTRATION 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_concentration.F 236 SEAICE_COST_CONCENTRATION 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_concentration.F 94 SEAICE_COST_CONCENTRATION 
      character*(128) fname1, fname2
./pkg/seaice/seaice_cost_sss.F 232 SEAICE_COST_SSS 
      write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_sss.F 234 SEAICE_COST_SSS 
      inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_sss.F 237 SEAICE_COST_SSS 
      print *,'fname2',fname2
./pkg/seaice/seaice_cost_sss.F 240 SEAICE_COST_SSS 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_sss.F 251 SEAICE_COST_SSS 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_sss.F 254 SEAICE_COST_SSS 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sss.F 95 SEAICE_COST_SSS 
      character*(128) fname1, fname2,fname3
./pkg/seaice/seaice_cost_sst.F 227 SEAICE_COST_SST 
      write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_sst.F 229 SEAICE_COST_SST 
      inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_sst.F 232 SEAICE_COST_SST 
      print *,'fname2',fname2
./pkg/seaice/seaice_cost_sst.F 235 SEAICE_COST_SST 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_sst.F 246 SEAICE_COST_SST 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_sst.F 249 SEAICE_COST_SST 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sst.F 93 SEAICE_COST_SST 
      character*(128) fname1, fname2,fname3
./pkg/ecco/cost_gencost_sstv4.F 187 COST_GENCOST_SSTV4 
             write(fname2(1:80),'(2a,i4)')
./pkg/ecco/cost_gencost_sstv4.F 191 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 247 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_raw'
./pkg/ecco/cost_gencost_sstv4.F 248 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 251 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstobs_raw'
./pkg/ecco/cost_gencost_sstv4.F 252 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 263 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_smooth'
./pkg/ecco/cost_gencost_sstv4.F 264 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 267 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstobs_smooth'
./pkg/ecco/cost_gencost_sstv4.F 268 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 325 COST_GENCOST_SSTV4 
             write(fname2(1:80),'(2a,i4)')
./pkg/ecco/cost_gencost_sstv4.F 329 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 363 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_point'
./pkg/ecco/cost_gencost_sstv4.F 364 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 82 COST_GENCOST_SSTV4 
      character*(80) fname2
./pkg/ecco/cost_generic.F 231 COST_GENERIC 
        write(fname2(1:128),'(2a,i4)')
./pkg/ecco/cost_generic.F 233 COST_GENERIC 
        inquire( file=fname2, exist=exst )
./pkg/ecco/cost_generic.F 235 COST_GENERIC 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/ecco/cost_generic.F 240 COST_GENERIC 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_generic.F 98 COST_GENERIC 
      character*(128) fname1, fname2