From 3052e1c23a48f887196a5402cb62021a804f5c80 Mon Sep 17 00:00:00 2001
From: Jaymes Kenyon <jaymes.kenyon@noaa.gov>
Date: Tue, 12 Mar 2024 16:30:18 +0000
Subject: [PATCH] Bug fix (units) to the HAILCAST diagnostic code.

---
 tools/module_diag_hailcast.F90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/tools/module_diag_hailcast.F90 b/tools/module_diag_hailcast.F90
index 2a8e37a33..3fe4c411a 100644
--- a/tools/module_diag_hailcast.F90
+++ b/tools/module_diag_hailcast.F90
@@ -1092,8 +1092,7 @@ SUBROUTINE hailstone_driver ( ii,jj,TCA, h1d, ht, PA, rho1d,&
       IF (D.GT.0.254) D = 0.  !just consider missing for now if > 10 in
 
       !assign hail size in mm for output
-      !dhails(i) = D * 1000
-      dhails(i) = D
+      dhails(i) = D * 1000
 
     ENDDO  !end embryo size loop