"update to address UFS reviewer's comments"

ufs-community · Oct 29, 2024 · 5048dbb · 5048dbb
1 parent 728ecf1
commit 5048dbb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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