From 93f765763d6821c5a7624d436c2f336a1cfc0e10 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 24 Jun 2021 12:33:35 -0400 Subject: [PATCH] Fixed case of global variable after refactor --- src/io/io.f90 | 2 +- src/modules/swiftest_globals.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/io/io.f90 b/src/io/io.f90 index b0a188d35..f23b1631c 100644 --- a/src/io/io.f90 +++ b/src/io/io.f90 @@ -497,7 +497,7 @@ module subroutine io_dump_system(self, param, t, dt, msg) allocate(dump_param, source=param) - param_file_name = trim(adjustl(DUMP_param_FILE(idx))) + param_file_name = trim(adjustl(DUMP_PARAM_FILE(idx))) dump_param%incbfile = trim(adjustl(DUMP_CB_FILE(idx))) dump_param%inplfile = trim(adjustl(DUMP_PL_FILE(idx))) dump_param%intpfile = trim(adjustl(DUMP_TP_FILE(idx))) diff --git a/src/modules/swiftest_globals.f90 b/src/modules/swiftest_globals.f90 index 846817673..f738dbad0 100644 --- a/src/modules/swiftest_globals.f90 +++ b/src/modules/swiftest_globals.f90 @@ -103,7 +103,7 @@ module swiftest_globals character(*), dimension(2), parameter :: DUMP_CB_FILE = (/ 'dump_cb1.bin', 'dump_cb2.bin' /) character(*), dimension(2), parameter :: DUMP_PL_FILE = (/ 'dump_pl1.bin', 'dump_pl2.bin' /) character(*), dimension(2), parameter :: DUMP_TP_FILE = (/ 'dump_tp1.bin', 'dump_tp2.bin' /) - character(*), dimension(2), parameter :: DUMP_param_FILE = (/ 'dump_param1.dat', 'dump_param2.dat' /) + character(*), dimension(2), parameter :: DUMP_PARAM_FILE = (/ 'dump_param1.dat', 'dump_param2.dat' /) !> Default file names that can be changed by the user in the parameters file character(*), parameter :: ENC_OUTFILE = 'encounter.out'