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)