diff --git a/src/diagnostics_par_mod.F90 b/src/diagnostics_par_mod.F90 index 39de0ab7e443533d7fbded74962d94439eca8b89..cce34b04dafac82f73539bfe3ad37c2be23127f6 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)