| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
119 |
MOM_VI_U_CORIOLIS_C4 |
& vort3u*vBarXY*recip_dxC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
44 |
MOM_VI_U_CORIOLIS_C4 |
_RL vBarXY,vort3u,Rjp,Rjm |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
61 |
MOM_VI_U_CORIOLIS_C4 |
vBarXY=1. |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
90 |
MOM_VI_U_CORIOLIS_C4 |
vBarXY=0.25*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
96 |
MOM_VI_U_CORIOLIS_C4 |
IF (vBarXY.GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
103 |
MOM_VI_U_CORIOLIS |
& +vort3u*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
35 |
MOM_VI_U_CORIOLIS |
_RL vBarXY,vort3u,Zp,Zm |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
44 |
MOM_VI_U_CORIOLIS |
vBarXY=0.25*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
50 |
MOM_VI_U_CORIOLIS |
IF (vBarXY.GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
77 |
MOM_VI_U_CORIOLIS |
vBarXY=1. |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
80 |
MOM_VI_U_CORIOLIS |
vBarXY=0.5*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
87 |
MOM_VI_U_CORIOLIS |
IF (vBarXY.GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
98 |
MOM_VI_U_CORIOLIS |
& vBarXY = vBarXY * 4. _d 0 * hFacW(i,j,k,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
35 |
MOM_VI_CORIOLIS |
_RL vBarXY,uBarXY,vort3u,vort3v |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
43 |
MOM_VI_CORIOLIS |
vBarXY=( |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
52 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
59 |
MOM_VI_CORIOLIS |
vBarXY=0.25*( |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
66 |
MOM_VI_CORIOLIS |
& )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj) |