| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
106 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
111 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./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 |
70 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=vBarXm*r_hFacZ(i, j )*omega3(i, j ) |
|
./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 |
83 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=0.5*( vBarXm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
97 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F |
99 |
MOM_VI_U_CORIOLIS_C4 |
vort3u=omega3(i,j+1)*r_hFacZ(i,j+1) |
|
./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 |
51 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(I,J)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
53 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(I,J+1)*r_hFacZ(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
56 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
68 |
MOM_VI_U_CORIOLIS |
vort3u=Zm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
70 |
MOM_VI_U_CORIOLIS |
vort3u=Zp*r_hFacZ(i,j+1)*omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
75 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*( Zm + Zp ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
88 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(i,j) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
90 |
MOM_VI_U_CORIOLIS |
vort3u=omega3(i,j+1) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
93 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*(omega3(i,j)+omega3(i,j+1)) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
35 |
MOM_VI_CORIOLIS |
_RL vBarXY,uBarXY,vort3u,vort3v |