Skip to content

Commit

Permalink
Remove temporary_SF_switch
Browse files Browse the repository at this point in the history
Remove temporary_SF_switch. Spitfire is runtime configurable via name
list and is now off by default. This switch was only used to disable
spitfire at compile time.

Fixes: 140

User interface changes?: spitfire configured at runtime instead of
compile time.

Code review: self

Test suite: SMS_D_Mmpi-serial_Ld5.5x5_amazon.ICLM45ED.yellowstone_intel.clm-edTest
Test baseline: 2ac7960
Test namelist changes: none
Test answer changes: bit for bit
Test summary: pass
  • Loading branch information
bandre-ucar committed Dec 1, 2016
1 parent 01d60bf commit dcd00dc
Showing 1 changed file with 1 addition and 4 deletions.
5 changes: 1 addition & 4 deletions components/clm/src/ED/fire/SFMainMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -52,11 +52,8 @@ subroutine fire_model( currentSite, atm2lnd_inst, temperature_inst)

type (ed_patch_type), pointer :: currentPatch

integer temporary_SF_switch

!zero fire things
currentPatch => currentSite%youngest_patch
temporary_SF_switch = 1
do while(associated(currentPatch))
currentPatch%frac_burnt = 0.0_r8
currentPatch%AB = 0.0_r8
Expand All @@ -68,7 +65,7 @@ subroutine fire_model( currentSite, atm2lnd_inst, temperature_inst)
write(iulog,*) 'use_ed_spit_fire',use_ed_spit_fire
endif

if(use_ed_spit_fire.and.temporary_SF_switch==1)then
if(use_ed_spit_fire)then
call fire_danger_index(currentSite, temperature_inst, atm2lnd_inst)
call wind_effect(currentSite, atm2lnd_inst)
call charecteristics_of_fuel(currentSite)
Expand Down

0 comments on commit dcd00dc

Please sign in to comment.