Symbol Description Uses
kk r-index. 302


File Line number Procedure Code
./pkg/ecco/ecco_readparms.F 53 ECCO_READPARMS 
      INTEGER IL, kk, gencost_k3d, gencost_msk_k3d, ioUnit
./pkg/ecco/ecco_readparms.F 730 ECCO_READPARMS 
           kk=gencost_msk_pointer3d(k)
./pkg/ecco/ecco_readparms.F 744 ECCO_READPARMS 
     &            gencost_mskC(1-olx,1-oly,1,1,1,kk),1,mythid)
./pkg/ecco/ecco_readparms.F 758 ECCO_READPARMS 
     &            gencost_mskW(1-olx,1-oly,1,1,1,kk),1,mythid)
./pkg/ecco/ecco_readparms.F 772 ECCO_READPARMS 
     &            gencost_mskS(1-olx,1-oly,1,1,1,kk),1,mythid)
./pkg/fizhi/fizhi_swrad.F 1012 CLDSCALE 
      integer i,j,k,im,it,ia,kk
./pkg/fizhi/fizhi_swrad.F 1072 CLDSCALE 
            kk=1
./pkg/fizhi/fizhi_swrad.F 1074 CLDSCALE 
            kk=2
./pkg/fizhi/fizhi_swrad.F 1076 CLDSCALE 
            kk=3
./pkg/fizhi/fizhi_swrad.F 1090 CLDSCALE 
           fa=fcld(i,j,k)/cc(i,j,kk)
./pkg/generic_advdiff/gad_osc_hat_x.F 106 GAD_OSC_HAT_X 
      SUBROUTINE GAD_OSC_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_osc_hat_x.F 118 GAD_OSC_HAT_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_osc_hat_y.F 106 GAD_OSC_HAT_Y 
      SUBROUTINE GAD_OSC_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_osc_hat_y.F 118 GAD_OSC_HAT_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_ppm_adv_x.F 108 GAD_PPM_ADV_X 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_ppm_adv_x.F 113 GAD_PPM_ADV_X 
          CALL GAD_OSC_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 119 GAD_PPM_ADV_X 
          CALL GAD_PPM_P3E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 124 GAD_PPM_ADV_X 
          CALL GAD_PPM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 131 GAD_PPM_ADV_X 
          CALL GAD_PPM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_adv_x.F 34 GAD_PPM_ADV_X 
          integer bi,bj,kk
