Debug code

gafusion · Sep 19, 2024 · b5e0c02 · b5e0c02
1 parent c18ebaf
commit b5e0c02
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/cgyro/src/cgyro_error_estimate.F90 b/cgyro/src/cgyro_error_estimate.F90
@@ -174,6 +174,10 @@ subroutine cgyro_error_estimate
   ! 2: collisionless error
   integration_error = integration_error/norm
 
+  if (i_proc == 0) then
+     print '(7(1pe12.5))',delta_t_gk,deltah2,delta_t_last_step,delta_t_last,var_error,integration_error
+  endif
+
   ! Trigger code shutdown on large collisionless error
   if (integration_error(2) > 5e2*error_tol .and. i_time > 2) then
      call cgyro_error('Integration error exceeded limit.')