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


File Line number Procedure Code
./model/src/thermodynamics.F 166 THERMODYNAMICS 
      _RL kp1Msk
./model/src/thermodynamics.F 371 THERMODYNAMICS 
          kp1Msk=1.
./model/src/thermodynamics.F 372 THERMODYNAMICS 
          IF (k.EQ.Nr) kp1Msk=0.
./model/src/thermodynamics.F 375 THERMODYNAMICS 
             rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 137 GAD_ADVECTION 
      _RL kp1Msk
./pkg/generic_advdiff/gad_advection.F 641 GAD_ADVECTION 
        kp1Msk=1.
./pkg/generic_advdiff/gad_advection.F 642 GAD_ADVECTION 
        if (k.EQ.Nr) kp1Msk=0.
./pkg/generic_advdiff/gad_advection.F 657 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 668 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)