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 149 GAD_ADVECTION 
      _RL kp1Msk
./pkg/generic_advdiff/gad_advection.F 811 GAD_ADVECTION 
        kp1Msk=1.
./pkg/generic_advdiff/gad_advection.F 812 GAD_ADVECTION 
        IF (k.EQ.Nr) kp1Msk=0.
./pkg/generic_advdiff/gad_advection.F 832 GAD_ADVECTION 
           rTransKp(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 843 GAD_ADVECTION 
           rTransKp(i,j) = kp1Msk*rTrans(i,j)