Symbol Description Uses
uBarYm 6


File Line number Procedure Code
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 45 MOM_VI_V_CORIOLIS_C4 
      _RL uBarYm,uBarYp,oneSixth
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 62 MOM_VI_V_CORIOLIS_C4 
         uBarYm=0.5*(
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 69 MOM_VI_V_CORIOLIS_C4 
          IF ( (uBarYm+uBarYp) .GT.0.) THEN
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 70 MOM_VI_V_CORIOLIS_C4 
           vort3v=uBarYm*r_hFacZ( i ,j)*omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 81 MOM_VI_V_CORIOLIS_C4 
          vort3v=0.5*( uBarYm*Rjm + uBarYp*Rjp )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 83 MOM_VI_V_CORIOLIS_C4 
          vort3v=0.5*( uBarYm*r_hFacZ( i ,j)*omega3( i ,j)