Symbol Description Uses
kM1 =k-1 for k>1, =1 for k=1 15



File Line number Procedure Code
./pkg/generic_advdiff/gad_c2_adv_r.F 63 GAD_C2_ADV_R
         wT(i,j) = maskC(i,j,kM1,bi,bj)*
./pkg/generic_advdiff/gad_c2_adv_r.F 65 GAD_C2_ADV_R
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,kM1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 11 GAD_CALC_RHS
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./pkg/generic_advdiff/gad_calc_rhs.F 88 GAD_CALC_RHS
      INTEGER k,kUp,kDown,kM1
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 107 GAD_FLUXLIMIT_ADV_R
         wT(i,j) = maskC(i,j,kM1,bi,bj)*(
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 109 GAD_FLUXLIMIT_ADV_R
     &        (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 89 GAD_FLUXLIMIT_ADV_R
         Rj= (tracer(i,j,k)  -tracer(i,j,kM1))
./model/src/calc_gs.F 11 CALC_GS
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 163 CALC_GS
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 175 CALC_GS
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gs.F 87 CALC_GS
      INTEGER k,kUp,kDown,kM1
./model/src/calc_gt.F 11 CALC_GT
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 162 CALC_GT
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 174 CALC_GT
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./model/src/calc_gt.F 86 CALC_GT
      INTEGER k,kUp,kDown,kM1