Skip to content

Commit a5efb18

Browse files
Jessica NeedhamJessica Needham
Jessica Needham
authored and
Jessica Needham
committed
add new namelist variable for fates
1 parent 994e029 commit a5efb18

File tree

6 files changed

+28
-5
lines changed

6 files changed

+28
-5
lines changed

‎bld/CLMBuildNamelist.pm‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -812,8 +812,7 @@ sub setup_cmdl_fates_mode {
812812
"use_fates_daylength_factor", "fates_photosynth_acclimation", "fates_stomatal_model",
813813
"fates_stomatal_assimilation", "fates_leafresp_model", "fates_cstarvation_model",
814814
"fates_regeneration_model", "fates_hydro_solver", "fates_radiation_model", "fates_electron_transport_model",
815-
"use_fates_managed_fire"
816-
);
815+
"use_fates_managed_fire", "fates_lu_transition_logic");
817816

818817
# dis-allow fates specific namelist items with non-fates runs
819818
foreach my $var ( @list ) {
@@ -4778,7 +4777,7 @@ sub setup_logic_fates {
47784777
"use_fates_daylength_factor", "fates_photosynth_acclimation", "fates_stomatal_model",
47794778
"fates_stomatal_assimilation", "fates_leafresp_model", "fates_cstarvation_model",
47804779
"fates_regeneration_model", "fates_hydro_solver", "fates_radiation_model", "fates_electron_transport_model",
4781-
"use_fates_managed_fire"
4780+
"use_fates_managed_fire","fates_lu_transition_logic"
47824781
);
47834782

47844783
foreach my $var ( @list ) {
@@ -4791,6 +4790,7 @@ sub setup_logic_fates {
47914790
add_default($opts, $nl_flags->{'inputdata_rootdir'}, $definition, $defaults, $nl, 'use_fates_luh', 'use_fates'=>$nl_flags->{'use_fates'},
47924791
'use_fates_lupft'=>$nl->get_value('use_fates_lupft'),
47934792
'use_fates_potentialveg'=>$nl->get_value('use_fates_potentialveg'),
4793+
'fates_lu_transition_logic'=>$nl->get_value('fates_lu_transition_logic'),
47944794
'fates_harvest_mode'=>remove_leading_and_trailing_quotes($nl->get_value('fates_harvest_mode')) );
47954795
add_default($opts, $nl_flags->{'inputdata_rootdir'}, $definition, $defaults, $nl, 'use_fates_nocomp', 'use_fates'=>$nl_flags->{'use_fates'},
47964796
'use_fates_lupft'=>$nl->get_value('use_fates_lupft'),

‎bld/namelist_files/namelist_defaults_ctsm.xml‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2522,6 +2522,7 @@ lnd/clm2/surfdata_esmf/NEON/ctsm5.3.0/surfdata_1x1_NEON_TOOL_hist_2000_78pfts_c2
25222522
<fates_spitfire_mode use_fates=".true.">0</fates_spitfire_mode>
25232523
<fates_spitfire_mode use_fates=".true." use_fates_managed_fire=".true." >1</fates_spitfire_mode>
25242524
<fates_harvest_mode use_fates=".true.">no_harvest</fates_harvest_mode>
2525+
<fates_lu_transition_logic use_fates=".true.">0</fates_lu_transition_logic>
25252526
<fates_stomatal_model use_fates=".true.">ballberry1987</fates_stomatal_model>
25262527
<fates_stomatal_assimilation use_fates=".true.">net</fates_stomatal_assimilation>
25272528
<fates_leafresp_model use_fates=".true.">ryan1991</fates_leafresp_model>
@@ -2545,6 +2546,15 @@ lnd/clm2/surfdata_esmf/NEON/ctsm5.3.0/surfdata_1x1_NEON_TOOL_hist_2000_78pfts_c2
25452546
<use_fates_luh use_fates=".true." use_fates_lupft=".true.">.true.</use_fates_luh>
25462547
<use_fates_luh use_fates=".true." use_fates_potentialveg=".true.">.true.</use_fates_luh>
25472548
<use_fates_luh use_fates=".true." >.false.</use_fates_luh>
2549+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="1" >.true.</use_fates_luh>
2550+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="2" >.true.</use_fates_luh>
2551+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="3" >.true.</use_fates_luh>
2552+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="4" >.true.</use_fates_luh>
2553+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="5" >.true.</use_fates_luh>
2554+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="6" >.true.</use_fates_luh>
2555+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="7" >.true.</use_fates_luh>
2556+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="8" >.true.</use_fates_luh>
2557+
<use_fates_luh use_fates=".true." fates_lu_transition_logic="9" >.true.</use_fates_luh>
25482558
<fates_parteh_mode use_fates=".true.">1</fates_parteh_mode>
25492559
<fates_seeddisp_cadence use_fates=".true.">0</fates_seeddisp_cadence>
25502560
<use_fates_nocomp use_fates=".true." use_fates_sp=".true." >.true.</use_fates_nocomp>

‎bld/namelist_files/namelist_definition_ctsm.xml‎

Lines changed: 7 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -944,6 +944,13 @@ which processes the raw land use data from the THEMIS tool data sets
944944
(https://doi.org/10.5065/29s7-7b41)
945945
</entry>
946946

947+
<entry id="fates_lu_transition_logic" type="integer" category="physics"
948+
group="clm_inparm" valid_values="0,1,2,3,4,5,6,7,8,9">
949+
Select the logic for land use class transitions.
950+
Allowed values are 0 (off) and 1-9. See the FATES user guide for an explanation of the options.
951+
(Only relevant if FATES with land use is on)
952+
</entry>
953+
947954
<entry id="use_luna" type="logical" category="physics"
948955
group="clm_inparm" valid_values="" value=".false.">
949956
Toggle to turn on the LUNA model, to effect Photosynthesis by leaf Nitrogen

‎src/main/clm_varctl.F90‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -332,6 +332,7 @@ module clm_varctl
332332
! > 1 for external data (lightning and/or anthropogenic ignitions)
333333
! see bld/namelist_files/namelist_definition_clm4_5.xml for details
334334
logical, public :: use_fates_managed_fire = .false. ! true => turn on managed fire
335+
integer, public :: fates_lu_transition_logic = -9 ! controls logic around transition between land use classes
335336
logical, public :: use_fates_tree_damage = .false. ! true => turn on tree damage module
336337
character(len=256), public :: fates_harvest_mode = '' ! five different harvest modes; see namelist definition
337338
character(len=256), public :: fates_stomatal_model = '' ! stomatal conductance model, Ball-berry or Medlyn

‎src/main/controlMod.F90‎

Lines changed: 5 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -258,7 +258,9 @@ subroutine control_init(dtime)
258258
use_fates_daylength_factor, &
259259
fates_photosynth_acclimation, &
260260
fates_history_dimlevel, &
261-
use_fates_managed_fire
261+
use_fates_managed_fire, &
262+
fates_lu_transition_logic, &
263+
fates_history_dimlevel
262264

263265
! Ozone vegetation stress method
264266
namelist / clm_inparm / o3_veg_stress_method
@@ -818,6 +820,7 @@ subroutine control_spmd()
818820
call mpi_bcast (for_testing_allow_interp_non_ciso_to_ciso, 1, MPI_LOGICAL, 0, mpicom, ier)
819821

820822
call mpi_bcast (fates_spitfire_mode, 1, MPI_INTEGER, 0, mpicom, ier)
823+
call mpi_bcast (fates_lu_transition_logic, 1, MPI_INTEGER, 0, mpicom, ier)
821824
call mpi_bcast (fates_harvest_mode, len(fates_harvest_mode) , MPI_CHARACTER, 0, mpicom, ier)
822825
call mpi_bcast (fates_stomatal_model, len(fates_stomatal_model) , MPI_CHARACTER, 0, mpicom, ier)
823826
call mpi_bcast (fates_stomatal_assimilation, len(fates_stomatal_assimilation) , MPI_CHARACTER, 0, mpicom, ier)
@@ -1234,6 +1237,7 @@ subroutine control_print ()
12341237
if (use_fates) then
12351238
write(iulog, *) ' fates_spitfire_mode = ', fates_spitfire_mode
12361239
write(iulog, *) ' fates_harvest_mode = ', fates_harvest_mode
1240+
write(iulog, *) ' fates_lu_transition_logic = ', fates_lu_transition_logic
12371241
write(iulog, *) ' fates_stomatal_model = ', fates_stomatal_model
12381242
write(iulog, *) ' fates_stomatal_assimilation = ', fates_stomatal_assimilation
12391243
write(iulog, *) ' fates_leafresp_model = ', fates_leafresp_model

‎src/utils/clmfates_interfaceMod.F90‎

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -58,6 +58,7 @@ module CLMFatesInterfaceMod
5858
use clm_varctl , only : use_fates_ed_st3
5959
use clm_varctl , only : use_fates_ed_prescribed_phys
6060
use clm_varctl , only : fates_harvest_mode
61+
use clm_varctl , only : fates_lu_transition_logic
6162
use clm_varctl , only : fates_stomatal_model
6263
use clm_varctl , only : fates_stomatal_assimilation
6364
use clm_varctl , only : fates_leafresp_model
@@ -405,7 +406,6 @@ subroutine CLMFatesGlobals2()
405406

406407
integer :: pass_vertsoilc
407408
integer :: pass_ch4
408-
integer :: pass_spitfire
409409
integer :: pass_ed_st3
410410
integer :: pass_num_lu_harvest_cats
411411
integer :: pass_lu_harvest
@@ -663,6 +663,7 @@ subroutine CLMFatesGlobals2()
663663
end if
664664
call set_fates_ctrlparms('num_luh2_states',ival=pass_num_luh_states)
665665
call set_fates_ctrlparms('num_luh2_transitions',ival=pass_num_luh_transitions)
666+
call set_fates_ctrlparms('fates_lu_transition_logic',ival=fates_lu_transition_logic)
666667

667668
if ( use_fates_potentialveg ) then
668669
pass_use_potentialveg = 1

0 commit comments

Comments
 (0)