From 32cebacf84064b3ce453fc7f0d580e1bcb692eac Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 22 Jun 2020 14:47:29 +0200
Subject: [PATCH] write first ion moment Ni00 as 2D output
---
src/diagnostics_par_mod.F90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/diagnostics_par_mod.F90 b/src/diagnostics_par_mod.F90
index 39de0ab7..cce34b04 100644
--- a/src/diagnostics_par_mod.F90
+++ b/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)
--
GitLab