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

Revert Cycle changes, and use F4.1 string for Z

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

10
moduleOutput.f90
View file

@ -145,11 +145,8 @@ 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.1)') Z_list(j) write(ZString, '(F4.1)') Z_list(j)
ZString = adjustl(trim(ZString)) ZString = adjustl(trim(ZString))
ZString = adjustl(ZString) ZString = adjustl(ZString)
@ -281,11 +278,8 @@ 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.1)') Z_list(j) write(ZString, '(F4.1)') Z_list(j)
ZString = adjustl(trim(ZString)) ZString = adjustl(trim(ZString))
ZString = adjustl(ZString) ZString = adjustl(ZString)