Symbol Description Uses
MDSREADFIELD 86


File Line number Procedure Code
./pkg/mdsio/mdsio_rw_field.F 17 MDSREADFIELD 
      SUBROUTINE MDSREADFIELD(
./pkg/seaice/seaice_cost_concentration.F 237 SEAICE_COST_CONCENTRATION 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sss.F 255 SEAICE_COST_SSS 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/seaice/seaice_cost_sst.F 255 SEAICE_COST_SST 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/smooth/smooth_hetero2d.F 41 SMOOTH_HETERO2D 
      call MDSREADFIELD( dist_file,
./pkg/ctrl/ctrl_init.F 805 CTRL_INIT 
     &   call MDSREADFIELD( xx_gentim2d_weight, ctrlprec, 'RL',
./pkg/ctrl/ctrl_map_ini_gen.F 103 CTRL_MAP_INI_GEN3D 
      call MDSREADFIELD(wFileCur,ctrlprec,'RL',nR,wFld3d,1,mythid)
./pkg/ctrl/ctrl_map_ini_gen.F 300 CTRL_MAP_INI_GEN2D 
      call MDSREADFIELD(wFileCur,ctrlprec,'RL',1,wFld2d,1,mythid)
./pkg/ecco/cost_argo_salt.F 143 COST_ARGO_SALT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argosobs,
./pkg/ecco/cost_argo_theta.F 146 COST_ARGO_THETA 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argotobs,
./pkg/ecco/cost_bp_read.F 111 COST_BP_READ 
        call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_ctds.F 142 COST_CTDS 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdsobs,
./pkg/ecco/cost_ctdsclim.F 167 COST_CTDSCLIM 
        call MDSREADFIELD( ctdsclimfile, cost_iprec, cost_yftype,
./pkg/ecco/cost_ctdt.F 143 COST_CTDT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdtobs,
./pkg/ecco/cost_ctdtclim.F 166 COST_CTDTCLIM 
        call MDSREADFIELD( ctdtclimfile, cost_iprec, cost_yftype,
./pkg/ecco/cost_curmtr.F 149 COST_CURMTR 
        call MDSREADFIELD( curmtrufile,cost_iprec, 'RL', nr, curmtruobs,
./pkg/ecco/cost_curmtr.F 152 COST_CURMTR 
        call MDSREADFIELD( curmtrvfile,cost_iprec, 'RL', nr, curmtrvobs,
./pkg/ecco/cost_drifter.F 178 COST_DRIFTER 
         call MDSREADFIELD( udriftfile, 32, 'RL', 1, udriftdat, 1,
./pkg/ecco/cost_drifter.F 180 COST_DRIFTER 
         call MDSREADFIELD( vdriftfile, 32, 'RL', 1, vdriftdat, 1,
./pkg/ecco/cost_drifter.F 183 COST_DRIFTER 
         call MDSREADFIELD( udrifterrfile, 32, 'RL', 1, wudrift, 1,
./pkg/ecco/cost_drifter.F 185 COST_DRIFTER 
         call MDSREADFIELD( vdrifterrfile, 32, 'RL', 1, wvdrift, 1,
./pkg/ecco/cost_gencost_boxmean.F 111 COST_GENCOST_BOXMEAN 
        call MDSREADFIELD( gencost_errfile(igen_boxmean),
./pkg/ecco/cost_gencost_boxmean.F 140 COST_GENCOST_BOXMEAN 
        call MDSREADFIELD( gencost_errfile(igen_boxmean),
./pkg/ecco/cost_gencost_seaicev4.F 311 COST_GENCOST_SEAICEV4 
          call MDSREADFIELD( fname0, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_gencost_seaicev4.F 343 COST_GENCOST_SEAICEV4 
          call MDSREADFIELD( fname0w, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_gencost_sstv4.F 219 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_gencost_sstv4.F 371 COST_GENCOST_SSTV4 
               call MDSREADFIELD( fname2, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_generic.F 247 COST_GENERIC 
          call MDSREADFIELD( fname2, cost_iprec, cost_yftype, nnzobs,
./pkg/ecco/cost_ies_read.F 100 COST_IES_READ 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readargos.F 84 COST_READARGOS 
      call MDSREADFIELD( argosfile, cost_iprec, cost_yftype, nr,
./pkg/ecco/cost_readargot.F 84 COST_READARGOT 
      call MDSREADFIELD( argotfile, cost_iprec, cost_yftype, nr,
./pkg/ecco/cost_readers.F 127 COST_READERS 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, ersobs,
./pkg/ecco/cost_readgfo.F 127 COST_READGFO 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, gfoobs,
./pkg/ecco/cost_readscatxfields.F 166 COST_READSCATXFIELDS 
             call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readscatyfields.F 165 COST_READSCATYFIELDS 
             call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_readtopex.F 154 COST_READTOPEX 
      call MDSREADFIELD( fnametmp, cost_iprec, cost_yftype, 1, tpobs,
./pkg/ecco/cost_readtopexmean.F 70 COST_READTOPEXMEAN 
      call MDSREADFIELD( mdtdatfile, cost_iprec, cost_yftype, 1,
./pkg/ecco/cost_salt.F 167 COST_SALT 
        call MDSREADFIELD( sdatfile, cost_iprec, cost_yftype,
./pkg/ecco/cost_sigmar.F 160 COST_SIGMAR 
        call MDSREADFIELD( sigmaRdatfile, cost_iprec, cost_yftype,
./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_theta.F 167 COST_THETA 
        call MDSREADFIELD( tdatfile, cost_iprec, cost_yftype,
./pkg/ecco/cost_xbt.F 148 COST_XBT 
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, xbtobs,
./pkg/ecco/ecco_cost_weights.F 1000 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( tauv_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 1038 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( vwind_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1070 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( hflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1105 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( atemp_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1139 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( sflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1174 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( aqh_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 1206 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( precip_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1238 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( swflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1270 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( swdown_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1302 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( lwflux_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1334 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( lwdown_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1366 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( snowprecip_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1399 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( evap_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1431 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( apressure_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1464 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( runoff_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1489 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( bottomdrag_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1511 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( diffkr_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1535 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( kapgm_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1559 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( kapredi_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1583 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( edtau_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1611 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( gencost_errfile(k), cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1615 ECCO_COST_WEIGHTS 
        call MDSREADFIELD( gencost_errfile(k), cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 1648 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( etan0errfile, 32, 'RL', 1,
./pkg/ecco/ecco_cost_weights.F 1686 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( uvel0errfile, 32, 'RL', Nr,
./pkg/ecco/ecco_cost_weights.F 1688 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( vvel0errfile, 32, 'RL', Nr,
./pkg/ecco/ecco_cost_weights.F 361 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( salt0errfile, 32, 'RL', Nr,
./pkg/ecco/ecco_cost_weights.F 404 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( temp0errfile, 32, 'RL', Nr,
./pkg/ecco/ecco_cost_weights.F 449 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( salterrfile, 32, 'RL', Nr, wsalt2, 1,
./pkg/ecco/ecco_cost_weights.F 497 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( temperrfile, 32, 'RL', Nr, wtheta2, 1,
./pkg/ecco/ecco_cost_weights.F 540 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( ssterrfile, 32, 'RL', 1, wsst, 1,
./pkg/ecco/ecco_cost_weights.F 545 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( ssserrfile, 32, 'RL', 1, wsss, 1,
./pkg/ecco/ecco_cost_weights.F 618 ECCO_COST_WEIGHTS 
      call MDSREADFIELD( geoid_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 656 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( ssh_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 685 ECCO_COST_WEIGHTS 
     &     call MDSREADFIELD( tp_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 690 ECCO_COST_WEIGHTS 
     &     call MDSREADFIELD( ers_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 695 ECCO_COST_WEIGHTS 
     &     call MDSREADFIELD( gfo_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 762 ECCO_COST_WEIGHTS 
      call MDSREADFIELD( sshv4cost_errfile(num_var),
./pkg/ecco/ecco_cost_weights.F 812 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( bperrfile, 32, 'RL', 1, wbp, 1,
./pkg/ecco/ecco_cost_weights.F 833 ECCO_COST_WEIGHTS 
     &   call MDSREADFIELD( ieserrfile, 32, 'RL', 1, wies, 1,
./pkg/ecco/ecco_cost_weights.F 858 ECCO_COST_WEIGHTS 
      call MDSREADFIELD( scatx_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 860 ECCO_COST_WEIGHTS 
      call MDSREADFIELD( scaty_errfile, cost_iprec, cost_yftype, nnz,
./pkg/ecco/ecco_cost_weights.F 930 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( tauu_errfile, cost_iprec, cost_yftype,
./pkg/ecco/ecco_cost_weights.F 968 ECCO_COST_WEIGHTS 
         call MDSREADFIELD( uwind_errfile, cost_iprec, cost_yftype,