Symbol Description Uses
wMsk 5


File Line number Procedure Code
./pkg/mom_fluxform/mom_u_coriolis_nh.F 44 MOM_U_CORIOLIS_NH 
      _RL wMsk
./pkg/mom_fluxform/mom_u_coriolis_nh.F 49 MOM_U_CORIOLIS_NH 
      wMsk=1.
./pkg/mom_fluxform/mom_u_coriolis_nh.F 50 MOM_U_CORIOLIS_NH 
      IF (k.EQ.Nr) wMsk=0.
./pkg/mom_fluxform/mom_u_coriolis_nh.F 57 MOM_U_CORIOLIS_NH 
     &         *0.5*( wFld( i ,j,k,bi,bj)+wFld( i ,j,kp1,bi,bj)*wMsk )
./pkg/mom_fluxform/mom_u_coriolis_nh.F 59 MOM_U_CORIOLIS_NH 
     &         *0.5*( wFld(i-1,j,k,bi,bj)+wFld(i-1,j,kp1,bi,bj)*wMsk ) )