diff --git a/Inst_eddies/config.f90 b/Inst_eddies/config.f90 index debeb02700a15c0b083688d214e9adedbc56ceaa..a99aa82c65a3d7d2aff63d480faec9ab5187ec67 100644 --- a/Inst_eddies/config.f90 +++ b/Inst_eddies/config.f90 @@ -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)