Symbol Description Uses
cost_iprec 71


File Line number Procedure Code
./pkg/ecco/ecco_cost_weights.F 1024 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( tauv_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 1062 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( vwind_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1094 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( hflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1129 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( atemp_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1162 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( sflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1197 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( aqh_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 1229 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( precip_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1261 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( swflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1293 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( swdown_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1325 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( lwflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1357 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( lwdown_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1389 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( snowprecip_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1422 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( evap_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1454 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( apressure_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1487 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( runoff_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1512 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( bottomdrag_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1534 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( diffkr_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1558 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( kapgm_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1582 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( kapredi_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1606 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( edtau_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1630 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( etan0errfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/ecco_cost_weights.F 1668 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( uvel0errfile, cost_iprec, cost_yftype, Nr,
./pkg/ecco/ecco_cost_weights.F 1670 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( vvel0errfile, cost_iprec, cost_yftype, Nr,
./pkg/ecco/ecco_cost_weights.F 381 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( salt0errfile, cost_iprec, cost_yftype, Nr,
./pkg/ecco/ecco_cost_weights.F 424 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( temp0errfile, cost_iprec, cost_yftype, Nr,
./pkg/ecco/ecco_cost_weights.F 469 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( salterrfile, cost_iprec, cost_yftype, Nr,
./pkg/ecco/ecco_cost_weights.F 517 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( temperrfile, cost_iprec, cost_yftype, Nr,
./pkg/ecco/ecco_cost_weights.F 560 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( ssterrfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/ecco_cost_weights.F 565 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( ssserrfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/ecco_cost_weights.F 639 ECCO_COST_WEIGHTS 
      call MDSREADFIELD( geoid_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 678 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( ssh_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 707 ECCO_COST_WEIGHTS 
     &     call MDSREADFIELD( tp_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 712 ECCO_COST_WEIGHTS 
     &     call MDSREADFIELD( ers_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 717 ECCO_COST_WEIGHTS 
     &     call MDSREADFIELD( gfo_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 785 ECCO_COST_WEIGHTS 
     &    cost_iprec, cost_yftype, 1, wsshv4tmp, 1, mythid)
./pkg/ecco/ecco_cost_weights.F 834 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( bperrfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/ecco_cost_weights.F 855 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( ieserrfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/ecco_cost_weights.F 881 ECCO_COST_WEIGHTS 
     &call MDSREADFIELD( scatx_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 884 ECCO_COST_WEIGHTS 
     &call MDSREADFIELD( scaty_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 954 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( tauu_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 992 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( uwind_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_readparms.F 169 ECCO_READPARMS 
     &                   cost_iprec, cost_yftype
./pkg/ecco/ecco_readparms.F 499 ECCO_READPARMS 
        cost_iprec  = precFloat32
./pkg/ecco/ecco_readparms.F 738 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_readparms.F 743 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr,
./pkg/ecco/ecco_readparms.F 752 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_readparms.F 757 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr,
./pkg/ecco/ecco_readparms.F 766 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_readparms.F 771 ECCO_READPARMS 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',Nr,
./pkg/ecco/ecco_readparms.F 781 ECCO_READPARMS 
             call MDS_READVEC_LOC(tempfile,cost_iprec,ioUnit,'RL',
./pkg/ecco/ecco_toolbox.F 1230 ECCO_READWEI 
      call MDSREADFIELD( localerr_file, cost_iprec,
./pkg/seaice/seaice_cost_concentration.F 250 SEAICE_COST_CONCENTRATION 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sss.F 265 SEAICE_COST_SSS 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sst.F 265 SEAICE_COST_SST 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_weights.F 106 SEAICE_COST_WEIGHTS 
           CALL READ_REC_3D_RL( smrarea_errfile, cost_iprec, nnz,
./pkg/ecco/cost_bp_read.F 119 COST_BP_READ 
        call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_boxmean.F 131 COST_GENCOST_BOXMEAN 
       call MDS_READVEC_LOC(tempfile,cost_iprec,ioUnit,'RL',
./pkg/ecco/cost_gencost_seaicev4.F 269 COST_GENCOST_SEAICEV4 
          call MDSREADFIELD( fname0, cost_iprec, cost_yftype, nnzsiv4,
./pkg/ecco/cost_gencost_sshv4.F 341 COST_GENCOST_SSHV4 
     &call MDSREADFIELD( mdtfi, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 236 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 394 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_generic.F 359 COST_GENLOOP 
     &  call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_sla_read.F 122 COST_SLA_READ 
       call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype,
./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_ssh.F 143 COST_SSH 
      call MDSREADFIELD( mdtdatfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/ecco.h 162 NO PROCEDURE 
     &                        cost_iprec,
./pkg/ecco/ecco.h 165 NO PROCEDURE 
      integer cost_iprec
./pkg/ecco/ecco_check.F 570 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_check.F 572 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_check.F 598 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,
./pkg/ecco/ecco_check.F 600 ECCO_CHECK 
             call MDSREADFIELD(tempfile,cost_iprec,'RL',1,