| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
100 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
151 |
MOM_VI_HDISSIP |
Zij=Zij1*viscA4_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
158 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
164 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
173 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
178 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
212 |
MOM_VI_HDISSIP |
Zij=Zij1 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
219 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*viscA4Z*( Zip-Zij ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
235 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
240 |
MOM_VI_HDISSIP |
& cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
43 |
MOM_VI_HDISSIP |
_RL Zip, Zij, Zpj, Dim, Dij, Dmj, uD2, vD2, uD4, vD4 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
58 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j )*viscAh_Z(i,j) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
64 |
MOM_VI_HDISSIP |
& -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
69 |
MOM_VI_HDISSIP |
& _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
89 |
MOM_VI_HDISSIP |
Zij=hFacZ( i , j )*vort3( i , j ) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
95 |
MOM_VI_HDISSIP |
& ( Zip-Zij )*recip_DYG(i,j,bi,bj) |