Symbol Description Uses
nk 38


File Line number Procedure Code
./pkg/fizhi/fizhi_swrad.F 1246 SOLIR 
      integer nk,nband
./pkg/fizhi/fizhi_swrad.F 1247 SOLIR 
      parameter (nk=10,nband=3)
./pkg/fizhi/fizhi_swrad.F 1248 SOLIR 
      _RL  xk(nk),hk(nband,nk),ssaal(nband),asyal(nband)
./pkg/fizhi/fizhi_swrad.F 1389 SOLIR 
         do 200 ik=1,nk
./pkg/mnc/mnc_utils.F 275 MNC_CHK_VTYP_R_NCVAR 
      integer  ii,k, ind_cw_g, ig,ids,ide,nint, indd, nk
./pkg/mnc/mnc_utils.F 298 MNC_CHK_VTYP_R_NCVAR 
      nk = nint
./pkg/mnc/mnc_utils.F 299 MNC_CHK_VTYP_R_NCVAR 
      IF (ndim_vt .LT. nk)  nk = ndim_vt
./pkg/mnc/mnc_utils.F 306 MNC_CHK_VTYP_R_NCVAR 
      DO k = 1,nk
./pkg/ctrl/ctrl_getobcse.F 148 CTRL_GETOBCSE 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcse.F 150 CTRL_GETOBCSE 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 217 CTRL_GETOBCSE 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcse.F 219 CTRL_GETOBCSE 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 80 CTRL_GETOBCSE 
      integer nk,nz
./pkg/ctrl/ctrl_getobcsn.F 153 CTRL_GETOBCSN 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcsn.F 155 CTRL_GETOBCSN 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 222 CTRL_GETOBCSN 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcsn.F 224 CTRL_GETOBCSN 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 81 CTRL_GETOBCSN 
      integer nk,nz
./pkg/ctrl/ctrl_getobcss.F 149 CTRL_GETOBCSS 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcss.F 151 CTRL_GETOBCSS 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 218 CTRL_GETOBCSS 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcss.F 220 CTRL_GETOBCSS 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 82 CTRL_GETOBCSS 
      integer nk,nz
./pkg/ctrl/ctrl_getobcsw.F 148 CTRL_GETOBCSW 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcsw.F 150 CTRL_GETOBCSW 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 217 CTRL_GETOBCSW 
              do nk = 1,nz
./pkg/ctrl/ctrl_getobcsw.F 219 CTRL_GETOBCSW 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 81 CTRL_GETOBCSW 
      integer nk,nz