write first ion moment Ni00 as 2D output

src/diagnostics_par_mod.F90

@@ -5,6 +5,7 @@ MODULE diagnostics_par
   IMPLICIT NONE
   PRIVATE
 
+  LOGICAL, PUBLIC, PROTECTED :: write_Ni00=.TRUE. 
   LOGICAL, PUBLIC, PROTECTED :: write_moments=.TRUE. 
   LOGICAL, PUBLIC, PROTECTED :: write_phi=.TRUE.
   LOGICAL, PUBLIC, PROTECTED :: write_doubleprecision=.FALSE.
@@ -33,7 +34,7 @@ CONTAINS
     IMPLICIT NONE
 
     NAMELIST /OUTPUT_PAR/ nsave_0d , nsave_1d , nsave_2d , nsave_5d
-    NAMELIST /OUTPUT_PAR/ write_moments, write_phi, write_doubleprecision
+    NAMELIST /OUTPUT_PAR/ write_Ni00, write_moments, write_phi, write_doubleprecision
     NAMELIST /OUTPUT_PAR/ resfile0!, rstfile0
 
        READ(lu_in,output_par)
@@ -52,6 +53,7 @@ CONTAINS
     INTEGER, INTENT(in) :: fidres
     CHARACTER(len=256), INTENT(in) :: str
 
+    CALL attach(fidres, TRIM(str), "write_Ni00", write_Ni00)
     CALL attach(fidres, TRIM(str), "write_moments", write_moments)
     CALL attach(fidres, TRIM(str), "write_phi", write_phi)
     CALL attach(fidres, TRIM(str), "write_doubleprecision", write_doubleprecision)