Updated the crater size message (though this still needs to be improv…

…ed further)
MintonGroup · Oct 23, 2023 · 12d15c3 · 12d15c3
1 parent 5412b02
commit 12d15c3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/crater/crater_populate.f90 b/src/crater/crater_populate.f90
@@ -221,15 +221,15 @@ 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=",ES11.4," Dt=",ES11.4)') 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
          if ( user%testflag .eqv. .false. ) then
             if (user%killatmaxcrater) then 
                fracdone = real(icrater,kind=DP) / real(ntotcrat,kind=DP)
                write(*,*)
-               write(*,'("Ended run at ",F7.2,"% due to crater of size: ",ES13.4)') fracdone * 100,crater%fcrat
+               write(*,'("Ended run at ",ES11.4,"% due to crater of size: ",ES11.4)') fracdone * 100,crater%fcrat
                exit
             else
                makecrater = .false. ! Ignore this big crater

diff --git a/src/globals/module_globals.f90 b/src/globals/module_globals.f90
@@ -305,7 +305,7 @@ module module_globals
 ! Progress bar variables
 integer(I4B),parameter :: PBARRES = 100
 integer(I4B),parameter :: PBARSIZE = 50 
-integer(I4B),parameter :: MESSAGESIZE = 32
+integer(I4B),parameter :: MESSAGESIZE = 48
 integer(I4B) :: pbarival
 integer(I4B) :: pbarpos
 character(len=PBARSIZE) :: pbarchar