| File |
Line number |
Procedure |
Code |
|
./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 |
123 |
MOM_VI_HDISSIP |
grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
124 |
MOM_VI_HDISSIP |
grdVrt=max(grdVrt, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
126 |
MOM_VI_HDISSIP |
grdVrt=max(grdVrt, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
128 |
MOM_VI_HDISSIP |
grdVrt=max(grdVrt, |
|
./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 |
190 |
MOM_VI_HDISSIP |
grdVrt=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 |
217 |
MOM_VI_HDISSIP |
grdVrt=abs((vort3(i+1,j)-vort3(i,j))*recip_DXG(i,j,bi,bj)) |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
218 |
MOM_VI_HDISSIP |
grdVrt=max(grdVrt, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
220 |
MOM_VI_HDISSIP |
grdVrt=max(grdVrt, |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
222 |
MOM_VI_HDISSIP |
grdVrt=max(grdVrt, |
|
./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 |
|
./pkg/mom_vecinv/mom_vi_hdissip.F |
94 |
MOM_VI_HDISSIP |
grdVrt=0.25*( |