Symbol Description Uses
nrec 47


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 107 SHELFICE_COST_SHIFWFLX 
      nrec = endrec-startrec+1
./pkg/shelfice/shelfice_cost_shifwflx.F 120 SHELFICE_COST_SHIFWFLX 
     &  ' shelfice_cost_shifwflx: number of records to process: ',nrec
./pkg/shelfice/shelfice_cost_shifwflx.F 136 SHELFICE_COST_SHIFWFLX 
      do irec = 1,nrec
./pkg/shelfice/shelfice_cost_shifwflx.F 69 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/ctrl/ctrl_cost_gen.F 137 CTRL_COST_GEN2D 
      nrec = endrec-startrec+1
./pkg/ctrl/ctrl_cost_gen.F 166 CTRL_COST_GEN2D 
      do irec = 1,nrec
./pkg/ctrl/ctrl_cost_gen.F 212 CTRL_COST_GEN2D 
      do irec = 1,nrec
./pkg/ctrl/ctrl_cost_gen.F 247 CTRL_COST_GEN2D 
     &            = xx_mean(i,j,bi,bj)/float(nrec)
./pkg/ctrl/ctrl_cost_gen.F 270 CTRL_COST_GEN2D 
      do irec = 1,nrec
./pkg/ctrl/ctrl_cost_gen.F 334 CTRL_COST_GEN2D 
      do irec = 1,nrec
./pkg/ctrl/ctrl_cost_gen.F 96 CTRL_COST_GEN2D 
      integer nrec
./pkg/ecco/cost_obcse.F 125 COST_OBCSE 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcse.F 139 COST_OBCSE 
     &  ' cost_obcse: number of records to process: ',nrec
./pkg/ecco/cost_obcse.F 155 COST_OBCSE 
      do irec = 1,nrec
./pkg/ecco/cost_obcse.F 87 COST_OBCSE 
      integer nrec
./pkg/ecco/cost_obcsn.F 123 COST_OBCSN 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsn.F 137 COST_OBCSN 
     &  ' cost_obcsn: number of records to process: ',nrec
./pkg/ecco/cost_obcsn.F 153 COST_OBCSN 
      do irec = 1,nrec
./pkg/ecco/cost_obcsn.F 86 COST_OBCSN 
      integer nrec
./pkg/ecco/cost_obcss.F 123 COST_OBCSS 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcss.F 137 COST_OBCSS 
     &  ' cost_obcss: number of records to process: ',nrec
./pkg/ecco/cost_obcss.F 153 COST_OBCSS 
      do irec = 1,nrec
./pkg/ecco/cost_obcss.F 86 COST_OBCSS 
      integer nrec
./pkg/ecco/cost_obcsvol.F 129 COST_OBCSVOL 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsvol.F 146 COST_OBCSVOL 
     &  ' cost_obcsvol: number of records to process: ',nrec
./pkg/ecco/cost_obcsvol.F 184 COST_OBCSVOL 
      do irec = 1,nrec
./pkg/ecco/cost_obcsvol.F 72 COST_OBCSVOL 
      integer nrec
./pkg/ecco/cost_obcsw.F 123 COST_OBCSW 
      nrec = endrec-startrec+1
./pkg/ecco/cost_obcsw.F 137 COST_OBCSW 
     &  ' cost_obcsw: number of records to process: ',nrec
./pkg/ecco/cost_obcsw.F 153 COST_OBCSW 
      do irec = 1,nrec
./pkg/ecco/cost_obcsw.F 86 COST_OBCSW 
      integer nrec