./pkg/generic_advdiff/gad_ppm_adv_x.F 6 GAD_PPM_ADV_X 
      SUBROUTINE GAD_PPM_ADV_X(meth,bi,bj,kk,
./pkg/generic_advdiff/gad_ppm_adv_y.F 108 GAD_PPM_ADV_Y 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_ppm_adv_y.F 113 GAD_PPM_ADV_Y 
          CALL GAD_OSC_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_ppm_adv_y.F 119 GAD_PPM_ADV_Y 
          CALL GAD_PPM_P3E_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_ppm_adv_y.F 124 GAD_PPM_ADV_Y 
          CALL GAD_PPM_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_ppm_adv_y.F 131 GAD_PPM_ADV_Y 
          CALL GAD_PPM_FLX_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_ppm_adv_y.F 34 GAD_PPM_ADV_Y 
          integer bi,bj,kk
./pkg/generic_advdiff/gad_ppm_adv_y.F 6 GAD_PPM_ADV_Y 
      SUBROUTINE GAD_PPM_ADV_Y(meth,bi,bj,kk,
./pkg/generic_advdiff/gad_ppm_flx_x.F 107 GAD_PPM_FLX_X 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_ppm_flx_x.F 32 GAD_PPM_FLX_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_ppm_flx_x.F 6 GAD_PPM_FLX_X 
      SUBROUTINE GAD_PPM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_flx_x.F 80 GAD_PPM_FLX_X 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_ppm_flx_y.F 107 GAD_PPM_FLX_Y 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_ppm_flx_y.F 32 GAD_PPM_FLX_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_ppm_flx_y.F 6 GAD_PPM_FLX_Y 
      SUBROUTINE GAD_PPM_FLX_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_ppm_flx_y.F 80 GAD_PPM_FLX_Y 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_ppm_hat_x.F 35 GAD_PPM_HAT_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_ppm_hat_x.F 6 GAD_PPM_HAT_X 
      SUBROUTINE GAD_PPM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_hat_y.F 35 GAD_PPM_HAT_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_ppm_hat_y.F 6 GAD_PPM_HAT_Y 
      SUBROUTINE GAD_PPM_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_ppm_p3e_x.F 21 GAD_PPM_P3E_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_ppm_p3e_x.F 6 GAD_PPM_P3E_X 
      SUBROUTINE GAD_PPM_P3E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_ppm_p3e_y.F 21 GAD_PPM_P3E_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_ppm_p3e_y.F 6 GAD_PPM_P3E_Y 
      SUBROUTINE GAD_PPM_P3E_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_adv_x.F 104 GAD_PQM_ADV_X 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_pqm_adv_x.F 111 GAD_PQM_ADV_X 
          CALL GAD_OSC_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 117 GAD_PQM_ADV_X 
          CALL GAD_PQM_P5E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 122 GAD_PQM_ADV_X 
          CALL GAD_PQM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 129 GAD_PQM_ADV_X 
          CALL GAD_PQM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_adv_x.F 34 GAD_PQM_ADV_X 
          integer bi,bj,kk
./pkg/generic_advdiff/gad_pqm_adv_x.F 6 GAD_PQM_ADV_X 
      SUBROUTINE GAD_PQM_ADV_X(meth,bi,bj,kk,
./pkg/generic_advdiff/gad_pqm_adv_y.F 104 GAD_PQM_ADV_Y 
     &          maskC(ix,iy,kk,bi,bj)
./pkg/generic_advdiff/gad_pqm_adv_y.F 111 GAD_PQM_ADV_Y 
          CALL GAD_OSC_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_adv_y.F 117 GAD_PQM_ADV_Y 
          CALL GAD_PQM_P5E_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_adv_y.F 122 GAD_PQM_ADV_Y 
          CALL GAD_PQM_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_adv_y.F 129 GAD_PQM_ADV_Y 
          CALL GAD_PQM_FLX_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_adv_y.F 34 GAD_PQM_ADV_Y 
          integer bi,bj,kk
./pkg/generic_advdiff/gad_pqm_adv_y.F 6 GAD_PQM_ADV_Y 
      SUBROUTINE GAD_PQM_ADV_Y(meth,bi,bj,kk,
./pkg/generic_advdiff/gad_pqm_flx_x.F 113 GAD_PQM_FLX_X 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_pqm_flx_x.F 32 GAD_PQM_FLX_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_pqm_flx_x.F 6 GAD_PQM_FLX_X 
      SUBROUTINE GAD_PQM_FLX_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_flx_x.F 80 GAD_PQM_FLX_X 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_pqm_flx_y.F 113 GAD_PQM_FLX_Y 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_pqm_flx_y.F 32 GAD_PQM_FLX_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_pqm_flx_y.F 6 GAD_PQM_FLX_Y 
      SUBROUTINE GAD_PQM_FLX_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_flx_y.F 80 GAD_PQM_FLX_Y 
     &             * recip_deepFacC(kk)
./pkg/generic_advdiff/gad_pqm_hat_x.F 37 GAD_PQM_HAT_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_pqm_hat_x.F 6 GAD_PQM_HAT_X 
      SUBROUTINE GAD_PQM_HAT_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_hat_y.F 37 GAD_PQM_HAT_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_pqm_hat_y.F 6 GAD_PQM_HAT_Y 
      SUBROUTINE GAD_PQM_HAT_Y(bi,bj,kk,ix,
./pkg/generic_advdiff/gad_pqm_p5e_x.F 21 GAD_PQM_P5E_X 
          integer bi,bj,kk,iy
./pkg/generic_advdiff/gad_pqm_p5e_x.F 6 GAD_PQM_P5E_X 
      SUBROUTINE GAD_PQM_P5E_X(bi,bj,kk,iy,
./pkg/generic_advdiff/gad_pqm_p5e_y.F 21 GAD_PQM_P5E_Y 
          integer bi,bj,kk,ix
./pkg/generic_advdiff/gad_pqm_p5e_y.F 6 GAD_PQM_P5E_Y 
      SUBROUTINE GAD_PQM_P5E_Y(bi,bj,kk,ix,
./pkg/gmredi/gmredi_calc_eigs.F 163 GMREDI_CALC_EIGS 
          DO kk=1,Nr
./pkg/gmredi/gmredi_calc_eigs.F 165 GMREDI_CALC_EIGS 
            array(k,kk) = zeroRL
./pkg/gmredi/gmredi_calc_eigs.F 52 GMREDI_CALC_EIGS 
      INTEGER i,j,k,kk,m
./pkg/gmredi/gmredi_k3d.F 52 GMREDI_K3D 
      INTEGER i,j,k,kk,m,kp1
./pkg/gmredi/gmredi_k3d.F 729 GMREDI_K3D 
                 kk=kLow_U(i,j)
./pkg/gmredi/gmredi_k3d.F 732 GMREDI_K3D 
                 kk=surfk(i,j)
./pkg/gmredi/gmredi_k3d.F 735 GMREDI_K3D 
               IF(kk.GT.0) THEN
./pkg/gmredi/gmredi_k3d.F 736 GMREDI_K3D 
                 IF(kk.EQ.Nr) THEN
./pkg/gmredi/gmredi_k3d.F 738 GMREDI_K3D 
     &                  *SlopeX(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F 741 GMREDI_K3D 
     &                  *( SlopeX(i,j,kk)-SlopeX(i,j,kk+1) )/hsurf
./pkg/gmredi/gmredi_k3d.F 748 GMREDI_K3D 
                 kk=kLow_V(i,j)
./pkg/gmredi/gmredi_k3d.F 751 GMREDI_K3D 
                 kk=surfk(i,j)
./pkg/gmredi/gmredi_k3d.F 754 GMREDI_K3D 
               IF(kk.GT.0) THEN
./pkg/gmredi/gmredi_k3d.F 755 GMREDI_K3D 
                 IF(kk.EQ.Nr) THEN
./pkg/gmredi/gmredi_k3d.F 757 GMREDI_K3D 
     &                  *SlopeY(i,j,kk)/hsurf
./pkg/gmredi/gmredi_k3d.F 760 GMREDI_K3D 
     &                  *( SlopeY(i,j,kk)-SlopeY(i,j,kk+1) )/hsurf
./pkg/layers/layers_fluxcalc.F 108 LAYERS_FLUXCALC 
      INTEGER i,j,k,kk,kg,kci,kp1,kloc
./pkg/layers/layers_fluxcalc.F 165 LAYERS_FLUXCALC 
      DO kk=1,NZZ
./pkg/layers/layers_fluxcalc.F 166 LAYERS_FLUXCALC 
       k = MapIndex(kk)
./pkg/layers/layers_fluxcalc.F 167 LAYERS_FLUXCALC 
       kci = CellIndex(kk)
./pkg/layers/layers_fluxcalc.F 180 LAYERS_FLUXCALC 
         TatU(i,j) = MapFact(kk) *
./pkg/layers/layers_fluxcalc.F 182 LAYERS_FLUXCALC 
     &    (1. _d 0 -MapFact(kk)) *
./pkg/layers/layers_fluxcalc.F 216 LAYERS_FLUXCALC 
         dzfac = dZZf(kk) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 260 LAYERS_FLUXCALC 
         TatV(i,j) = MapFact(kk) *
./pkg/layers/layers_fluxcalc.F 262 LAYERS_FLUXCALC 
     &    (1. _d 0 -MapFact(kk)) *
./pkg/layers/layers_fluxcalc.F 296 LAYERS_FLUXCALC 
         dzfac = dZZf(kk) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 454 LAYERS_DIAPYCNAL 
      INTEGER i,j,k,kk,kg,kci,kloc
./pkg/layers/layers_fluxcalc.F 522 LAYERS_DIAPYCNAL 
      DO kk=1,NZZ
./pkg/layers/layers_fluxcalc.F 523 LAYERS_DIAPYCNAL 
       k = MapIndex(kk)
./pkg/layers/layers_fluxcalc.F 524 LAYERS_DIAPYCNAL 
       kci = CellIndex(kk)
./pkg/layers/layers_fluxcalc.F 530 LAYERS_DIAPYCNAL 
         TatC(i,j) = MapFact(kk) * tracer(i,j,k,bi,bj) +
./pkg/layers/layers_fluxcalc.F 531 LAYERS_DIAPYCNAL 
     &    (1. _d 0 -MapFact(kk)) * tracer(i,j,kp1,bi,bj)
./pkg/layers/layers_fluxcalc.F 535 LAYERS_DIAPYCNAL 
      DO kk=1,Nr
./pkg/layers/layers_fluxcalc.F 536 LAYERS_DIAPYCNAL 
       k = kk
./pkg/layers/layers_fluxcalc.F 537 LAYERS_DIAPYCNAL 
       kci = kk
./pkg/layers/layers_fluxcalc.F 613 LAYERS_DIAPYCNAL 
         dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj)
./pkg/layers/layers_init_fixed.F 100 LAYERS_INIT_FIXED 
        ELSE IF ( (ZZc(kk) .GE. Zc(Nr)) .OR. (k .EQ. Nr) ) THEN
./pkg/layers/layers_init_fixed.F 101 LAYERS_INIT_FIXED 
          MapIndex(kk) = Nr - 1
./pkg/layers/layers_init_fixed.F 102 LAYERS_INIT_FIXED 
          MapFact(kk) = 0.0 _d 0
./pkg/layers/layers_init_fixed.F 104 LAYERS_INIT_FIXED 
        ELSE IF ( (ZZc(kk) .GE. Zc(k))
./pkg/layers/layers_init_fixed.F 105 LAYERS_INIT_FIXED 
     &   .AND. (ZZc(kk) .LT. Zc(Nr)) ) THEN
./pkg/layers/layers_init_fixed.F 107 LAYERS_INIT_FIXED 
          DO WHILE (ZZc(kk) .GE. Zc(k+1))
./pkg/layers/layers_init_fixed.F 111 LAYERS_INIT_FIXED 
          MapIndex(kk) = k
./pkg/layers/layers_init_fixed.F 112 LAYERS_INIT_FIXED 
          MapFact(kk) = 1.0 - (( ZZc(kk) - Zc(k) ) / drC(k+1))
./pkg/layers/layers_init_fixed.F 116 LAYERS_INIT_FIXED 
     &     'S/R LAYERS_INIT_FIXED: kk=', kk, ', k=', k,
./pkg/layers/layers_init_fixed.F 117 LAYERS_INIT_FIXED 
     &     ', ZZc(kk)=', ZZc(kk),' , Zc(k)=',Zc(k)
./pkg/layers/layers_init_fixed.F 123 LAYERS_INIT_FIXED 
        IF ( ZZc(kk).LT.Zf(MapIndex(kk)+1) ) THEN
./pkg/layers/layers_init_fixed.F 124 LAYERS_INIT_FIXED 
          CellIndex(kk) = MapIndex(kk)
./pkg/layers/layers_init_fixed.F 126 LAYERS_INIT_FIXED 
          CellIndex(kk) = MapIndex(kk)+1
./pkg/layers/layers_init_fixed.F 133 LAYERS_INIT_FIXED 
        DO kk=1,NZZ
./pkg/layers/layers_init_fixed.F 135 LAYERS_INIT_FIXED 
     &     '// ZZc=', ZZc(kk),
./pkg/layers/layers_init_fixed.F 136 LAYERS_INIT_FIXED 
     &     ', MapIndex(',kk,')=',MapIndex(kk),
./pkg/layers/layers_init_fixed.F 137 LAYERS_INIT_FIXED 
     &     ', MapFact(',kk,')=',MapFact(kk),
./pkg/layers/layers_init_fixed.F 138 LAYERS_INIT_FIXED 
     &     ', CellIndex(',kk,')=',CellIndex(kk)
./pkg/layers/layers_init_fixed.F 34 LAYERS_INIT_FIXED 
      INTEGER k,kk,kkinit,iLa
./pkg/layers/layers_init_fixed.F 68 LAYERS_INIT_FIXED 
        DO kk=kkinit,kkinit+FineGridFact-1
./pkg/layers/layers_init_fixed.F 69 LAYERS_INIT_FIXED 
          dZZf(kk) = dRf(k) / FineGridFact
./pkg/layers/layers_init_fixed.F 87 LAYERS_INIT_FIXED 
      DO kk=2,NZZ+1
./pkg/layers/layers_init_fixed.F 88 LAYERS_INIT_FIXED 
            ZZf(kk) = ZZf(kk-1) + dZZf(kk-1)
./pkg/layers/layers_init_fixed.F 89 LAYERS_INIT_FIXED 
            ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1))
./pkg/layers/layers_init_fixed.F 94 LAYERS_INIT_FIXED 
      DO kk=1,NZZ
./pkg/layers/layers_init_fixed.F 96 LAYERS_INIT_FIXED 
        IF ( ZZc(kk) .LT. Zc(1) ) THEN
./pkg/layers/layers_init_fixed.F 97 LAYERS_INIT_FIXED 
          MapIndex(kk) = 1
./pkg/layers/layers_init_fixed.F 98 LAYERS_INIT_FIXED 
          MapFact(kk) = 1.0 _d 0
./pkg/mnc/mnc_grid.F 133 MNC_GRID_INIT_ALL 
            kk = ILNBLNK( mnc_f_names(indf) )
./pkg/mnc/mnc_grid.F 136 MNC_GRID_INIT_ALL 
     &           mnc_f_names(indf)(1:kk), ''' with a different ',
./pkg/mnc/mnc_grid.F 147 MNC_GRID_INIT_ALL 
              kk = ILNBLNK( mnc_f_names(indf) )
./pkg/mnc/mnc_grid.F 150 MNC_GRID_INIT_ALL 
     &             mnc_f_names(indf)(1:kk), ''' with a different ',
./pkg/mnc/mnc_grid.F 187 MNC_GRID_INIT_ALL 
          kk = ILNBLNK(mnc_d_names(jj))
./pkg/mnc/mnc_grid.F 188 MNC_GRID_INIT_ALL 
          IF ((n .EQ. kk)
./pkg/mnc/mnc_grid.F 189 MNC_GRID_INIT_ALL 
     &         .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN
./pkg/mnc/mnc_grid.F 72 MNC_GRID_INIT_ALL 
      integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid
./pkg/profiles/profiles_init_fixed.F 303 PROFILES_INIT_FIXED 
      do kk=1,profno_div1000+1
./pkg/profiles/profiles_init_fixed.F 305 PROFILES_INIT_FIXED 
      if (min(ProfNo(num_file,bi,bj), 1000*kk).GE.
./pkg/profiles/profiles_init_fixed.F 306 PROFILES_INIT_FIXED 
     &  1+1000*(kk-1)) then
./pkg/profiles/profiles_init_fixed.F 310 PROFILES_INIT_FIXED 
      vec_start(2)=1+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 312 PROFILES_INIT_FIXED 
      vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 359 PROFILES_INIT_FIXED 
        vec_start2(2)=1+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 361 PROFILES_INIT_FIXED 
        vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 372 PROFILES_INIT_FIXED 
      do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 480 PROFILES_INIT_FIXED 
        prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 55 PROFILES_INIT_FIXED 
      integer vec_start(2), vec_count(2), profno_div1000, kk
./pkg/profiles/profiles_init_fixed.F 586 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,ProfNo_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_interp.F 127 PROFILES_INTERP 
      do kk=1,NLEVELMAX
./pkg/profiles/profiles_interp.F 128 PROFILES_INTERP 
         traj_cur_out(kk)=0
./pkg/profiles/profiles_interp.F 129 PROFILES_INTERP 
         prof_mask1D_cur(kk,bi,bj)=0
./pkg/profiles/profiles_interp.F 131 PROFILES_INTERP 
      do kk=1,ProfDepthNo(file_cur,bi,bj)
./pkg/profiles/profiles_interp.F 133 PROFILES_INTERP 
        if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then
./pkg/profiles/profiles_interp.F 134 PROFILES_INTERP 
          traj_cur_out(kk)=traj_cur(1)
./pkg/profiles/profiles_interp.F 135 PROFILES_INTERP 
          prof_mask1D_cur(kk,bi,bj)=mask_cur(1)
./pkg/profiles/profiles_interp.F 137 PROFILES_INTERP 
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp.F 138 PROFILES_INTERP 
          if ( prof_depth(file_cur,kk,bi,bj) .LT.
./pkg/profiles/profiles_interp.F 140 PROFILES_INTERP 
            traj_cur_out(kk)=traj_cur(nr)
./pkg/profiles/profiles_interp.F 141 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp.F 147 PROFILES_INTERP 
            if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND.
./pkg/profiles/profiles_interp.F 148 PROFILES_INTERP 
     &      (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then
./pkg/profiles/profiles_interp.F 160 PROFILES_INTERP 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp.F 162 PROFILES_INTERP 
            traj_cur_out(kk)=(1-tmp_coeff)*traj_cur(kcur)
./pkg/profiles/profiles_interp.F 164 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=1
./pkg/profiles/profiles_interp.F 171 PROFILES_INTERP 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp.F 173 PROFILES_INTERP 
            traj_cur_out(kk)=traj_cur(kcur)
./pkg/profiles/profiles_interp.F 174 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp.F 71 PROFILES_INTERP 
      integer q,k,kk,kcur,bi,bj
./pkg/profiles/profiles_readvector.F 105 PROFILES_READVECTOR 
      do kk=1,vec_count(2)
./pkg/profiles/profiles_readvector.F 106 PROFILES_READVECTOR 
      profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k)
./pkg/profiles/profiles_readvector.F 107 PROFILES_READVECTOR 
      profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1)
./pkg/profiles/profiles_readvector.F 110 PROFILES_READVECTOR 
      if(vec_tmp3((kk-1)*vec_count(1)+k).LE.-990. _d 0)
./pkg/profiles/profiles_readvector.F 111 PROFILES_READVECTOR 
     &    profiles_weight_buff(k,kk,kkk,bi,bj) = 0. _d 0
./pkg/profiles/profiles_readvector.F 29 PROFILES_READVECTOR 
      integer vec_loc_length, vNb, k, kk, kkk,bi,bj
./pkg/salt_plume/salt_plume_frac.F 115 SALT_PLUME_FRAC 
         DO kk=1,Npowerloc+1
./pkg/salt_plume/salt_plume_frac.F 174 SALT_PLUME_FRAC 
         DO kk=1,Npowerloc+1
./pkg/salt_plume/salt_plume_frac.F 75 SALT_PLUME_FRAC 
      INTEGER kk
./pkg/smooth/smooth_diff3d.F 37 SMOOTH_DIFF3D 
      integer ii, jj, kk
./pkg/smooth/smooth_filtervar2d.F 28 SMOOTH_FILTERVAR2D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar3d.F 111 SMOOTH_FILTERVAR3D 
      DO kk=1,dkLoc
./pkg/smooth/smooth_filtervar3d.F 125 SMOOTH_FILTERVAR3D 
        DO k=kk,Nr,dkLoc
./pkg/smooth/smooth_filtervar3d.F 28 SMOOTH_FILTERVAR3D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_init3d.F 35 SMOOTH_INIT3D 
      integer ii,jj,kk
./model/src/rotate_uv2en.F 103 ROTATE_UV2EN_RL 
            tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 104 ROTATE_UV2EN_RL 
            tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 115 ROTATE_UV2EN_RL 
              tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 116 ROTATE_UV2EN_RL 
              tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 164 ROTATE_UV2EN_RL 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 165 ROTATE_UV2EN_RL 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 176 ROTATE_UV2EN_RL 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 177 ROTATE_UV2EN_RL 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 242 ROTATE_UV2EN_RS 
      integer i,j,k,kk
./model/src/rotate_uv2en.F 262 ROTATE_UV2EN_RS 
          kk=nr
./model/src/rotate_uv2en.F 264 ROTATE_UV2EN_RS 
          kk=k
./model/src/rotate_uv2en.F 284 ROTATE_UV2EN_RS 
            tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 285 ROTATE_UV2EN_RS 
            tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 296 ROTATE_UV2EN_RS 
              tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 297 ROTATE_UV2EN_RS 
              tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 345 ROTATE_UV2EN_RS 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 346 ROTATE_UV2EN_RS 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 357 ROTATE_UV2EN_RS 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 358 ROTATE_UV2EN_RS 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 61 ROTATE_UV2EN_RL 
      integer i,j,k,kk
./model/src/rotate_uv2en.F 81 ROTATE_UV2EN_RL 
          kk=nr
./model/src/rotate_uv2en.F 83 ROTATE_UV2EN_RL 
          kk=k
./pkg/ctrl/ctrl_cost_gen.F 181 CTRL_COST_GEN2D 
            kk = 1
./pkg/ctrl/ctrl_cost_gen.F 185 CTRL_COST_GEN2D 
                if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then
./pkg/ctrl/ctrl_cost_gen.F 242 CTRL_COST_GEN2D 
        kk = 1
./pkg/ctrl/ctrl_cost_gen.F 249 CTRL_COST_GEN2D 
            if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then
./pkg/ctrl/ctrl_cost_gen.F 285 CTRL_COST_GEN2D 
            kk = 1
./pkg/ctrl/ctrl_cost_gen.F 289 CTRL_COST_GEN2D 
                if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then
./pkg/ctrl/ctrl_cost_gen.F 351 CTRL_COST_GEN2D 
            kk = 1
./pkg/ctrl/ctrl_cost_gen.F 355 CTRL_COST_GEN2D 
                if (xx_gen_mask(i,j,kk,bi,bj) .ne. 0. _d 0) then
./pkg/ctrl/ctrl_cost_gen.F 358 CTRL_COST_GEN2D 
     &                   *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 360 CTRL_COST_GEN2D 
     &                   *maskW(i+1,j,kk,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 362 CTRL_COST_GEN2D 
     &                   *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 364 CTRL_COST_GEN2D 
     &                   *maskS(i,j+1,kk,bi,bj)
./pkg/ctrl/ctrl_cost_gen.F 91 CTRL_COST_GEN2D 
      integer i,j,kk
./pkg/ctrl/ctrl_set_pack_xz.F 203 CTRL_SET_PACK_XZ 
                  kk=int((j-1)*nr+K-1)/sny+1
./pkg/ctrl/ctrl_set_pack_xz.F 208 CTRL_SET_PACK_XZ 
     &                    globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 213 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_xz.F 221 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_xz.F 232 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 57 CTRL_SET_PACK_XZ 
      integer ii,jj,kk
./pkg/ctrl/ctrl_set_pack_yz.F 207 CTRL_SET_PACK_YZ 
                  kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 212 CTRL_SET_PACK_YZ 
     &                    globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 217 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_yz.F 225 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_yz.F 236 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 57 CTRL_SET_PACK_YZ 
      integer ii,jj,kk
./pkg/ctrl/ctrl_set_unpack_xz.F 225 CTRL_SET_UNPACK_XZ 
               kk=int((j-1)*nr+k-1)/sny+1
./pkg/ctrl/ctrl_set_unpack_xz.F 233 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 240 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 241 CTRL_SET_UNPACK_XZ 
     &                      globfld3d(i,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_xz.F 249 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 253 CTRL_SET_UNPACK_XZ 
     &                   globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_xz.F 58 CTRL_SET_UNPACK_XZ 
      integer ii,jj,kk
./pkg/ctrl/ctrl_set_unpack_yz.F 230 CTRL_SET_UNPACK_YZ 
                    kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 233 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 240 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 241 CTRL_SET_UNPACK_YZ 
     &                      globfld3d(ii,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_yz.F 249 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 253 CTRL_SET_UNPACK_YZ 
     &                   globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_yz.F 58 CTRL_SET_UNPACK_YZ 
      integer ii,jj,kk
./pkg/ecco/cost_averagesfields.F 108 COST_AVERAGESFIELDS 
      integer kk
./pkg/ecco/cost_averagesfields.F 702 COST_AVERAGESFIELDS 
        kk=gencost_pointer3d(k)
./pkg/ecco/cost_averagesfields.F 705 COST_AVERAGESFIELDS 
     &     gencost_bar3d(1-Olx,1-Oly,1,1,1,kk),
./pkg/ecco/cost_averagesfields.F 706 COST_AVERAGESFIELDS 
     &     gencost_mod3d(1-Olx,1-Oly,1,1,1,kk),
./pkg/ecco/cost_averagesinit.F 57 COST_AVERAGESINIT 
      integer i,j,k,kk
./pkg/ecco/cost_averagesinit.F 90 COST_AVERAGESINIT 
          do  kk=1,NGENCOST3D
./pkg/ecco/cost_averagesinit.F 94 COST_AVERAGESINIT 
                gencost_bar3d(i,j,k,bi,bj,kk) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 95 COST_AVERAGESINIT 
                gencost_mod3d(i,j,k,bi,bj,kk) = 0. _d 0
./pkg/ecco/cost_gencost_customize.F 214 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 216 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 220 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 222 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 227 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 229 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 234 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 236 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 240 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 242 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 246 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 248 COST_GENCOST_CUSTOMIZE 
             gencost_mod3d(i,j,k2,bi,bj,kk) = trVol(i,j,k2,bi,bj)
./pkg/ecco/cost_gencost_customize.F 251 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 253 COST_GENCOST_CUSTOMIZE 
             gencost_mod3d(i,j,k2,bi,bj,kk) = trHeat(i,j,k2,bi,bj)
./pkg/ecco/cost_gencost_customize.F 256 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 258 COST_GENCOST_CUSTOMIZE 
             gencost_mod3d(i,j,k2,bi,bj,kk) = trSalt(i,j,k2,bi,bj)
./pkg/ecco/cost_gencost_customize.F 262 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 264 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 271 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 273 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 279 COST_GENCOST_CUSTOMIZE 
           kk=gencost_pointer3d(k)
./pkg/ecco/cost_gencost_customize.F 281 COST_GENCOST_CUSTOMIZE 
            gencost_mod3d(i,j,k2,bi,bj,kk) =
./pkg/ecco/cost_gencost_customize.F 62 COST_GENCOST_CUSTOMIZE 
      integer k2,kk
./pkg/ecco/ecco_cost_init_fixed.F 74 ECCO_COST_INIT_FIXED 
      integer i,j,kk,k2