fixing errror print #72

openwfm · Jun 23, 2023 · c049d52 · c049d52
1 parent 191af81
commit c049d52
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)