Commit c79499b7 authored by Knut's avatar Knut

les: bugfixes les_smagorinsky_sym

parent 02727ad3
......@@ -78,7 +78,7 @@
#ifndef SLICE_MODEL
- dvdyC(i,j) &
#endif
)**2
)**2 &
+ (_HALF_*(shearU(i-1,j) + shearU(i,j)))**2
AmC(i,j) = SmagC2_2d(i,j)*DXC*DYC*sqrt(AmC(i,j))
end if
......@@ -124,7 +124,7 @@
#ifndef SLICE_MODEL
- dvdy &
#endif
)**2
)**2 &
+ shearX(i,j)**2
AmX(i,j) = SmagX2_2d(i,j)*DXX*DYX*sqrt(AmX(i,j))
end if
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment