From 1fb2d45529e3d4d50474a425f98874c49e65b85a Mon Sep 17 00:00:00 2001 From: Jan Mandel Date: Sun, 20 Nov 2016 09:24:49 -0700 Subject: [PATCH] fixing message count in spread rate calculation --- wrfv2_fire/phys/module_fr_sfire_core.F | 1 + 1 file changed, 1 insertion(+) diff --git a/wrfv2_fire/phys/module_fr_sfire_core.F b/wrfv2_fire/phys/module_fr_sfire_core.F index 1ab181e7..6704c77b 100644 --- a/wrfv2_fire/phys/module_fr_sfire_core.F +++ b/wrfv2_fire/phys/module_fr_sfire_core.F @@ -2086,6 +2086,7 @@ intrinsic max,min,sqrt,nint,tiny,huge call fire_ros(ros_back,ros_wind,ros_slope, & nvx,nvy,i,j,fp,ierrx,msg2) + nerr = nerr + ierrx rr=ros_back + ros_wind + ros_slope if(fire_grows_only.gt.0)rr=max(rr,0.) -- 2.11.4.GIT