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 725 GAD_ADVECTION 
        kp1Msk=1.
./pkg/generic_advdiff/gad_advection.F 726 GAD_ADVECTION 
        if (k.EQ.Nr) kp1Msk=0.
./pkg/generic_advdiff/gad_advection.F 753 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 770 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)