From 451180249e77363409ad175ac7a226a1b1fe33c6 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Thu, 30 Mar 2023 15:07:55 +0200
Subject: [PATCH] Rename `timings_file` to `timings_fname`
---
Inst_eddies/inst_eddies.f90 | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/Inst_eddies/inst_eddies.f90 b/Inst_eddies/inst_eddies.f90
index 31606553..66f36fc6 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
--
GitLab