Symbol Description Uses
kArg = 0 -> do the k-loop here and treat all levels 40



File Line number Procedure Code
./pkg/my82/my82_calc_diff.F 37 MY82_CALC_DIFF
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/my82/my82_calc_diff.F 48 MY82_CALC_DIFF
      IF ( kArg .EQ. 0 ) THEN
./pkg/my82/my82_calc_diff.F 65 MY82_CALC_DIFF
         k = MIN(kArg,kSize)
./pkg/my82/my82_calc_diff.F 69 MY82_CALC_DIFF
     &                  +( MYdiffKr(i,j,kArg,bi,bj)
./pkg/my82/my82_calc_diff.F 71 MY82_CALC_DIFF
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/my82/my82_calc_diff.F 73 MY82_CALC_DIFF
     &                     - diffKrNrT(kArg) )
./pkg/my82/my82_calc_diff.F 7 MY82_CALC_DIFF
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_diff_t.F 37 KPP_CALC_DIFF_T
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/kpp/kpp_calc_diff_t.F 48 KPP_CALC_DIFF_T
      IF ( kArg .EQ. 0 ) THEN
./pkg/kpp/kpp_calc_diff_t.F 65 KPP_CALC_DIFF_T
         k = MIN(kArg,kSize)
./pkg/kpp/kpp_calc_diff_t.F 69 KPP_CALC_DIFF_T
     &                 + ( KPPdiffKzT(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F 71 KPP_CALC_DIFF_T
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/kpp/kpp_calc_diff_t.F 73 KPP_CALC_DIFF_T
     &                     - diffKrNrT(kArg) )
./pkg/kpp/kpp_calc_diff_t.F 7 KPP_CALC_DIFF_T
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_diff_s.F 37 KPP_CALC_DIFF_S
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/kpp/kpp_calc_diff_s.F 48 KPP_CALC_DIFF_S
      IF ( kArg .EQ. 0 ) THEN
./pkg/kpp/kpp_calc_diff_s.F 65 KPP_CALC_DIFF_S
         k = MIN(kArg,kSize)
./pkg/kpp/kpp_calc_diff_s.F 69 KPP_CALC_DIFF_S
     &                 + ( KPPdiffKzT(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F 71 KPP_CALC_DIFF_S
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/kpp/kpp_calc_diff_s.F 73 KPP_CALC_DIFF_S
     &                     - diffKrNrS(kArg) )
./pkg/kpp/kpp_calc_diff_s.F 7 KPP_CALC_DIFF_S
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/ggl90/ggl90_calc_diff.F 37 GGL90_CALC_DIFF
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/ggl90/ggl90_calc_diff.F 48 GGL90_CALC_DIFF
      IF ( kArg .EQ. 0 ) THEN
./pkg/ggl90/ggl90_calc_diff.F 65 GGL90_CALC_DIFF
         k = MIN(kArg,kSize)
./pkg/ggl90/ggl90_calc_diff.F 69 GGL90_CALC_DIFF
     &                  +( GGL90diffKr(i,j,kArg,bi,bj)
./pkg/ggl90/ggl90_calc_diff.F 71 GGL90_CALC_DIFF
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/ggl90/ggl90_calc_diff.F 73 GGL90_CALC_DIFF
     &                     - diffKrNrT(kArg) )
./pkg/ggl90/ggl90_calc_diff.F 7 GGL90_CALC_DIFF
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/gmredi/gmredi_calc_diff.F 36 GMREDI_CALC_DIFF
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/gmredi/gmredi_calc_diff.F 47 GMREDI_CALC_DIFF
      IF ( kArg .EQ. 0 ) THEN
./pkg/gmredi/gmredi_calc_diff.F 58 GMREDI_CALC_DIFF
         k = MIN(kArg,kSize)
./pkg/gmredi/gmredi_calc_diff.F 61 GMREDI_CALC_DIFF
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 7 GMREDI_CALC_DIFF
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/pp81/pp81_calc_diff.F 37 PP81_CALC_DIFF
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/pp81/pp81_calc_diff.F 48 PP81_CALC_DIFF
      IF ( kArg .EQ. 0 ) THEN
./pkg/pp81/pp81_calc_diff.F 65 PP81_CALC_DIFF
         k = MIN(kArg,kSize)
./pkg/pp81/pp81_calc_diff.F 69 PP81_CALC_DIFF
     &                  +( PPdiffKr(i,j,kArg,bi,bj)
./pkg/pp81/pp81_calc_diff.F 71 PP81_CALC_DIFF
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/pp81/pp81_calc_diff.F 73 PP81_CALC_DIFF
     &                     - diffKrNrT(kArg) )
./pkg/pp81/pp81_calc_diff.F 7 PP81_CALC_DIFF
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,