Symbol Description Uses
nrec 96


File Line number Procedure Code
./pkg/ecco/cost_atemp.F 101 COST_ATEMP 
      do irec = 1,nrec
./pkg/ecco/cost_atemp.F 187 COST_ATEMP 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_atemp.F 52 COST_ATEMP 
      integer nrec
./pkg/ecco/cost_atemp.F 88 COST_ATEMP 
      nrec = endrec-startrec+1
./pkg/ecco/cost_heatflux.F 101 COST_HEATFLUX 
      nrec = endrec-startrec+1
./pkg/ecco/cost_heatflux.F 124 COST_HEATFLUX 
      do irec = 1,nrec
./pkg/ecco/cost_heatflux.F 153 COST_HEATFLUX 
     &            = xx_hflux_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_heatflux.F 192 COST_HEATFLUX 
      do irec = 1,nrec
./pkg/ecco/cost_heatflux.F 280 COST_HEATFLUX 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_heatflux.F 60 COST_HEATFLUX 
      integer nrec
./pkg/ecco/cost_xbt.F 254 COST_XBT 
      nrec = 1
./pkg/ecco/cost_xbt.F 268 COST_XBT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_xbt.F 54 COST_XBT 
      integer nrec
./pkg/ecco/cost_salt0.F 56 COST_SALT0 
      integer nrec
./pkg/ecco/cost_uwind.F 101 COST_UWIND 
      do irec = 1,nrec
./pkg/ecco/cost_uwind.F 187 COST_UWIND 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_uwind.F 52 COST_UWIND 
      integer nrec
./pkg/ecco/cost_uwind.F 88 COST_UWIND 
      nrec = endrec-startrec+1
./pkg/ecco/cost_kapgm.F 60 COST_KAPGM 
      integer nrec
./pkg/ecco/cost_zonstress.F 101 COST_ZONSTRESS 
      nrec = endrec-startrec+1
./pkg/ecco/cost_zonstress.F 124 COST_ZONSTRESS 
      do irec = 1,nrec
./pkg/ecco/cost_zonstress.F 153 COST_ZONSTRESS 
     &              = xx_tauu_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_zonstress.F 192 COST_ZONSTRESS 
      do irec = 1,nrec
./pkg/ecco/cost_zonstress.F 280 COST_ZONSTRESS 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_zonstress.F 60 COST_ZONSTRESS 
      integer nrec
./pkg/ecco/cost_theta0.F 56 COST_THETA0 
      integer nrec
./pkg/ecco/cost_argo_theta.F 239 COST_ARGO_THETA 
      nrec = 1
./pkg/ecco/cost_argo_theta.F 253 COST_ARGO_THETA 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_argo_theta.F 54 COST_ARGO_THETA 
      integer nrec
./pkg/ecco/cost_argo_salt.F 233 COST_ARGO_SALT 
      nrec = 1
./pkg/ecco/cost_argo_salt.F 247 COST_ARGO_SALT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_argo_salt.F 54 COST_ARGO_SALT 
      integer nrec
./pkg/ecco/cost_obcsvol.F 111 COST_OBCSVOL 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsvol.F 131 COST_OBCSVOL 
     &  ' cost_obcsvol: number of records to process: ',nrec
./pkg/ecco/cost_obcsvol.F 169 COST_OBCSVOL 
      do irec = 1,nrec
./pkg/ecco/cost_obcsvol.F 65 COST_OBCSVOL 
      integer nrec
./pkg/ecco/cost_ctdt.F 249 COST_CTDT 
      nrec = 1
./pkg/ecco/cost_ctdt.F 263 COST_CTDT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_ctdt.F 54 COST_CTDT 
      integer nrec
./pkg/ecco/cost_theta_ini_fin.F 48 COST_THETA_INI_FIN 
      integer nrec
./pkg/ecco/cost_saltflux.F 101 COST_SALTFLUX 
      nrec = endrec-startrec+1
./pkg/ecco/cost_saltflux.F 124 COST_SALTFLUX 
      do irec = 1,nrec
./pkg/ecco/cost_saltflux.F 153 COST_SALTFLUX 
     &              = xx_sflux_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_saltflux.F 192 COST_SALTFLUX 
      do irec = 1,nrec
./pkg/ecco/cost_saltflux.F 280 COST_SALTFLUX 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_saltflux.F 60 COST_SALTFLUX 
      integer nrec
./pkg/ecco/cost_aqh.F 101 COST_AQH 
      do irec = 1,nrec
./pkg/ecco/cost_aqh.F 187 COST_AQH 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_aqh.F 52 COST_AQH 
      integer nrec
./pkg/ecco/cost_aqh.F 88 COST_AQH 
      nrec = endrec-startrec+1
./pkg/ecco/cost_merstress.F 101 COST_MERSTRESS 
      nrec = endrec-startrec+1
./pkg/ecco/cost_merstress.F 124 COST_MERSTRESS 
      do irec = 1,nrec
./pkg/ecco/cost_merstress.F 155 COST_MERSTRESS 
     &              = xx_tauv_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_merstress.F 194 COST_MERSTRESS 
      do irec = 1,nrec
