diff --git a/src/geometry_mod.F90 b/src/geometry_mod.F90 index b7159058df8d7b61d6db2e14a9e5dbbea5cd6d17..02a9edb5562bc4d220bb0f61fae9dab2bef497a6 100644 --- a/src/geometry_mod.F90 +++ b/src/geometry_mod.F90 @@ -60,7 +60,7 @@ contains ky = kyarray(iky) DO ikx= ikxs, ikxe kx = kxarray(ikx) - Ckxky(ikx,iky,iz) = SIN(z)*kx + (COS(z)+shear*z*SIN(z))*ky + Ckxky(ikx,iky,iz) = -SIN(z)*kx -(COS(z)+shear*z*SIN(z))*ky ENDDO ENDDO