| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
45 |
MOM_VI_U_CORIOLIS_C4 |
_RL vBarXm,vBarXp,oneSixth |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
65 |
MOM_VI_U_CORIOLIS_C4 |
vBarXp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
69 |
MOM_VI_U_CORIOLIS_C4 |
IF ( (vBarXm+vBarXp) .GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
72 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
81 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*Rjm + vBarXp*Rjp ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
84 |
MOM_VI_U_CORIOLIS_C4 |
& + vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) ) |