Symbol Description Uses
ku work arrays and variables 39


File Line number Procedure Code
./pkg/fizhi/fizhi_init_chem.F 115 READ_OZ 
      subroutine READ_OZ (ku,oz,lats,levs,nlat,nlev,ntime)
./pkg/fizhi/fizhi_init_chem.F 132 READ_OZ 
      integer  ku,nlat,nlev,ntime
./pkg/fizhi/fizhi_init_chem.F 164 READ_OZ 
      close (ku)
./pkg/fizhi/fizhi_init_chem.F 165 READ_OZ 
      open(ku,file='data.gcmo3',form='unformatted',access='direct',
./pkg/fizhi/fizhi_init_chem.F 172 READ_OZ 
      read(ku,rec=nrec) o3
./pkg/fizhi/fizhi_init_chem.F 182 READ_OZ 
      close (ku)
./pkg/fizhi/fizhi_init_chem.F 48 READ_QZ 
      subroutine READ_QZ (ku,qz,lats,levs,nlat,nlev,ntime)
./pkg/fizhi/fizhi_init_chem.F 65 READ_QZ 
      integer  ku,nlat,nlev,ntime
./pkg/fizhi/fizhi_init_chem.F 78 READ_QZ 
      open(ku,file='data.sage',form='formatted')
./pkg/fizhi/fizhi_init_chem.F 79 READ_QZ 
      rewind ku
./pkg/fizhi/fizhi_init_chem.F 89 READ_QZ 
      read(ku,1000) (levs(lev),lev=1,nlev)
./pkg/fizhi/fizhi_init_chem.F 94 READ_QZ 
      read (ku,1001)
./pkg/fizhi/fizhi_init_chem.F 96 READ_QZ 
      read(ku,1000) (qz(lat,lev,time0),lev=1,nlev)
./pkg/fizhi/fizhi_readparms.F 32 FIZHI_READPARMS 
      integer ku, ku2
./pkg/fizhi/fizhi_readparms.F 72 FIZHI_READPARMS 
     &     ku,myThid )
./pkg/fizhi/fizhi_readparms.F 73 FIZHI_READPARMS 
      read  (ku,NML=fizhi_list)
./pkg/fizhi/fizhi_readparms.F 75 FIZHI_READPARMS 
      CLOSE(ku)
./pkg/fizhi/fizhi_readparms.F 77 FIZHI_READPARMS 
      CLOSE(ku,STATUS='DELETE')
./pkg/fizhi/fizhi_write_datetime.F 23 FIZHI_WRITE_DATETIME 
      integer ku
./pkg/fizhi/fizhi_write_datetime.F 27 FIZHI_WRITE_DATETIME 
       CALL MDSFINDUNIT( ku, myThid )
./pkg/fizhi/fizhi_write_datetime.F 28 FIZHI_WRITE_DATETIME 
       open(ku,file='datetime',form='formatted')
./pkg/fizhi/fizhi_write_datetime.F 29 FIZHI_WRITE_DATETIME 
       write(ku,1000)nymd,nhms
./pkg/fizhi/fizhi_write_datetime.F 31 FIZHI_WRITE_DATETIME 
       close (ku)
./pkg/layers/layers_fluxcalc.F 751 LAYERS_LOCATE 
      INTEGER kl(sNx+1,sNy+1), ku(sNx+1,sNy+1)
./pkg/layers/layers_fluxcalc.F 758 LAYERS_LOCATE 
        ku(i,j)=n+1
./pkg/layers/layers_fluxcalc.F 764 LAYERS_LOCATE 
         IF (ku(i,j)-kl(i,j).GT.1) THEN
./pkg/layers/layers_fluxcalc.F 765 LAYERS_LOCATE 
          km=(ku(i,j)+kl(i,j))/2
./pkg/layers/layers_fluxcalc.F 771 LAYERS_LOCATE 
           ku(i,j)=km
./pkg/mnc/mnc_readparms.F 132 MNC_READPARMS 
     &     ku, myThid )
./pkg/mnc/mnc_readparms.F 133 MNC_READPARMS 
      READ(ku,NML=MNC_01)
./pkg/mnc/mnc_readparms.F 135 MNC_READPARMS 
      CLOSE(ku)
./pkg/mnc/mnc_readparms.F 137 MNC_READPARMS 
      CLOSE(ku,STATUS='DELETE')
./pkg/mnc/mnc_readparms.F 40 MNC_READPARMS 
      INTEGER i, nl, ku
./pkg/diagnostics/diagnostics_readparms.F 198 DIAGNOSTICS_READPARMS 
     &     'DIAGNOSTICS_READPARMS', ku, myThid )
./pkg/diagnostics/diagnostics_readparms.F 204 DIAGNOSTICS_READPARMS 
      READ  (ku,NML=diagnostics_list)
./pkg/diagnostics/diagnostics_readparms.F 218 DIAGNOSTICS_READPARMS 
      READ  (ku,NML=DIAG_STATIS_PARMS)
./pkg/diagnostics/diagnostics_readparms.F 225 DIAGNOSTICS_READPARMS 
      CLOSE(ku)
./pkg/diagnostics/diagnostics_readparms.F 227 DIAGNOSTICS_READPARMS 
      CLOSE(ku,STATUS='DELETE')
./pkg/diagnostics/diagnostics_readparms.F 87 DIAGNOSTICS_READPARMS 
      INTEGER ku, stdUnit