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

Corrections to Z naming and iteration model

Browse source
This commit is contained in:
Jorge Gonzalez 2025-04-09 15:12:00 +02:00
commit af63194cb2
2 changed files with 22 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

35
moduleOutput.f90
View file

@ -29,6 +29,14 @@ module output
end subroutine setTimeFormat
function setZFormat(Z) result(ZString)
real(dp), intent(in):: Z
character(len=4):: ZString
write(ZString, '(F4.1)') Z
end function setZFormat
subroutine createPath()
character(8) :: date_now
character(10) :: time_now
@ -57,16 +65,13 @@ module output
character(:), allocatable:: filename
integer:: i, j
character(len=10):: timeString
character(len=10) :: ZString
character(len=4) :: ZString
do j = 1, nz
write (timeString, formatTime) t
write(ZString, '(F6.3)') Z_list(j)
ZString = adjustl(trim(ZString))
ZString = setZFormat(Z_list(j))
ZString = adjustl(ZString)
ZString = ZString(:index(ZString // '.', '.') - 1) // ZString(index(ZString, '.') + 1:)
filename = 'time_' // trim(timeString) // '_Z' // trim(ZString) // '_f_i.csv'
filename = 'time_' // trim(timeString) // '_Z_' // trim(adjustl(ZString)) // '_f_i.csv'
write (*, '(A, A)') 'Writing: ', filename
open(unit=dataF_id, file=pathOutput // filename)
@ -142,16 +147,13 @@ module output
integer:: i
integer:: j
character(len=10):: timeString
character(len=10) :: ZString
character(len=4) :: ZString
do j = 1, nz
write (timeString, formatTime) t
write(ZString, '(F6.3)') Z_list(j)
ZString = adjustl(trim(ZString))
ZString = setZFormat(Z_list(j))
ZString = adjustl(ZString)
ZString = ZString(:index(ZString // '.', '.') - 1) // ZString(index(ZString, '.') + 1:)
filename = 'time_' // trim(timeString) // '_Z' // trim(ZString) // '_mom_i.csv'
filename = 'time_' // trim(timeString) // '_Z_' // trim(adjustl(ZString)) // '_mom_i.csv'
write (*, '(A, A)') 'Writing: ', filename
open(unit=dataPhi_id, file=pathOutput//filename)
@ -275,17 +277,14 @@ module output
character(:), allocatable:: filename
integer:: i, j
character(len=10):: timeString
character(len=10) :: ZString
character(len=4) :: ZString
do j = 1, nz
write (timeString, formatTime) t
write(ZString, '(F6.3)') Z_list(j)
ZString = adjustl(trim(ZString))
ZString = setZFormat(Z_list(j))
ZString = adjustl(ZString)
ZString = ZString(:index(ZString // '.', '.') - 1) // ZString(index(ZString, '.') + 1:)
filename = 'time_' // trim(timeString) // '_Z' // trim(ZString) // '_fCum_i.csv'
filename = 'time_' // trim(timeString) // '_Z_' // trim(adjustl(ZString)) // '_fCum_i.csv'
write (*, '(A, A)') 'Writing: ', filename
open(unit=dataCum_id, file=pathOutput // filename)