From 8ac3810ab741a958a7493549f669d354ea477971 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Mon, 23 Oct 2023 12:45:17 -0400 Subject: [PATCH] Fixed format statement to allow for more space for big numers --- src/crater/crater_populate.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90 index a3d566cf..8a4f5569 100644 --- a/src/crater/crater_populate.f90 +++ b/src/crater/crater_populate.f90 @@ -225,7 +225,7 @@ subroutine crater_populate(user,surf,crater,domain,prod,production_list,vdist,nt ! generate random crater call crater_generate(user,crater,domain,prod,production_list,vdist,surf) if (user%testflag) then - write(message,'("Dc=",F8.1," Dt=",F8.1)') crater%fcrat, crater%rad*2 + write(message,'("Dc=",F9.1," Dt=",F9.1)') crater%fcrat, crater%rad*2 call io_updatePbar(message) end if if (crater%fcrat > domain%biggest_crater) then ! End the run if the crater is too big