Fixed bug where params%dt was updating, but was not reflected in calc…

…ulation of params%time
ORNL-Fusion · Mar 2, 2022 · 5a2e9af · 5a2e9af
1 parent 830b489
commit 5a2e9af
Showing 1 changed file with 10 additions and 3 deletions.
diff --git a/src/main.f90 b/src/main.f90
@@ -615,9 +615,16 @@ program main
      do it=params%ito,params%t_steps,params%t_skip
         call adv_GCinterp_psiwE_top(params,spp,P,F)
 
-        params%time = params%init_time &
-             +REAL(it-1_ip+params%t_skip,rp)*params%dt        
-        params%it = it-1_ip+params%t_skip
+        if (.not.params%LargeCollisions) then
+           params%time = params%init_time &
+                +REAL(it-1_ip+params%t_skip,rp)*params%dt        
+           params%it = it-1_ip+params%t_skip
+        else
+           params%time = params%init_time &
+                +REAL(it-1_ip+params%t_skip,rp)/REAL(params%t_skip,rp)* &
+                params%snapshot_frequency       
+           params%it = it-1_ip+params%t_skip
+        endif
 
         call save_simulation_outputs(params,spp,F)