| File |
Line number |
Procedure |
Code |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
102 |
MOM_VI_HDISSIP |
grdDiv=0.25*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
108 |
MOM_VI_HDISSIP |
IF ( (viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
110 |
MOM_VI_HDISSIP |
Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
114 |
MOM_VI_HDISSIP |
IF ( (viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
116 |
MOM_VI_HDISSIP |
Alth4=sqrt(viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv)*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
131 |
MOM_VI_HDISSIP |
grdDiv=abs((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
132 |
MOM_VI_HDISSIP |
grdDiv=max(grdDiv, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
134 |
MOM_VI_HDISSIP |
grdDiv=max(grdDiv, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
136 |
MOM_VI_HDISSIP |
grdDiv=max(grdDiv, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
140 |
MOM_VI_HDISSIP |
Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
141 |
MOM_VI_HDISSIP |
Alth4=(viscC4leith*grdVrt+(viscC4leithD*grdDiv))*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
197 |
MOM_VI_HDISSIP |
grdDiv=0.25*( |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
203 |
MOM_VI_HDISSIP |
IF ( (viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
205 |
MOM_VI_HDISSIP |
Alth2=sqrt(viscC2leith**2*grdVrt+viscC2leithD**2*grdDiv)*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
209 |
MOM_VI_HDISSIP |
IF ( (viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
211 |
MOM_VI_HDISSIP |
Alth4=sqrt(viscC4leith**2*grdVrt+viscC4leithD**2*grdDiv)*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
225 |
MOM_VI_HDISSIP |
grdDiv=abs((hDiv(i+1,j)-hDiv(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
226 |
MOM_VI_HDISSIP |
grdDiv=max(grdDiv, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
228 |
MOM_VI_HDISSIP |
grdDiv=max(grdDiv, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
230 |
MOM_VI_HDISSIP |
grdDiv=max(grdDiv, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
234 |
MOM_VI_HDISSIP |
Alth2=(viscC2leith*grdVrt+(viscC2leithD*grdDiv))*L3 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
235 |
MOM_VI_HDISSIP |
Alth4=(viscC4leith*grdVrt+(viscC4leithD*grdDiv))*L5 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
48 |
MOM_VI_HDISSIP |
_RL Alin,AlinMin,AlinMax,Alth2,Alth4,grdVrt,grdDiv |