fix recent bug preventing compiling (#5)

TillRasmussen · Nov 15, 2021 · 58c20f7 · 58c20f7
1 parent bfdef30
commit 58c20f7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cicecore/cicedynB/dynamics/ice_dyn_shared.F90 b/cicecore/cicedynB/dynamics/ice_dyn_shared.F90
@@ -1420,7 +1420,7 @@ subroutine strain_rates_T (nx_block,   ny_block, &
 
       ! shearing strain rate  =  2*e_12
       shearT   = (dxT(i,j)**2)*(uvelN(i,j)/dxN(i,j) - uvelN(i,j-1)/dxN(i,j-1)) &
-               + (dyT(i,j)**2)*(vvelE(i,j)/dyN(i,j) - vvelE(i-1,j)/dyE(i-1,j))
+               + (dyT(i,j)**2)*(vvelE(i,j)/dyE(i,j) - vvelE(i-1,j)/dyE(i-1,j))
 
       ! Delta (in the denominator of zeta, eta)
       DeltaT = sqrt(divT**2 + e_factor*(tensionT**2 + shearT**2))