From d77df712f40aca56426ba92e7e23816caf21821e Mon Sep 17 00:00:00 2001 From: Jaymes Kenyon Date: Wed, 14 Feb 2024 14:33:13 +0000 Subject: [PATCH] Correct a bug in the HAILCAST diagnostic code (units issue) --- 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