File |
Line number |
Procedure |
Code |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
124 |
MOM_VI_U_VERTSHEAR |
& ( (wBarXp*uZp+wBarXm*uZm) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
125 |
MOM_VI_U_VERTSHEAR |
& +(ABS(wBarXp)*uZp-ABS(wBarXm)*uZm) |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
130 |
MOM_VI_U_VERTSHEAR |
uShearTerm(I,J)=-0.5*(wBarXp*uZp+wBarXm*uZm) |
./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 |
75 |
MOM_VI_U_VERTSHEAR |
wBarXp=0.5*( |
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
88 |
MOM_VI_U_VERTSHEAR |
wBarXp=0.5*( |