| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
121 |
MOM_VI_U_CORIOLIS |
vBarXp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
125 |
MOM_VI_U_CORIOLIS |
IF ( (vBarXm+vBarXp) .GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
128 |
MOM_VI_U_CORIOLIS |
vort3u=vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
132 |
MOM_VI_U_CORIOLIS |
& +vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
50 |
MOM_VI_U_CORIOLIS |
_RL vBarXY, vBarXm, vBarXp |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
175 |
MOM_VI_U_CORIOLIS_C4 |
vBarXp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
179 |
MOM_VI_U_CORIOLIS_C4 |
IF ( (vBarXm+vBarXp) .GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
182 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXp*vort3r(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
197 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*Rjm + vBarXp*Rjp ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
199 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*vort3r(i, j ) + vBarXp*vort3r(i,j+1) ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
54 |
MOM_VI_U_CORIOLIS_C4 |
_RL vBarXm,vBarXp |