From 9136b03cbfeaa9977cf9a1c95a76e4a1c6738527 Mon Sep 17 00:00:00 2001 From: Jan Mandel Date: Tue, 13 Sep 2016 15:18:59 -0600 Subject: [PATCH] adding fire_ignite_from_tign to namelist.input --- wrfv2_fire/Registry/registry.fire | 3 ++- wrfv2_fire/phys/module_fr_sfire_driver.F | 1 + wrfv2_fire/phys/module_fr_sfire_util.F | 1 + 3 files changed, 4 insertions(+), 1 deletion(-) diff --git a/wrfv2_fire/Registry/registry.fire b/wrfv2_fire/Registry/registry.fire index dbff424c..bac1e412 100644 --- a/wrfv2_fire/Registry/registry.fire +++ b/wrfv2_fire/Registry/registry.fire @@ -189,7 +189,8 @@ rconfig real fire_ignition_start_x5 namelist,fire max_domains rconfig real fire_ignition_start_y5 namelist,fire max_domains 0. - "fire_ignition_start_y5" "y coord of start of ignition line" "m" rconfig real fire_ignition_end_x5 namelist,fire max_domains 0. - "fire_ignition_end_x5" "x coord of end of ignition line" "m" rconfig real fire_ignition_end_y5 namelist,fire max_domains 0. - "fire_ignition_end_y5" "y coord of end of ignition line" "m" -rconfig real fire_perimeter_time namelist,fire max_domains 0. - "fire_perimeter_time" "if >0, replay history from given tign array until this time" "s" +rconfig real fire_perimeter_time namelist,fire max_domains 0. - "fire_perimeter_time" "if >0, replay history or ignite from given tign array until this time" "s" +rconfig integer fire_ignite_from_tign namelist,fire max_domains 0 - "fire_ignite_from_tign" "if >0 use the given tign_g array as the initial fire arrival time" "" # variables from old cawfe code rconfig real fire_lat_init namelist,fire max_domains 0. - "fire_lat_init" "latitude to start fire" "degrees" rconfig real fire_lon_init namelist,fire max_domains 0. - "fire_lon_init" "longitude to start fire" "degrees" diff --git a/wrfv2_fire/phys/module_fr_sfire_driver.F b/wrfv2_fire/phys/module_fr_sfire_driver.F index 4a70208e..77290741 100644 --- a/wrfv2_fire/phys/module_fr_sfire_driver.F +++ b/wrfv2_fire/phys/module_fr_sfire_driver.F @@ -1594,6 +1594,7 @@ fuel_left_method = config_flags%fire_fuel_left_method fuel_left_irl = config_flags%fire_fuel_left_irl fuel_left_jrl = config_flags%fire_fuel_left_jrl fire_atm_feedback = config_flags%fire_atm_feedback +fire_ignite_from_tign = config_flags%fire_ignite_from_tign fire_hfx_given = config_flags%fire_hfx_given fire_hfx_num_lines = config_flags%fire_hfx_num_lines fire_hfx_latent_part = config_flags%fire_hfx_latent_part diff --git a/wrfv2_fire/phys/module_fr_sfire_util.F b/wrfv2_fire/phys/module_fr_sfire_util.F index 99c3671b..6da371eb 100644 --- a/wrfv2_fire/phys/module_fr_sfire_util.F +++ b/wrfv2_fire/phys/module_fr_sfire_util.F @@ -41,6 +41,7 @@ integer,save:: & fire_use_windrf=0, & ! if fire_wind_log_interp.ne.4: 0=ignore wind reduction factors, 1=multiply, 2=use to set fwh fire_fmc_read=1, & ! fuel moisture: 0 from wrfinput, 1 from namelist.fire, 2 read from file in ideal fire_ignition_clamp=0, & ! if 1, clamp ignition to grid points + fire_ignite_from_tign=0,& ! if 1 use the given tign_g array as the initial fire arrival time fire_hfx_given=0, & ! "0=no, run normally, 1=from wrfinput, 2=from file input_hfx in ideal, 4=by parameters" "" fire_hfx_num_lines=1, & ! number of heatflux parameter sets defining the heaflux lines (must be 1) fndwi_from_ndwi=1, & ! interpolate ndwi from atmosphere resolution -- 2.11.4.GIT