Symbol Description Uses
nrec 76


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,
./pkg/shelfice/shelfice_cost_shifwflx.F 101 SHELFICE_COST_SHIFWFLX 
      nrec = endrec-startrec+1
./pkg/shelfice/shelfice_cost_shifwflx.F 114 SHELFICE_COST_SHIFWFLX 
     &  ' shelfice_cost_shifwflx: number of records to process: ',nrec
./pkg/shelfice/shelfice_cost_shifwflx.F 130 SHELFICE_COST_SHIFWFLX 
      do irec = 1,nrec
./pkg/shelfice/shelfice_cost_shifwflx.F 63 SHELFICE_COST_SHIFWFLX 
      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/ecco/cost_argo_salt.F 235 COST_ARGO_SALT 
      nrec = 1
./pkg/ecco/cost_argo_salt.F 249 COST_ARGO_SALT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_argo_salt.F 56 COST_ARGO_SALT 
      integer nrec
./pkg/ecco/cost_argo_theta.F 241 COST_ARGO_THETA 
      nrec = 1
./pkg/ecco/cost_argo_theta.F 255 COST_ARGO_THETA 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_argo_theta.F 56 COST_ARGO_THETA 
      integer nrec
./pkg/ecco/cost_bottomdrag.F 46 COST_BOTTOMDRAG 
      integer nrec
./pkg/ecco/cost_ctds.F 238 COST_CTDS 
      nrec = 1
./pkg/ecco/cost_ctds.F 252 COST_CTDS 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_ctds.F 55 COST_CTDS 
      integer nrec
./pkg/ecco/cost_ctdt.F 242 COST_CTDT 
      nrec = 1
./pkg/ecco/cost_ctdt.F 256 COST_CTDT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_ctdt.F 56 COST_CTDT 
      integer nrec
./pkg/ecco/cost_curmtr.F 343 COST_CURMTR 
      nrec = 1
./pkg/ecco/cost_curmtr.F 357 COST_CURMTR 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_curmtr.F 56 COST_CURMTR 
      integer nrec
./pkg/ecco/cost_diffkr.F 46 COST_DIFFKR 
      integer nrec
./pkg/ecco/cost_etan0.F 58 COST_ETAN0 
      integer nrec
./pkg/ecco/cost_forcing_gen.F 124 COST_FORCING_GEN 
      nrec = endrec-startrec+1
./pkg/ecco/cost_forcing_gen.F 150 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 181 COST_FORCING_GEN 
     &            = xx_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_forcing_gen.F 199 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 247 COST_FORCING_GEN 
      do irec = 1,nrec
./pkg/ecco/cost_forcing_gen.F 81 COST_FORCING_GEN 
      integer nrec
./pkg/ecco/cost_kapgm.F 49 COST_KAPGM 
      integer nrec
./pkg/ecco/cost_kapredi.F 49 COST_KAPREDI 
      integer nrec
./pkg/ecco/cost_obcse.F 116 COST_OBCSE 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcse.F 130 COST_OBCSE 
     &  ' cost_obcse: number of records to process: ',nrec
./pkg/ecco/cost_obcse.F 146 COST_OBCSE 
      do irec = 1,nrec
./pkg/ecco/cost_obcse.F 78 COST_OBCSE 
      integer nrec
./pkg/ecco/cost_obcsn.F 114 COST_OBCSN 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsn.F 128 COST_OBCSN 
     &  ' cost_obcsn: number of records to process: ',nrec
./pkg/ecco/cost_obcsn.F 144 COST_OBCSN 
      do irec = 1,nrec
./pkg/ecco/cost_obcsn.F 77 COST_OBCSN 
      integer nrec
./pkg/ecco/cost_obcss.F 114 COST_OBCSS 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcss.F 128 COST_OBCSS 
     &  ' cost_obcss: number of records to process: ',nrec
./pkg/ecco/cost_obcss.F 144 COST_OBCSS 
      do irec = 1,nrec
./pkg/ecco/cost_obcss.F 77 COST_OBCSS 
      integer nrec
./pkg/ecco/cost_obcsvol.F 118 COST_OBCSVOL 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsvol.F 135 COST_OBCSVOL 
     &  ' cost_obcsvol: number of records to process: ',nrec
./pkg/ecco/cost_obcsvol.F 173 COST_OBCSVOL 
      do irec = 1,nrec
./pkg/ecco/cost_obcsvol.F 61 COST_OBCSVOL 
      integer nrec
./pkg/ecco/cost_obcsw.F 114 COST_OBCSW 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsw.F 128 COST_OBCSW 
     &  ' cost_obcsw: number of records to process: ',nrec
./pkg/ecco/cost_obcsw.F 144 COST_OBCSW 
      do irec = 1,nrec
./pkg/ecco/cost_obcsw.F 77 COST_OBCSW 
      integer nrec
./pkg/ecco/cost_salt0.F 58 COST_SALT0 
      integer nrec
./pkg/ecco/cost_salt_ini_fin.F 50 COST_SALT_INI_FIN 
      integer nrec
./pkg/ecco/cost_tau_eddy.F 49 COST_TAU_EDDY 
      integer nrec
./pkg/ecco/cost_theta0.F 58 COST_THETA0 
      integer nrec
./pkg/ecco/cost_theta_ini_fin.F 50 COST_THETA_INI_FIN 
      integer nrec
./pkg/ecco/cost_uvel0.F 58 COST_UVEL0 
      integer nrec
./pkg/ecco/cost_vvel0.F 58 COST_VVEL0 
      integer nrec
./pkg/ecco/cost_xbt.F 255 COST_XBT 
      nrec = 1
./pkg/ecco/cost_xbt.F 269 COST_XBT 
     &                      ' been processed: ',nrec
./pkg/ecco/cost_xbt.F 56 COST_XBT 
      integer nrec