| 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 |
60 |
MOM_VI_V_CORIOLIS |
Zm=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 |
68 |
MOM_VI_V_CORIOLIS |
vort3v=Zm*r_hFacZ( i ,j)*omega3( i ,j) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
73 |
MOM_VI_V_CORIOLIS |
Zm=Zm*r_hFacZ( i ,j)*omega3( i ,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 |
60 |
MOM_VI_U_CORIOLIS |
Zm=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 |
68 |
MOM_VI_U_CORIOLIS |
vort3u=Zm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
73 |
MOM_VI_U_CORIOLIS |
Zm=Zm*r_hFacZ(i, j )*omega3(i, j ) |
|
./pkg/mom_vecinv/mom_vi_u_coriolis.F |
75 |
MOM_VI_U_CORIOLIS |
vort3u=0.5*( Zm + Zp ) |