From f00a5c15c2c316e15363f6da88648f4fca4e3e11 Mon Sep 17 00:00:00 2001 From: JHendrikx Date: Mon, 7 Apr 2025 13:35:06 +0200 Subject: [PATCH] Change Z string and reduce output files --- moduleOutput.f90 | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/moduleOutput.f90 b/moduleOutput.f90 index 1602bb0..b2d5fc7 100644 --- a/moduleOutput.f90 +++ b/moduleOutput.f90 @@ -145,8 +145,11 @@ module output character(len=10) :: ZString do j = 1, nz + if (all(n_i(j,i)*n_ref < 1.0e-16_dp)) then + cycle + end if write (timeString, formatTime) t - write(ZString, '(F6.3)') Z_list(j) + write(ZString, '(F6.1)') Z_list(j) ZString = adjustl(trim(ZString)) ZString = adjustl(ZString) @@ -278,8 +281,11 @@ module output do j = 1, nz + if (all(f(j,:)*n_ref/u_ref < 1.0e+20_dp)) then + cycle + end if write (timeString, formatTime) t - write(ZString, '(F6.3)') Z_list(j) + write(ZString, '(F6.1)') Z_list(j) ZString = adjustl(trim(ZString)) ZString = adjustl(ZString)