From b79a49d42986eae8ee572b2278330ed82a64e527 Mon Sep 17 00:00:00 2001
From: pabloseleson <selesonpd@ornl.gov>
Date: Fri, 22 Nov 2024 17:52:14 -0500
Subject: [PATCH] Change heat transfer time step in solver to account for
 thermal_subcycle_steps > 1

---
 src/CabanaPD_Solver.hpp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/CabanaPD_Solver.hpp b/src/CabanaPD_Solver.hpp
index d7a99321..5d57fd89 100644
--- a/src/CabanaPD_Solver.hpp
+++ b/src/CabanaPD_Solver.hpp
@@ -241,7 +241,8 @@ class SolverElastic
             {
                 if ( step % thermal_subcycle_steps == 0 )
                     computeHeatTransfer( *heat_transfer, *particles,
-                                         neigh_iter_tag{}, dt );
+                                         neigh_iter_tag{},
+                                         thermal_subcycle_steps * dt );
             }
 
             // Add non-force boundary condition.