diff --git a/physics/smoke_dust/module_add_emiss_burn.F90 b/physics/smoke_dust/module_add_emiss_burn.F90
index 889e42b43..50a56c1bc 100755
--- a/physics/smoke_dust/module_add_emiss_burn.F90
+++ b/physics/smoke_dust/module_add_emiss_burn.F90
@@ -44,7 +44,7 @@ subroutine add_emis_burn(dtstep,dz8w,rho_phy,pi,ebb_min,          &
 !>--local 
    logical, intent(in)  :: add_fire_moist_flux
    integer :: i,j,k,n,m
-   integer :: icall  !=0
+   integer :: icall=0
    real(kind_phys) :: conv_rho, conv, dm_smoke, dc_hwp, dc_gp, dc_fn !daero_num_wfa, daero_num_ifa !, lu_sum1_5, lu_sum12_14
    
    INTEGER, PARAMETER :: kfire_max=51    ! max vertical level for BB plume rise
diff --git a/physics/smoke_dust/rrfs_smoke_wrapper.F90 b/physics/smoke_dust/rrfs_smoke_wrapper.F90
index 87817fb7d..32e1c6768 100755
--- a/physics/smoke_dust/rrfs_smoke_wrapper.F90
+++ b/physics/smoke_dust/rrfs_smoke_wrapper.F90
@@ -1,4 +1,4 @@
-!>\file rrfs_smoke_wrapper.F90hwp_method
+!>\file rrfs_smoke_wrapper.F90
 !! This file is CCPP driver of RRFS Smoke and Dust
 !! Haiqin.Li@noaa.gov 03/2024