Skip to content
Snippets Groups Projects
Commit a58f14c5 authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann
Browse files

Now working for 1D linear analysis

parent ab81f3e0
No related merge requests found
...@@ -63,7 +63,15 @@ contains ...@@ -63,7 +63,15 @@ contains
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
ENDDO ENDDO
IF (Nky .EQ. 1) THEN ! linear 1D run we switch kx and ky for parallel opt
DO iky = ikys, ikye
ky = kyarray(iky)
DO ikx= ikxs, ikxe
kx = kxarray(ikx)
Ckxky(ikx,iky,iz) = -SIN(z)*ky -(COS(z)+shear*z*SIN(z))*kx
ENDDO
ENDDO
ENDIF
ENDDO zloop ENDDO zloop
END SUBROUTINE eval_s_alpha_geometry END SUBROUTINE eval_s_alpha_geometry
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment