From fab38cbc89568da6d85d113bfca39defcf219b0b Mon Sep 17 00:00:00 2001 From: Antoine <antoine.hoffmann@epfl.ch> Date: Sun, 14 Apr 2024 13:11:46 +0200 Subject: [PATCH] add default values in writing flags --- src/diagnostics_mod.F90 | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/src/diagnostics_mod.F90 b/src/diagnostics_mod.F90 index e7b10a3..cff27d3 100644 --- a/src/diagnostics_mod.F90 +++ b/src/diagnostics_mod.F90 @@ -5,11 +5,16 @@ MODULE diagnostics IMPLICIT NONE PRIVATE - LOGICAL, PUBLIC, PROTECTED :: write_doubleprecision = .FALSE. - LOGICAL, PUBLIC, PROTECTED :: write_gamma, write_hf ! output particle transport and heat flux - LOGICAL, PUBLIC, PROTECTED :: write_phi, write_Na00 - LOGICAL, PUBLIC, PROTECTED :: write_Napj, write_Sapj - LOGICAL, PUBLIC, PROTECTED :: write_dens, write_fvel, write_temp + LOGICAL, PUBLIC, PROTECTED :: write_doubleprecision = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_gamma = .TRUE. ! output particle transport and heat flux + LOGICAL, PUBLIC, PROTECTED :: write_hf = .TRUE. ! output particle transport and heat flux + LOGICAL, PUBLIC, PROTECTED :: write_phi = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_Na00 = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_Napj = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_Sapj = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_dens = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_fvel = .TRUE. + LOGICAL, PUBLIC, PROTECTED :: write_temp = .TRUE. INTEGER, PUBLIC, PROTECTED :: nsave_0d, nsave_1d, nsave_2d, nsave_3d, nsave_5d ! save data every n step REAL, PUBLIC, PROTECTED :: dtsave_0d, dtsave_1d, dtsave_2d, dtsave_3d, dtsave_5d ! save data every dt time unit -- GitLab