diff --git a/Inst_eddies/inst_eddies.f90 b/Inst_eddies/inst_eddies.f90 index 316065539181cfa0253ddff7a87a6a9f256cf7ad..66f36fc6dfab6296e830dcdb8f55180db27efd13 100644 --- a/Inst_eddies/inst_eddies.f90 +++ b/Inst_eddies/inst_eddies.f90 @@ -61,7 +61,7 @@ program inst_eddies logical exist real t0, t1 ! CPU times, in s - character(len = 30) timings_file + character(len = 30) timings_fname ! file name integer:: date = 0, slice = 0 namelist /dates_nml/ date, slice @@ -72,15 +72,15 @@ program inst_eddies call cpu_time(t0) print *, "inst_eddies: Enter dates_nml:" read(unit = *, nml = dates_nml) - write(timings_file, fmt = '("SHPC/Slice_", i0, "/timings.txt")') slice - inquire(file = timings_file, exist = exist) + write(timings_fname, fmt = '("SHPC/Slice_", i0, "/timings.txt")') slice + inquire(file = timings_fname, exist = exist) call new_unit(unit) if (exist) then - open(unit, file = timings_file, STATUS = "old", ACTION = "WRITE", & + open(unit, file = timings_fname, STATUS = "old", ACTION = "WRITE", & position = "append") else - OPEN(unit, file = timings_file, STATUS = "new", ACTION = "WRITE") + OPEN(unit, file = timings_fname, STATUS = "new", ACTION = "WRITE") end if call config