@@ -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
@@ -4762,12 +4763,13 @@ sub setup_logic_fates {
47624763
47634764 if (&value_is_true( $nl_flags -> {' use_fates' }) ) {
47644765 add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' fates_paramfile' , ' phys' => $nl_flags -> {' phys' });
4765- my @list = ( " fates_spitfire_mode " , " use_fates_planthydro" , " use_fates_ed_st3" , " use_fates_ed_prescribed_phys" ,
4766+ my @list = ( " use_fates_planthydro" , " use_fates_ed_st3" , " use_fates_ed_prescribed_phys" ,
47664767 " use_fates_inventory_init" ," fates_seeddisp_cadence" ," fates_history_dimlevel" ,
47674768 " fates_harvest_mode" ," fates_parteh_mode" , " use_fates_cohort_age_tracking" ," use_fates_tree_damage" ,
47684769 " use_fates_daylength_factor" , " fates_photosynth_acclimation" , " fates_stomatal_model" ,
47694770 " fates_stomatal_assimilation" , " fates_leafresp_model" , " fates_cstarvation_model" ,
4770- " fates_regeneration_model" , " fates_hydro_solver" , " fates_radiation_model" , " fates_electron_transport_model"
4771+ " fates_regeneration_model" , " fates_hydro_solver" , " fates_radiation_model" , " fates_electron_transport_model" ,
4772+ " use_fates_managed_fire"
47714773 );
47724774
47734775 foreach my $var ( @list ) {
@@ -4787,6 +4789,9 @@ sub setup_logic_fates {
47874789 add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' use_fates_fixed_biogeog' , ' use_fates' => $nl_flags -> {' use_fates' },
47884790 ' use_fates_lupft' => $nl -> get_value(' use_fates_lupft' ),
47894791 ' use_fates_sp' => $nl_flags -> {' use_fates_sp' } );
4792+ add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' fates_spitfire_mode' , ' use_fates' => $nl_flags -> {' use_fates' },
4793+ ' use_fates_managed_fire' => $nl -> get_value(' use_fates_managed_fire' ),
4794+ ' use_fates_sp' => $nl_flags -> {' use_fates_sp' } );
47904795
47914796 my $suplnitro = $nl -> get_value(' suplnitro' );
47924797 my $parteh_mode = $nl -> get_value(' fates_parteh_mode' );
@@ -4808,7 +4813,7 @@ sub setup_logic_fates {
48084813 }
48094814 # spit-fire can't be on with FATES SP mode is active
48104815 if ( $nl -> get_value(' fates_spitfire_mode' ) > 0 ) {
4811- $log -> fatal_error(' fates_spitfire_mode can NOT be set to greater than 0 when use_fates_sp is true' );
4816+ $log -> fatal_error(" fates_spitfire_mode can NOT be set to greater than 0 when use_fates_sp is true" );
48124817 }
48134818
48144819 # fates landuse can't be on with FATES SP mode is active
@@ -4921,6 +4926,16 @@ sub setup_logic_fates {
49214926 }
49224927 }
49234928 }
4929+
4930+ # Check use_fates_managed_fire mode is running with spitfire on
4931+ my $var = " use_fates_managed_fire" ;
4932+ if ( defined ($nl -> get_value($var )) ) {
4933+ if ( &value_is_true($nl -> get_value($var )) ) {
4934+ if ( $nl -> get_value(' fates_spitfire_mode' ) == 0 ) {
4935+ $log -> fatal_error(" fates_spitfire_mode must be non-zero when $var is true" );
4936+ }
4937+ }
4938+ }
49244939 }
49254940}
49264941
0 commit comments