| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
32 |
MOM_VI_U_VERTSHEAR |
_RL mask_Kp1,mask_Km1,wBarXm,wBarXp |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
53 |
MOM_VI_U_VERTSHEAR |
mask_Km1=1. |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
54 |
MOM_VI_U_VERTSHEAR |
IF (K.EQ.1) mask_Km1=0. |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
71 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
85 |
MOM_VI_U_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
96 |
MOM_VI_U_VERTSHEAR |
uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
32 |
MOM_VI_V_VERTSHEAR |
_RL mask_Kp1,mask_Km1,wBarYm,wBarYp |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
53 |
MOM_VI_V_VERTSHEAR |
mask_Km1=1. |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
54 |
MOM_VI_V_VERTSHEAR |
IF (K.EQ.1) mask_Km1=0. |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
71 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
85 |
MOM_VI_V_VERTSHEAR |
& )*mask_Km1*deepFac2F(K)*rhoFacF(K) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
96 |
MOM_VI_V_VERTSHEAR |
vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign |