diff --git a/phys/module_fr_sfire_atm.F b/phys/module_fr_sfire_atm.F
index a6596376a9..1e3665aec2 100644
--- a/phys/module_fr_sfire_atm.F
+++ b/phys/module_fr_sfire_atm.F
@@ -2305,7 +2305,7 @@ subroutine interpolate_wind2fire_height(id,       & ! to identify debugging prin
 
   91 continue
 !$OMP CRITICAL(SFIRE_ATM_CRIT)
-      write(msg,*)'fire wind height',wh,'at ',point,icm,jcm
+      write(msg,*)'fire wind height',wh,'at ',icm,jcm
       call message(msg,0)
       do k=kds,kdmax         ! search for layer k such that ht(k-1)<=wh<ht(k), ht(0)=z0
         ht=interpolate_h(its-1,ite+1,kds,kde,jts-1,jte+1,icm,k,jcm,wicm,wjcm,z)