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