From 170af58ea274f500dd6d796bac60eaa32cf70f1b Mon Sep 17 00:00:00 2001
From: "Michael Kavulich, Jr." <kavulich@ucar.edu>
Date: Tue, 16 Jun 2026 22:17:02 +0000
Subject: [PATCH] RRFS smoke fix

---
 physics/smoke_dust/rrfs_smoke_wrapper.F90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/physics/smoke_dust/rrfs_smoke_wrapper.F90 b/physics/smoke_dust/rrfs_smoke_wrapper.F90
index 7254304b8..34b1e762d 100755
--- a/physics/smoke_dust/rrfs_smoke_wrapper.F90
+++ b/physics/smoke_dust/rrfs_smoke_wrapper.F90
@@ -259,11 +259,13 @@ subroutine rrfs_smoke_wrapper_run(im, flag_init, kte, kme, ktau, dt, garea, land
         do i=1,im
           do k=kts,kte
             qgrs(i,k,ntfsmoke) = 0.
+            gq0(i,k,ntfsmoke) = 0.
           end do
         end do
       endif
       do i=1,im
         qgrs(i,kts,ntfsmoke) = qgrs(i,kts,ntfsmoke) + smoke_fire(i)
+        gq0(i,kts,ntfsmoke) = gq0(i,kts,ntfsmoke) + smoke_fire(i)
       end do
     endif