Update tglf_startup.f90

fixed GEOMETRY_FLAG test for SAT_RULE=2 in tglf_startup.f90 so that it just excludes s-alpha geometry.
gafusion · Nov 6, 2023 · bcb33cd · bcb33cd
1 parent da5bbb9
commit bcb33cd
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tglf/src/tglf_startup.f90 b/tglf/src/tglf_startup.f90
@@ -48,8 +48,8 @@ SUBROUTINE tglf_startup
           xnu_model_in=3
           wdia_trapped_in = 1.0
           if(units_in.eq."GYRO")units_in = "CGYRO"
-          if(igeo .ne. 1)then
-            write(*,*)"SAT_RULE=2 requires Miller geometry, set GEOMETRY_FLAG=1"
+          if(igeo .eq. 0)then
+            write(*,*)"GEOMETRY_FLAG=0 cannot be used with SAT_RULE=2"
             STOP
           endif
         endif