@@ -816,7 +816,7 @@ sub setup_cmdl_fates_mode {
816816 } else {
817817 # dis-allow fates specific namelist items with non-fates runs
818818 my @list = ( " fates_spitfire_mode" , " use_fates_planthydro" , " use_fates_ed_st3" , " use_fates_ed_prescribed_phys" ,
819- " use_fates_cohort_age_tracking" ," use_fates_inventory_init" ," use_fates_fixed_biogeog" ,
819+ " use_fates_cohort_age_tracking" ," use_fates_inventory_init" ," use_fates_dbh_init " , " use_fates_fixed_biogeog" ,
820820 " use_fates_nocomp" ," use_fates_sp" ," fates_inventory_ctrl_filename" ," fates_harvest_mode" ,
821821 " fates_parteh_mode" ," use_fates_tree_damage" ," fates_seeddisp_cadence" ," use_fates_luh" ," fluh_timeseries" ,
822822 " flandusepftdat" ," use_fates_potentialveg" ," use_fates_lupft" ," fates_history_dimlevel" ,
@@ -4896,7 +4896,7 @@ sub setup_logic_fates {
48964896 if (&value_is_true( $nl_flags -> {' use_fates' }) ) {
48974897 add_default($opts , $nl_flags -> {' inputdata_rootdir' }, $definition , $defaults , $nl , ' fates_paramfile' , ' phys' => $nl_flags -> {' phys' });
48984898 my @list = ( " use_fates_planthydro" , " use_fates_ed_st3" , " use_fates_ed_prescribed_phys" ,
4899- " use_fates_inventory_init" ," fates_seeddisp_cadence" ," fates_history_dimlevel" ,
4899+ " use_fates_inventory_init" ," use_fates_dbh_init " , " fates_seeddisp_cadence" ," fates_history_dimlevel" ,
49004900 " fates_harvest_mode" ," fates_parteh_mode" , " use_fates_cohort_age_tracking" ," use_fates_tree_damage" ,
49014901 " use_fates_daylength_factor" , " fates_photosynth_acclimation" , " fates_stomatal_model" ,
49024902 " fates_stomatal_assimilation" , " fates_leafresp_model" , " fates_cstarvation_model" ,
@@ -4961,6 +4961,10 @@ sub setup_logic_fates {
49614961 }
49624962 }
49634963 }
4964+ my $var = " use_fates_dbh_init" ;
4965+ if ( &value_is_true($nl -> get_value($var )) && ( !&value_is_true($nl -> get_value(" use_fates_nocomp" )))) {
4966+ $log -> fatal_error(" $var can only be .true. use_fates_nocomp is .true." );
4967+ }
49644968 # make sure that fates landuse x pft mode has the necessary run mode configurations
49654969 my $var = " use_fates_lupft" ;
49664970 if ( defined ($nl -> get_value($var )) ) {
0 commit comments