Symbol Description Uses
wSurfP2d surface vertical velocity after 2-D solver 8


File Line number Procedure Code
./model/src/pre_cg3d.F 108 PRE_CG3D 
              wSurfP2d(i,j) = wSurfP2d(i,j)
./model/src/pre_cg3d.F 129 PRE_CG3D 
     &                      + tmpFac*( wSurfP2d(i,j)
./model/src/pre_cg3d.F 135 PRE_CG3D 
              dPhiNH(i,j,bi,bj) = wSurfP2d(i,j)
./model/src/pre_cg3d.F 145 PRE_CG3D 
     &                      + tmpFac*wSurfP2d(i,j)
./model/src/pre_cg3d.F 65 PRE_CG3D 
      _RL     wSurfP2d(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./model/src/pre_cg3d.F 79 PRE_CG3D 
              wSurfP2d(i,j) = 0. _d 0
./model/src/pre_cg3d.F 85 PRE_CG3D 
               wSurfP2d(i,j) = ( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) )