From ff9047cee59acf87c41f35490d56ba3bab2db39a Mon Sep 17 00:00:00 2001 From: JHendrikx Date: Mon, 7 Apr 2025 13:45:09 +0200 Subject: [PATCH] Revert Cycle changes, and use F4.1 string for Z --- moduleOutput.f90 | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/moduleOutput.f90 b/moduleOutput.f90 index b2d5fc7..3fbaa85 100644 --- a/moduleOutput.f90 +++ b/moduleOutput.f90 @@ -145,11 +145,8 @@ 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.1)') Z_list(j) + write(ZString, '(F4.1)') Z_list(j) ZString = adjustl(trim(ZString)) ZString = adjustl(ZString) @@ -281,11 +278,8 @@ 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.1)') Z_list(j) + write(ZString, '(F4.1)') Z_list(j) ZString = adjustl(trim(ZString)) ZString = adjustl(ZString)