Symbol Description Uses
nrec 59


File Line number Procedure Code
./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/fizhi/update_ocean_exports.F 185 GETSICE 
      integer ndatebc,nrec
./pkg/fizhi/update_ocean_exports.F 238 GETSICE 
       nrec = 1
./pkg/fizhi/update_ocean_exports.F 239 GETSICE 
       call BCHEADER (iunit, ndmax, nrec,
./pkg/fizhi/update_ocean_exports.F 446 GETSST 
      integer ndatebc,nrec
./pkg/fizhi/update_ocean_exports.F 498 GETSST 
       nrec = 1
./pkg/fizhi/update_ocean_exports.F 499 GETSST 
       call BCHEADER (iunit, ndmax, nrec,
./pkg/fizhi/update_ocean_exports.F 672 BCHEADER 
      subroutine BCHEADER (iunit, ndmax, nrec,
./pkg/fizhi/update_ocean_exports.F 701 BCHEADER 
      integer iunit, ndmax, nrec
./pkg/fizhi/update_ocean_exports.F 717 BCHEADER 
      read(iunit,rec=nrec,err=500) cname, cdscrip,
./pkg/fizhi/update_ocean_exports.F 730 BCHEADER 
      read(iunit,rec=nrec,err=500) dummy112,
./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/ctrl/ctrl_obcsbal.F 134 CTRL_OBCSBAL 
     &  ' ctrl_obcsvol: number of records to process: ',nrec
./pkg/ctrl/ctrl_obcsbal.F 67 CTRL_OBCSBAL 
      integer nrec
./pkg/ctrl/ctrl_obcsvol.F 128 CTRL_OBCSVOL 
     &  ' ctrl_obcsvol: number of records to process: ',nrec
./pkg/ctrl/ctrl_obcsvol.F 64 CTRL_OBCSVOL 
      integer nrec
./pkg/ctrl/ctrl_volflux.F 133 CTRL_VOLFLUX 
     &  ' ctrl_volflux: number of records to process: ',nrec
./pkg/ctrl/ctrl_volflux.F 70 CTRL_VOLFLUX 
      integer nrec
./pkg/ecco/cost_argo_salt.F 234 COST_ARGO_SALT 
      nrec = 1
./pkg/ecco/cost_argo_salt.F 248 COST_ARGO_SALT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_argo_salt.F 55 COST_ARGO_SALT 
      integer nrec
./pkg/ecco/cost_argo_theta.F 240 COST_ARGO_THETA 
      nrec = 1
./pkg/ecco/cost_argo_theta.F 254 COST_ARGO_THETA 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_argo_theta.F 55 COST_ARGO_THETA 
      integer nrec
./pkg/ecco/cost_bottomdrag.F 45 COST_BOTTOMDRAG 
      integer nrec
./pkg/ecco/cost_ctds.F 237 COST_CTDS 
      nrec = 1
./pkg/ecco/cost_ctds.F 251 COST_CTDS 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_ctds.F 54 COST_CTDS 
      integer nrec
./pkg/ecco/cost_ctdt.F 241 COST_CTDT 
      nrec = 1
./pkg/ecco/cost_ctdt.F 255 COST_CTDT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_ctdt.F 55 COST_CTDT 
      integer nrec
./pkg/ecco/cost_curmtr.F 342 COST_CURMTR 
      nrec = 1
./pkg/ecco/cost_curmtr.F 356 COST_CURMTR 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_curmtr.F 55 COST_CURMTR 
      integer nrec
./pkg/ecco/cost_diffkr.F 45 COST_DIFFKR 
      integer nrec
./pkg/ecco/cost_forcing_gen.F 125 COST_FORCING_GEN 
      nrec = endrec-startrec+1
./pkg/ecco/cost_forcing_gen.F 151 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 182 COST_FORCING_GEN 
     &            = xx_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_forcing_gen.F 200 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 248 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 82 COST_FORCING_GEN 
      integer nrec
./pkg/ecco/cost_kapgm.F 48 COST_KAPGM 
      integer nrec
./pkg/ecco/cost_kapredi.F 48 COST_KAPREDI 
      integer nrec
./pkg/ecco/cost_obcsvol.F 113 COST_OBCSVOL 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsvol.F 133 COST_OBCSVOL 
     &  ' cost_obcsvol: number of records to process: ',nrec
./pkg/ecco/cost_obcsvol.F 171 COST_OBCSVOL 
      do irec = 1,nrec
./pkg/ecco/cost_obcsvol.F 67 COST_OBCSVOL 
      integer nrec
./pkg/ecco/cost_salt0.F 57 COST_SALT0 
      integer nrec
./pkg/ecco/cost_salt_ini_fin.F 49 COST_SALT_INI_FIN 
      integer nrec
./pkg/ecco/cost_tau_eddy.F 48 COST_TAU_EDDY 
      integer nrec
./pkg/ecco/cost_theta0.F 57 COST_THETA0 
      integer nrec
./pkg/ecco/cost_theta_ini_fin.F 49 COST_THETA_INI_FIN 
      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 55 COST_XBT 
      integer nrec