revert Mercier and equif outputs in wout to regular VMEC style

jonathanschilling · Jan 31, 2024 · 49a47d3 · 49a47d3
1 parent 8ae37b4
commit 49a47d3
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/wrout.f90 b/src/wrout.f90
@@ -725,13 +725,13 @@ SUBROUTINE wrout(bsq, gsqrt, bsubu, bsubv, bsubs, bsupv, bsupu, rzl_array, gc_ar
   CALL cdf_write(nwout, vn_overr, overr(1:ns))
 
   ! MERCIER_CRITERION
-  CALL cdf_write(nwout, vn_merc, Dmerc(2:ns1))
-  CALL cdf_write(nwout, vn_mshear, Dshear(2:ns1))
-  CALL cdf_write(nwout, vn_mwell, Dwell(2:ns1))
-  CALL cdf_write(nwout, vn_mcurr, Dcurr(2:ns1))
-  CALL cdf_write(nwout, vn_mgeo, Dgeod(2:ns1))
+  CALL cdf_write(nwout, vn_merc, Dmerc(1:ns))
+  CALL cdf_write(nwout, vn_mshear, Dshear(1:ns))
+  CALL cdf_write(nwout, vn_mwell, Dwell(1:ns))
+  CALL cdf_write(nwout, vn_mcurr, Dcurr(1:ns))
+  CALL cdf_write(nwout, vn_mgeo, Dgeod(1:ns))
 
-  CALL cdf_write(nwout, vn_equif, equif(2:ns1))
+  CALL cdf_write(nwout, vn_equif, equif(1:ns))
 
   IF (lasym) THEN
      CALL cdf_write(nwout, vn_racs, raxis_cs(0:ntor))