From 8d29013c7951d84d99bc6d849801a2763bd271e0 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 1 Dec 2022 14:11:55 -0500 Subject: [PATCH] Fixed computation of the dump_cadence when the user passes 0 (only dump at the end) --- src/main/swiftest_driver.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/src/main/swiftest_driver.f90 b/src/main/swiftest_driver.f90 index 8845be170..a9af0cc71 100644 --- a/src/main/swiftest_driver.f90 +++ b/src/main/swiftest_driver.f90 @@ -41,7 +41,6 @@ program swiftest_driver character(*), parameter :: symbacompactfmt = '(";NPLM",ES22.15,$)' type(swiftest_storage(nframes=:)), allocatable :: system_history - call io_get_args(integrator, param_file_name, display_style) !> Read in the user-defined parameters file and the initial conditions of the system @@ -87,7 +86,7 @@ program swiftest_driver ioutput = int(istart / istep_out, kind=I8B) ! Set up system storage for intermittent file dumps - if (dump_cadence == 0) dump_cadence = nloops + if (dump_cadence == 0) dump_cadence = ceiling(nloops / (1.0_DP * istep_out), kind=I8B) allocate(swiftest_storage(dump_cadence) :: system_history) idump = dump_cadence