added prints of the NDWI-related fuel parameters

openwfm · Jul 12, 2015 · a4717eb · a4717eb
1 parent d363dea
commit a4717eb
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/wrfv2_fire/phys/module_fr_sfire_phys.F b/wrfv2_fire/phys/module_fr_sfire_phys.F
@@ -874,6 +874,16 @@ subroutine init_fuel_cats(init_fuel_moisture)
             call message(msg)
         enddo
     endif
+    if(kfmc_ndwi>0)then
+        write(msg,8)'fmc_gl_stdev     ',(fmc_gl_stdev(ii),ii=i,k)
+        call message(msg)
+        write(msg,8)'fmc_gl_ndwi_0    ',(fmc_gl_ndwi_0(ii),ii=i,k)
+        call message(msg)
+        write(msg,8)'fmc_gl_ndwi_rate ',(fmc_gl_ndwi_rate(ii),ii=i,k)
+        call message(msg)
+        write(msg,8)'fmc_gl_ndwi_stdev',(fmc_gl_ndwi_stdev(ii),ii=i,k)
+        call message(msg)
+    endif
 enddo
 call message(' ')
 call message('**********************************************************')