Skip to content
Snippets Groups Projects
Commit d3e7ea5f authored by Lionel GUEZ's avatar Lionel GUEZ
Browse files

Rename `used_nml.txt` to `used_config_nml.txt`

parent 77c8d196
No related branches found
No related tags found
No related merge requests found
......@@ -28,13 +28,13 @@ contains
!----------------------------------------------------------------------
inquire(file = "SHPC/used_nml.txt", exist = exist)
inquire(file = "SHPC/used_config_nml.txt", exist = exist)
call new_unit(unit)
if (exist) then
print *, "config: Found SHPC/used_nml.txt"
open(unit, file = "SHPC/used_nml.txt", status = "old", action = "read", &
position = "rewind")
print *, "config: Found SHPC/used_config_nml.txt"
open(unit, file = "SHPC/used_config_nml.txt", status = "old", &
action = "read", position = "rewind")
read(unit, nml = config_nml)
close(unit)
else
......@@ -43,7 +43,7 @@ contains
position = "rewind")
read(unit, nml = config_nml)
close(unit)
open(unit, file = "SHPC/used_nml.txt", status = "replace", &
open(unit, file = "SHPC/used_config_nml.txt", status = "replace", &
action = "write")
write(unit, nml = config_nml)
close(unit)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment