@@ -811,7 +811,8 @@ sub setup_cmdl_fates_mode {
811811 " flandusepftdat" ," use_fates_potentialveg" ," use_fates_lupft" ," fates_history_dimlevel" ,
812812 " use_fates_daylength_factor" , " fates_photosynth_acclimation" , " fates_stomatal_model" ,
813813 " fates_stomatal_assimilation" , " fates_leafresp_model" , " fates_cstarvation_model" ,
814- " fates_regeneration_model" , " fates_hydro_solver" , " fates_radiation_model" , " fates_electron_transport_model"
814+ " fates_regeneration_model" , " fates_hydro_solver" , " fates_radiation_model" , " fates_electron_transport_model" ,
815+ " use_fates_managed_fire"
815816 );
816817
817818 # dis-allow fates specific namelist items with non-fates runs
@@ -4761,12 +4762,13 @@ sub setup_logic_fates {
47614762
47624763 if (&value_is_true( $nl_flags -> {' use_fates' }) ) {
47634764 add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' fates_paramfile' , ' phys' => $nl_flags -> {' phys' });
4764- my @list = ( " fates_spitfire_mode " , " use_fates_planthydro" , " use_fates_ed_st3" , " use_fates_ed_prescribed_phys" ,
4765+ my @list = ( " use_fates_planthydro" , " use_fates_ed_st3" , " use_fates_ed_prescribed_phys" ,
47654766 " use_fates_inventory_init" ," fates_seeddisp_cadence" ," fates_history_dimlevel" ,
47664767 " fates_harvest_mode" ," fates_parteh_mode" , " use_fates_cohort_age_tracking" ," use_fates_tree_damage" ,
47674768 " use_fates_daylength_factor" , " fates_photosynth_acclimation" , " fates_stomatal_model" ,
47684769 " fates_stomatal_assimilation" , " fates_leafresp_model" , " fates_cstarvation_model" ,
4769- " fates_regeneration_model" , " fates_hydro_solver" , " fates_radiation_model" , " fates_electron_transport_model"
4770+ " fates_regeneration_model" , " fates_hydro_solver" , " fates_radiation_model" , " fates_electron_transport_model" ,
4771+ " use_fates_managed_fire"
47704772 );
47714773
47724774 foreach my $var ( @list ) {
@@ -4786,6 +4788,9 @@ sub setup_logic_fates {
47864788 add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' use_fates_fixed_biogeog' , ' use_fates' => $nl_flags -> {' use_fates' },
47874789 ' use_fates_lupft' => $nl -> get_value(' use_fates_lupft' ),
47884790 ' use_fates_sp' => $nl_flags -> {' use_fates_sp' } );
4791+ add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' fates_spitfire_mode' , ' use_fates' => $nl_flags -> {' use_fates' },
4792+ ' use_fates_managed_fire' => $nl -> get_value(' use_fates_managed_fire' ),
4793+ ' use_fates_sp' => $nl_flags -> {' use_fates_sp' } );
47894794
47904795 my $suplnitro = $nl -> get_value(' suplnitro' );
47914796 my $parteh_mode = $nl -> get_value(' fates_parteh_mode' );
@@ -4807,7 +4812,7 @@ sub setup_logic_fates {
48074812 }
48084813 # spit-fire can't be on with FATES SP mode is active
48094814 if ( $nl -> get_value(' fates_spitfire_mode' ) > 0 ) {
4810- $log -> fatal_error(' fates_spitfire_mode can NOT be set to greater than 0 when use_fates_sp is true' );
4815+ $log -> fatal_error(" fates_spitfire_mode can NOT be set to greater than 0 when use_fates_sp is true" );
48114816 }
48124817
48134818 # fates landuse can't be on with FATES SP mode is active
@@ -4920,6 +4925,16 @@ sub setup_logic_fates {
49204925 }
49214926 }
49224927 }
4928+
4929+ # Check use_fates_managed_fire mode is running with spitfire on
4930+ my $var = " use_fates_managed_fire" ;
4931+ if ( defined ($nl -> get_value($var )) ) {
4932+ if ( &value_is_true($nl -> get_value($var )) ) {
4933+ if ( $nl -> get_value(' fates_spitfire_mode' ) == 0 ) {
4934+ $log -> fatal_error(" fates_spitfire_mode must be non-zero when $var is true" );
4935+ }
4936+ }
4937+ }
49234938 }
49244939}
49254940
0 commit comments