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)