Symbol Description Uses
kArg if >0: apply AB on tendency at level k=kArg if =0: apply AB on state variable and process all levels 88


File Line number Procedure Code
./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 61 GGL90_CALC_DIFF 
         k = MIN(kArg,kSize)
./pkg/ggl90/ggl90_calc_diff.F 65 GGL90_CALC_DIFF 
     &                  +( GGL90diffKr(i,j,kArg,bi,bj)
./pkg/ggl90/ggl90_calc_diff.F 66 GGL90_CALC_DIFF 
     &                     - diffKrNrS(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 40 GMREDI_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/gmredi/gmredi_calc_diff.F 52 GMREDI_CALC_DIFF 
      IF ( kArg .EQ. 0 ) THEN
./pkg/gmredi/gmredi_calc_diff.F 73 GMREDI_CALC_DIFF 
         k = MIN(kArg,kSize)
./pkg/gmredi/gmredi_calc_diff.F 77 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/gmredi/gmredi_calc_diff.F 81 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 83 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./model/src/adams_bashforth2.F 10 ADAMS_BASHFORTH2 
     I                     bi, bj, kArg, kSize,
./model/src/adams_bashforth2.F 47 ADAMS_BASHFORTH2 
      INTEGER bi, bj, kArg, kSize
./model/src/adams_bashforth2.F 72 ADAMS_BASHFORTH2 
      IF ( kArg.EQ.0 ) THEN
./model/src/adams_bashforth2.F 84 ADAMS_BASHFORTH2 
        k = kArg
./model/src/adams_bashforth3.F 104 ADAMS_BASHFORTH3 
      IF ( kArg.EQ.0 ) THEN
./model/src/adams_bashforth3.F 10 ADAMS_BASHFORTH3 
     I                     bi, bj, kArg, kSize,
./model/src/adams_bashforth3.F 118 ADAMS_BASHFORTH3 
        k = kArg
./model/src/adams_bashforth3.F 65 ADAMS_BASHFORTH3 
      INTEGER bi, bj, kArg, kSize
./pkg/kl10/kl10_calc_diff.F 39 KL10_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/kl10/kl10_calc_diff.F 50 KL10_CALC_DIFF 
      IF ( kArg .EQ. 0 ) THEN
./pkg/kl10/kl10_calc_diff.F 67 KL10_CALC_DIFF 
         k = MIN(kArg,kSize)
./pkg/kl10/kl10_calc_diff.F 71 KL10_CALC_DIFF 
     &                  +( KLdiffKr(i,j,kArg,bi,bj)
./pkg/kl10/kl10_calc_diff.F 73 KL10_CALC_DIFF 
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/kl10/kl10_calc_diff.F 75 KL10_CALC_DIFF 
     &                     - diffKrNrS(kArg) )
./pkg/kl10/kl10_calc_diff.F 7 KL10_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_diff_ptr.F 43 KPP_CALC_DIFF_PTR 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/kpp/kpp_calc_diff_ptr.F 55 KPP_CALC_DIFF_PTR 
      IF ( kArg .EQ. 0 ) THEN
./pkg/kpp/kpp_calc_diff_ptr.F 74 KPP_CALC_DIFF_PTR 
       k = MIN(kArg,kSize)
./pkg/kpp/kpp_calc_diff_ptr.F 78 KPP_CALC_DIFF_PTR 
         KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 7 KPP_CALC_DIFF_PTR 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_diff_ptr.F 80 KPP_CALC_DIFF_PTR 
         KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 84 KPP_CALC_DIFF_PTR 
     &          - diffKrNrS(kArg) + PTRACERS_diffKrNr(kArg,iTr)
./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 59 KPP_CALC_DIFF_S 
       k = MIN(kArg,kSize)
./pkg/kpp/kpp_calc_diff_s.F 62 KPP_CALC_DIFF_S 
         KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F 7 KPP_CALC_DIFF_S 
     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 59 KPP_CALC_DIFF_T 
       k = MIN(kArg,kSize)
./pkg/kpp/kpp_calc_diff_t.F 62 KPP_CALC_DIFF_T 
         KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F 7 KPP_CALC_DIFF_T 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./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 
     &                     - diffKrNrS(kArg) )
./pkg/my82/my82_calc_diff.F 7 MY82_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/obcs/obcs_apply_ptracer.F 10 OBCS_APPLY_PTRACER 
     I                               bi, bj, kArg, iTracer,
./pkg/obcs/obcs_apply_ptracer.F 42 OBCS_APPLY_PTRACER 
      INTEGER kArg
./pkg/obcs/obcs_apply_ptracer.F 57 OBCS_APPLY_PTRACER 
      IF ( kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_ptracer.F 62 OBCS_APPLY_PTRACER 
        kLo = kArg
./pkg/obcs/obcs_apply_ptracer.F 63 OBCS_APPLY_PTRACER 
        kHi = kArg
./pkg/obcs/obcs_apply_ts.F 10 OBCS_APPLY_TS 
      SUBROUTINE OBCS_APPLY_TS( bi, bj, kArg,
./pkg/obcs/obcs_apply_ts.F 40 OBCS_APPLY_TS 
      INTEGER kArg
./pkg/obcs/obcs_apply_ts.F 64 OBCS_APPLY_TS 
      IF ( kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_ts.F 68 OBCS_APPLY_TS 
        kLo = kArg
./pkg/obcs/obcs_apply_ts.F 69 OBCS_APPLY_TS 
        kHi = kArg
./pkg/obcs/obcs_apply_uv.F 39 OBCS_APPLY_UV 
      INTEGER kArg
./pkg/obcs/obcs_apply_uv.F 70 OBCS_APPLY_UV 
      IF ( kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_uv.F 74 OBCS_APPLY_UV 
        kLo = kArg
./pkg/obcs/obcs_apply_uv.F 75 OBCS_APPLY_UV 
        kHi = kArg
./pkg/obcs/obcs_apply_uv.F 9 OBCS_APPLY_UV 
      SUBROUTINE OBCS_APPLY_UV( bi, bj, kArg,
./pkg/obcs/obcs_apply_w.F 108 OBCS_APPLY_W 
          IF ( Iobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 127 OBCS_APPLY_W 
          IF ( Iobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 39 OBCS_APPLY_W 
      INTEGER kArg
./pkg/obcs/obcs_apply_w.F 55 OBCS_APPLY_W 
        IF ( kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 59 OBCS_APPLY_W 
          k   = kArg
./pkg/obcs/obcs_apply_w.F 69 OBCS_APPLY_W 
          IF ( Jobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 88 OBCS_APPLY_W 
          IF ( Jobc.NE.OB_indexNone .AND. kArg.EQ.0 ) THEN
./pkg/obcs/obcs_apply_w.F 9 OBCS_APPLY_W 
      SUBROUTINE OBCS_APPLY_W( bi, bj, kArg,
./pkg/obcs/obcs_save_uv_n.F 43 OBCS_SAVE_UV_N 
      INTEGER kArg
./pkg/obcs/obcs_save_uv_n.F 58 OBCS_SAVE_UV_N 
      IF ( kArg.EQ.0 ) THEN
./pkg/obcs/obcs_save_uv_n.F 62 OBCS_SAVE_UV_N 
        kLo = kArg
./pkg/obcs/obcs_save_uv_n.F 63 OBCS_SAVE_UV_N 
        kHi = kArg
./pkg/obcs/obcs_save_uv_n.F 9 OBCS_SAVE_UV_N 
      SUBROUTINE OBCS_SAVE_UV_N(  bi, bj, iMin, iMax, jMin, jMax, kArg,
./pkg/pp81/pp81_calc_diff.F 39 PP81_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/pp81/pp81_calc_diff.F 50 PP81_CALC_DIFF 
      IF ( kArg .EQ. 0 ) THEN
./pkg/pp81/pp81_calc_diff.F 67 PP81_CALC_DIFF 
         k = MIN(kArg,kSize)
./pkg/pp81/pp81_calc_diff.F 71 PP81_CALC_DIFF 
     &                  +( PPdiffKr(i,j,kArg,bi,bj)
./pkg/pp81/pp81_calc_diff.F 73 PP81_CALC_DIFF 
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/pp81/pp81_calc_diff.F 75 PP81_CALC_DIFF 
     &                     - diffKrNrS(kArg) )
./pkg/pp81/pp81_calc_diff.F 7 PP81_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,