Symbol Description Uses
maskKp1 7



File Line number Procedure Code
./model/src/solve_for_pressure.F 400 SOLVE_FOR_PRESSURE
         maskKp1 = 1.
./model/src/solve_for_pressure.F 401 SOLVE_FOR_PRESSURE
         IF (k.GE.Nr) maskKp1 = 0.
./model/src/solve_for_pressure.F 410 SOLVE_FOR_PRESSURE
     &         -wVel(i,j,kp1,bi,bj)*maskKp1
./model/src/solve_for_pressure.F 416 SOLVE_FOR_PRESSURE
          maskKp1 = 1.
./model/src/solve_for_pressure.F 417 SOLVE_FOR_PRESSURE
          IF (k.GE.Nr) maskKp1 = 0.
./model/src/solve_for_pressure.F 426 SOLVE_FOR_PRESSURE
     &         -wVel(i,j,kp1,bi,bj)*maskKp1
./model/src/solve_for_pressure.F 68 SOLVE_FOR_PRESSURE
      _RL     maskKp1