gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

USER_PROBLEM: Rename magnetic flux file.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2022-11-11 17:04:13 -03:00
parent 40213a9699
commit 83d74d627b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/user_problem.F90
View File

@ -153,10 +153,10 @@ module user_problem
call get_parameter("statistics_append", append)
select case(trim(append))
case ("on", "ON", "t", "T", "y", "Y", "true", "TRUE", "yes", "YES")
write(fname, "('magnetic_flux.dat')")
write(fname, "('magnetic-flux.dat')")
inquire(file = fname, exist = flag)
case default
write(fname, "('magnetic_flux_',i2.2,'.dat')") rcount
write(fname, "('magnetic-flux_',i2.2,'.dat')") rcount
flag = .false.
end select