correc comments: Baughman&Albini(1980)

openwfm · Sep 16, 2010 · dce0634 · dce0634
1 parent 4da799a
commit dce0634
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/other/Matlab/vis3d/fire_ros.m b/other/Matlab/vis3d/fire_ros.m
@@ -37,7 +37,7 @@
 rhob     = fuelload/fueldepth;             % ovendry bulk density, lb/ft^3
 c        = 7.47 * exp(-0.133 * savr^0.55); % const in wind coef
 bbb      = 0.02526 * savr^0.54;            % const in wind coef
-c        = c * windrf^bbb;                 % jm: wind reduction from 20ft per Baughman&Rothermel(1980)
+c        = c * windrf^bbb;                 % jm: wind reduction from 20ft per Baughman&Albini(1980)
 e        = 0.715 * exp( -3.59e-4 * savr);  % const in wind coef
 phiwc    = c * (betafl/betaop)^(-e); 
 rtemp2   = savr^1.5;

diff --git a/wrfv2_fire/phys/module_fr_sfire_phys.F b/wrfv2_fire/phys/module_fr_sfire_phys.F
@@ -502,7 +502,7 @@ subroutine set_fire_params( &
 
         c = 7.47 * exp( -0.133 * savr(k)**0.55)    ! const in wind coef
         fp%bbb(i,j) = 0.02526 * savr(k)**0.54      ! const in wind coef
-        c = c * windrf(k)**fp%bbb(i,j)             ! jm: wind reduction from 20ft per Baughman&Rothermel(1980)
+        c = c * windrf(k)**fp%bbb(i,j)             ! jm: wind reduction from 20ft per Baughman&Albini(1980)
         e = 0.715 * exp( -3.59e-4 * savr(k))       ! const in wind coef
         fp%phiwc(i,j) = c * (fp%betafl(i,j)/betaop)**(-e)