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 153 GAD_ADVECTION 
      _RL kp1Msk
./pkg/generic_advdiff/gad_advection.F 906 GAD_ADVECTION 
        kp1Msk=1.
./pkg/generic_advdiff/gad_advection.F 907 GAD_ADVECTION 
        IF (k.EQ.Nr) kp1Msk=0.
./pkg/generic_advdiff/gad_advection.F 927 GAD_ADVECTION 
           rTransKp(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 938 GAD_ADVECTION 
           rTransKp(i,j) = kp1Msk*rTrans(i,j)