JGonzalez/vlaplex
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Change Z string and reduce output files

Browse source
This commit is contained in:
JHendrikx 2025-04-07 13:35:06 +02:00
commit f00a5c15c2
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
moduleOutput.f90
View file

@ -145,8 +145,11 @@ module output
character(len=10) :: ZString character(len=10) :: ZString
do j = 1, nz 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 (timeString, formatTime) t
write(ZString, '(F6.3)') Z_list(j) write(ZString, '(F6.1)') Z_list(j)
ZString = adjustl(trim(ZString)) ZString = adjustl(trim(ZString))
ZString = adjustl(ZString) ZString = adjustl(ZString)
@ -278,8 +281,11 @@ module output
do j = 1, nz 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 (timeString, formatTime) t
write(ZString, '(F6.3)') Z_list(j) write(ZString, '(F6.1)') Z_list(j)
ZString = adjustl(trim(ZString)) ZString = adjustl(trim(ZString))
ZString = adjustl(ZString) ZString = adjustl(ZString)