Symbol Description Uses
fname2 47


File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 111 SEAICE_COST_CONCENTRATION 
      character*(128) fname1, fname2
./pkg/seaice/seaice_cost_concentration.F 228 SEAICE_COST_CONCENTRATION 
        write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_concentration.F 230 SEAICE_COST_CONCENTRATION 
        inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_concentration.F 233 SEAICE_COST_CONCENTRATION 
           print *,'fname2',fname2
./pkg/seaice/seaice_cost_concentration.F 236 SEAICE_COST_CONCENTRATION 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_concentration.F 247 SEAICE_COST_CONCENTRATION 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_concentration.F 250 SEAICE_COST_CONCENTRATION 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sss.F 109 SEAICE_COST_SSS 
      character*(128) fname1, fname2,fname3
./pkg/seaice/seaice_cost_sss.F 243 SEAICE_COST_SSS 
      write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_sss.F 245 SEAICE_COST_SSS 
      inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_sss.F 248 SEAICE_COST_SSS 
      print *,'fname2',fname2
./pkg/seaice/seaice_cost_sss.F 251 SEAICE_COST_SSS 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_sss.F 262 SEAICE_COST_SSS 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_sss.F 265 SEAICE_COST_SSS 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sst.F 107 SEAICE_COST_SST 
      character*(128) fname1, fname2,fname3
./pkg/seaice/seaice_cost_sst.F 243 SEAICE_COST_SST 
      write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_sst.F 245 SEAICE_COST_SST 
      inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_sst.F 248 SEAICE_COST_SST 
      print *,'fname2',fname2
./pkg/seaice/seaice_cost_sst.F 251 SEAICE_COST_SST 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_sst.F 262 SEAICE_COST_SST 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_sst.F 265 SEAICE_COST_SST 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_gencal.F 120 COST_GENCAL 
        write(fname2(1:128),'(2a,i4)')
./pkg/ecco/cost_gencal.F 122 COST_GENCAL 
        inquire( file=fname2, exist=exst )
./pkg/ecco/cost_gencal.F 125 COST_GENCAL 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/ecco/cost_gencal.F 126 COST_GENCAL 
           inquire( file=fname2, exist=exst )
./pkg/ecco/cost_gencal.F 13 COST_GENCAL 
     O     fname1, fname2, localrec, obsrec, exst,
./pkg/ecco/cost_gencal.F 47 COST_GENCAL 
      character*(128) fname1, fname2
./pkg/ecco/cost_gencost_sstv4.F 221 COST_GENCOST_SSTV4 
             write(fname2(1:80),'(2a,i4)')
./pkg/ecco/cost_gencost_sstv4.F 223 COST_GENCOST_SSTV4 
             inquire( file=fname2, exist=exst )
./pkg/ecco/cost_gencost_sstv4.F 236 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 292 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_raw'
./pkg/ecco/cost_gencost_sstv4.F 293 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 296 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstobs_raw'
./pkg/ecco/cost_gencost_sstv4.F 297 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 312 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_smooth'
./pkg/ecco/cost_gencost_sstv4.F 313 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 316 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstobs_smooth'
./pkg/ecco/cost_gencost_sstv4.F 317 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 379 COST_GENCOST_SSTV4 
             write(fname2(1:80),'(2a,i4)')
./pkg/ecco/cost_gencost_sstv4.F 381 COST_GENCOST_SSTV4 
             inquire( file=fname2, exist=exst )
./pkg/ecco/cost_gencost_sstv4.F 394 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 428 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_point'
./pkg/ecco/cost_gencost_sstv4.F 429 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 80 COST_GENCOST_SSTV4 
      character*(80) fname2
./pkg/ecco/cost_generic.F 260 COST_GENLOOP 
      character*(128) fname1, fname2, fname3
./pkg/ecco/cost_generic.F 348 COST_GENLOOP 
     &     fname2, localrec, obsrec, exst, mythid )
./pkg/ecco/cost_generic.F 359 COST_GENLOOP 
     &  call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,