diff --git a/src/wrout.f90 b/src/wrout.f90
index e50b9d8b3..6c109afc4 100644
--- 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))