From e263e4a4d8788396debfa5fa69176cd205ea1106 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Wed, 27 Feb 2019 10:07:46 -0300 Subject: [PATCH] SOURCES: Print anomalous resistivity parameters only if enabled. Signed-off-by: Grzegorz Kowal --- sources/sources.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/sources/sources.F90 b/sources/sources.F90 index 4bc2684..589e0fa 100644 --- a/sources/sources.F90 +++ b/sources/sources.F90 @@ -287,8 +287,10 @@ module sources call print_parameter(verbose, "viscosity" , viscosity ) if (magnetized) then call print_parameter(verbose, "resistivity" , resistivity) - call print_parameter(verbose, "anomalous" , anomalous ) - call print_parameter(verbose, "jcrit" , jcrit ) + if (anomalous /= 0.0d+00) then + call print_parameter(verbose, "anomalous" , anomalous ) + call print_parameter(verbose, "jcrit" , jcrit ) + end if call print_parameter(verbose, "glm source terms", glm_name ) end if