Symbol Description Uses
mskP1 6


File Line number Procedure Code
./model/src/calc_gw.F 120 CALC_GW 
      _RL  mskM1, mskP1
./model/src/calc_gw.F 186 CALC_GW 
        mskP1 = 1.
./model/src/calc_gw.F 188 CALC_GW 
        IF ( k.EQ.Nr ) mskP1 = 0.
./model/src/calc_gw.F 414 CALC_GW 
     &          - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1
./model/src/calc_gw.F 533 CALC_GW 
     &               +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 )
./model/src/calc_gw.F 538 CALC_GW 
     &                                   *mskP1