| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
100 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
35 |
MOM_VI_CORIOLIS |
_RL vBarXY,uBarXY |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
76 |
MOM_VI_CORIOLIS |
uBarXY=( |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
85 |
MOM_VI_CORIOLIS |
& )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_coriolis.F |
92 |
MOM_VI_CORIOLIS |
uBarXY=0.25*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
100 |
MOM_VI_V_CORIOLIS |
IF (uBarXY.GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
108 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
50 |
MOM_VI_V_CORIOLIS |
_RL uBarXY, uBarYm, uBarYp |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
67 |
MOM_VI_V_CORIOLIS |
uBarXY=0.25*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
74 |
MOM_VI_V_CORIOLIS |
IF (uBarXY.GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
83 |
MOM_VI_V_CORIOLIS |
vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis.F |
93 |
MOM_VI_V_CORIOLIS |
uBarXY= 0.5*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
131 |
MOM_VI_V_CORIOLIS_C4 |
uBarXY=0.25*( |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
138 |
MOM_VI_V_CORIOLIS_C4 |
IF (uBarXY.GT.0.) THEN |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
158 |
MOM_VI_V_CORIOLIS_C4 |
vCoriolisTerm(i,j) = -vort3v*uBarXY*recip_dyC(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F |
53 |
MOM_VI_V_CORIOLIS_C4 |
_RL uBarXY,vort3v,Rjp,Rjm,Rj |