Symbol Description Uses
kp1Msk flag (0,1) for over-riding mask for W levels 5


File Line number Procedure Code
./pkg/generic_advdiff/gad_advection.F 140 GAD_ADVECTION 
      _RL kp1Msk
./pkg/generic_advdiff/gad_advection.F 713 GAD_ADVECTION 
        kp1Msk=1.
./pkg/generic_advdiff/gad_advection.F 714 GAD_ADVECTION 
        if (k.EQ.Nr) kp1Msk=0.
./pkg/generic_advdiff/gad_advection.F 741 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 758 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)