Symbol Description Uses
fname2 47


File Line number Procedure Code
./pkg/seaice/seaice_cost_concentration.F 215 SEAICE_COST_CONCENTRATION 
        write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_concentration.F 217 SEAICE_COST_CONCENTRATION 
        inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_concentration.F 220 SEAICE_COST_CONCENTRATION 
           print *,'fname2',fname2
./pkg/seaice/seaice_cost_concentration.F 223 SEAICE_COST_CONCENTRATION 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_concentration.F 234 SEAICE_COST_CONCENTRATION 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_concentration.F 237 SEAICE_COST_CONCENTRATION 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_concentration.F 95 SEAICE_COST_CONCENTRATION 
      character*(128) fname1, fname2
./pkg/seaice/seaice_cost_sss.F 233 SEAICE_COST_SSS 
      write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_sss.F 235 SEAICE_COST_SSS 
      inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_sss.F 238 SEAICE_COST_SSS 
      print *,'fname2',fname2
./pkg/seaice/seaice_cost_sss.F 241 SEAICE_COST_SSS 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_sss.F 252 SEAICE_COST_SSS 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_sss.F 255 SEAICE_COST_SSS 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sss.F 96 SEAICE_COST_SSS 
      character*(128) fname1, fname2,fname3
./pkg/seaice/seaice_cost_sst.F 233 SEAICE_COST_SST 
      write(fname2(1:128),'(2a,i4)')
./pkg/seaice/seaice_cost_sst.F 235 SEAICE_COST_SST 
      inquire( file=fname2, exist=exst )
./pkg/seaice/seaice_cost_sst.F 238 SEAICE_COST_SST 
      print *,'fname2',fname2
./pkg/seaice/seaice_cost_sst.F 241 SEAICE_COST_SST 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/seaice/seaice_cost_sst.F 252 SEAICE_COST_SST 
          print *,'calling mdsreadfile',fname2,localrec
./pkg/seaice/seaice_cost_sst.F 255 SEAICE_COST_SST 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sst.F 94 SEAICE_COST_SST 
      character*(128) fname1, fname2,fname3
./pkg/ecco/cost_gencost_seaicev4.F 100 COST_GENCOST_SEAICEV4 
      character*(128) fname0, fname1, fname2, fname3
./pkg/ecco/cost_gencost_seaicev4.F 242 COST_GENCOST_SEAICEV4 
      write(fname2(1:128),'(2a,i10.10)')
./pkg/ecco/cost_gencost_seaicev4.F 258 COST_GENCOST_SEAICEV4 
           call ACTIVE_READ_XY( fname2, exconcbbbar, irec,doglobalread,
./pkg/ecco/cost_gencost_sstv4.F 204 COST_GENCOST_SSTV4 
             write(fname2(1:80),'(2a,i4)')
./pkg/ecco/cost_gencost_sstv4.F 206 COST_GENCOST_SSTV4 
             inquire( file=fname2, exist=exst )
./pkg/ecco/cost_gencost_sstv4.F 219 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 275 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_raw'
./pkg/ecco/cost_gencost_sstv4.F 276 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 279 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstobs_raw'
./pkg/ecco/cost_gencost_sstv4.F 280 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 293 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_smooth'
./pkg/ecco/cost_gencost_sstv4.F 294 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 297 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstobs_smooth'
./pkg/ecco/cost_gencost_sstv4.F 298 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 356 COST_GENCOST_SSTV4 
             write(fname2(1:80),'(2a,i4)')
./pkg/ecco/cost_gencost_sstv4.F 358 COST_GENCOST_SSTV4 
             inquire( file=fname2, exist=exst )
./pkg/ecco/cost_gencost_sstv4.F 371 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 405 COST_GENCOST_SSTV4 
         write(fname2(1:80),'(1a)') 'sstdiff_point'
./pkg/ecco/cost_gencost_sstv4.F 406 COST_GENCOST_SSTV4 
         call MDSWRITEFIELD(fname2,32,.false.,'RL',
./pkg/ecco/cost_gencost_sstv4.F 85 COST_GENCOST_SSTV4 
      character*(80) fname2
./pkg/ecco/cost_generic.F 233 COST_GENERIC 
        write(fname2(1:128),'(2a,i4)')
./pkg/ecco/cost_generic.F 235 COST_GENERIC 
        inquire( file=fname2, exist=exst )
./pkg/ecco/cost_generic.F 237 COST_GENERIC 
           write(fname2(1:128),'(a)') localobsfile(1:il)
./pkg/ecco/cost_generic.F 238 COST_GENERIC 
           inquire( file=fname2, exist=exst )
./pkg/ecco/cost_generic.F 247 COST_GENERIC 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_generic.F 97 COST_GENERIC 
      character*(128) fname1, fname2