| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
121 |
MOM_VI_V_CORIOLIS |
uBarYp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
125 |
MOM_VI_V_CORIOLIS |
IF ( (uBarYm+uBarYp) .GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
128 |
MOM_VI_V_CORIOLIS |
vort3v=uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
132 |
MOM_VI_V_CORIOLIS |
& +uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
50 |
MOM_VI_V_CORIOLIS |
_RL uBarXY, uBarYm, uBarYp |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
175 |
MOM_VI_V_CORIOLIS_C4 |
uBarYp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
179 |
MOM_VI_V_CORIOLIS_C4 |
IF ( (uBarYm+uBarYp) .GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
182 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=uBarYp*vort3r(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
197 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( uBarYm*Rjm + uBarYp*Rjp ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
199 |
MOM_VI_V_CORIOLIS_C4 |
vort3v=0.5*( uBarYm*vort3r( i ,j) + uBarYp*vort3r(i+1,j) ) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
54 |
MOM_VI_V_CORIOLIS_C4 |
_RL uBarYm,uBarYp |