| 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) |