Fixed case of global variable after refactor

MintonGroup · Jun 24, 2021 · 93f7657 · 93f7657
1 parent a993807
commit 93f7657
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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'