./pkg/ecco/cost_merstress.F 282 COST_MERSTRESS 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_merstress.F 60 COST_MERSTRESS 
      integer nrec
./pkg/ecco/cost_ctds.F 245 COST_CTDS 
      nrec = 1
./pkg/ecco/cost_ctds.F 259 COST_CTDS 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_ctds.F 53 COST_CTDS 
      integer nrec
./pkg/ecco/cost_salt_ini_fin.F 48 COST_SALT_INI_FIN 
      integer nrec
./pkg/ecco/cost_vwind.F 101 COST_VWIND 
      do irec = 1,nrec
./pkg/ecco/cost_vwind.F 187 COST_VWIND 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_vwind.F 52 COST_VWIND 
      integer nrec
./pkg/ecco/cost_vwind.F 88 COST_VWIND 
      nrec = endrec-startrec+1
./pkg/ecco/cost_curmtr.F 341 COST_CURMTR 
      nrec = 1
./pkg/ecco/cost_curmtr.F 355 COST_CURMTR 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_curmtr.F 54 COST_CURMTR 
      integer nrec
./verification/natl_box/results/comp_orig.F 12 NO PROCEDURE 
      integer nx, ny, nrec
./verification/natl_box/results/comp_orig.F 13 NO PROCEDURE 
      parameter (nx=20, ny=16, nrec=4)
./verification/natl_box/results/comp_orig.F 28 NO PROCEDURE 
      do k=1,nrec
./pkg/fizhi/update_ocean_exports.F 176 GETSICE 
      integer ndatebc,nrec
./pkg/fizhi/update_ocean_exports.F 221 GETSICE 
       nrec = 1
./pkg/fizhi/update_ocean_exports.F 222 GETSICE 
       call BCHEADER (iunit, ndmax, nrec,
./pkg/fizhi/update_ocean_exports.F 428 GETSST 
      integer ndatebc,nrec
./pkg/fizhi/update_ocean_exports.F 472 GETSST 
       nrec = 1
./pkg/fizhi/update_ocean_exports.F 473 GETSST 
       call BCHEADER (iunit, ndmax, nrec,
./pkg/fizhi/update_ocean_exports.F 646 BCHEADER 
      subroutine BCHEADER (iunit, ndmax, nrec,
./pkg/fizhi/update_ocean_exports.F 675 BCHEADER 
      integer iunit, ndmax, nrec
./pkg/fizhi/update_ocean_exports.F 691 BCHEADER 
      read(iunit,rec=nrec,err=500) cname, cdscrip,
./pkg/fizhi/update_ocean_exports.F 704 BCHEADER 
      read(iunit,rec=nrec,err=500) dummy112,
./pkg/fizhi/fizhi_init_chem.F 142 READ_OZ 
      integer nrec
./pkg/fizhi/fizhi_init_chem.F 171 READ_OZ 
      nrec = lev+(time0-1)*nlev*2
./pkg/fizhi/fizhi_init_chem.F 172 READ_OZ 
      read(ku,rec=nrec) o3
./pkg/land/land_write_diags.F 115 LAND_WRITE_DIAGS 
        nrec = 3*land_nLev
./pkg/land/land_write_diags.F 117 LAND_WRITE_DIAGS 
     &        'RL', 1 , land_sTtave,  1+nrec, myIter,myThid)
./pkg/land/land_write_diags.F 119 LAND_WRITE_DIAGS 
     &        'RL', 1 , land_hStave,  2+nrec, myIter,myThid)
./pkg/land/land_write_diags.F 121 LAND_WRITE_DIAGS 
     &        'RL', 1 , land_sAtave,  3+nrec, myIter,myThid)
./pkg/land/land_write_diags.F 123 LAND_WRITE_DIAGS 
     &        'RL', 1 , land_ROftave, 4+nrec, myIter,myThid)
./pkg/land/land_write_diags.F 125 LAND_WRITE_DIAGS 
     &        'RL', 1 , land_eROtave, 5+nrec, myIter,myThid)
./pkg/land/land_write_diags.F 46 LAND_WRITE_DIAGS 
      INTEGER bi, bj, k, nrec
./pkg/ctrl/ctrl_obcsvol.F 126 CTRL_OBCSVOL 
     &  ' ctrl_obcsvol: number of records to process: ',nrec
./pkg/ctrl/ctrl_obcsvol.F 62 CTRL_OBCSVOL 
      integer nrec
./pkg/ctrl/ctrl_volflux.F 131 CTRL_VOLFLUX 
     &  ' ctrl_volflux: number of records to process: ',nrec
./pkg/ctrl/ctrl_volflux.F 68 CTRL_VOLFLUX 
      integer nrec
./pkg/ctrl/ctrl_obcsbal.F 132 CTRL_OBCSBAL 
     &  ' ctrl_obcsvol: number of records to process: ',nrec
./pkg/ctrl/ctrl_obcsbal.F 65 CTRL_OBCSBAL 
      integer nrec