"a typo fix"

ufs-community · Jun 20, 2024 · 6e878ba · 6e878ba
1 parent 5ff184e
commit 6e878ba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/smoke_dust/rrfs_smoke_wrapper.F90 b/physics/smoke_dust/rrfs_smoke_wrapper.F90
@@ -951,7 +951,7 @@ subroutine rrfs_smoke_prep(                                               &
 
 !---- Calculate HWP based on selected method
     hwp_local = 0._kind_phys
-    precip_factor  = 2.5_kind_phys + real(hour_inti, kind=kind_phys)*2.5_kind_phys/24._kind_phys
+    precip_factor  = 2.5_kind_phys + real(hour_int, kind=kind_phys)*2.5_kind_phys/24._kind_phys
   ! total precip is only in the SMOKE_RRFS_DATA if ebb_dcycle ==  2 and should be
   ! filled here before calculating HWP
   ! !!WARNING!! IF EBB_DYCLE != 2 and HWP_METHOD = 1 | 3, HWP will not take into account totprcp_24hrs