| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
35 |
MOM_VI_V_CORIOLIS |
_RL uBarXY,vort3v,Zp,Zm |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
63 |
MOM_VI_V_CORIOLIS |
Zp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
67 |
MOM_VI_V_CORIOLIS |
IF ( (Zm+Zp) .GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
70 |
MOM_VI_V_CORIOLIS |
vort3v=Zp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
74 |
MOM_VI_V_CORIOLIS |
Zp=Zp*r_hFacZ(i+1,j)*omega3(i+1,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
75 |
MOM_VI_V_CORIOLIS |
vort3v=0.5*( Zm + Zp ) |
|
./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 |
63 |
MOM_VI_U_CORIOLIS |
Zp=0.5*( |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
67 |
MOM_VI_U_CORIOLIS |
IF ( (Zm+Zp) .GT.0.) THEN |
|
./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 |
74 |
MOM_VI_U_CORIOLIS |
Zp=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 ) |