adding use statements for landuse

glemieux · Apr 20, 2023 · e25e4a8 · e25e4a8
1 parent 9775537
commit e25e4a8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 3 deletions.
diff --git a/components/elm/src/external_models/fates b/components/elm/src/external_models/fates
diff --git a/components/elm/src/main/elm_initializeMod.F90 b/components/elm/src/main/elm_initializeMod.F90
@@ -12,7 +12,7 @@ module elm_initializeMod
   use elm_varctl       , only : nsrest, nsrStartup, nsrContinue, nsrBranch
   use elm_varctl       , only : create_glacier_mec_landunit, iulog
   use elm_varctl       , only : use_lch4, use_cn, use_voc, use_c13, use_c14
-  use elm_varctl       , only : use_fates, use_betr, use_fates_sp
+  use elm_varctl       , only : use_fates, use_betr, use_fates_sp, use_fates_luh
   use elm_varsur       , only : wt_lunit, urban_valid, wt_nat_patch, wt_cft, wt_glc_mec, topo_glc_mec,firrig,f_surf,f_grd 
   use elm_varsur       , only : fert_cft
   use elm_varsur       , only : wt_tunit, elv_tunit, slp_tunit,asp_tunit,num_tunit_per_grd
@@ -501,6 +501,8 @@ subroutine initialize2( )
     use clm_time_manager      , only : is_restart
     use ELMbetrNLMod          , only : betr_namelist_buffer
     use ELMFatesInterfaceMod  , only: ELMFatesTimesteps
+
+    use dynFATESLandUseChangeMod, only : dynFatesLandUseInit
     !
     ! !ARGUMENTS
     implicit none

diff --git a/components/elm/src/main/elmfates_interfaceMod.F90 b/components/elm/src/main/elmfates_interfaceMod.F90
@@ -163,7 +163,8 @@ module ELMFatesInterfaceMod
    use FatesConstantsMod      , only : hlm_harvest_carbon
 
    use dynFATESLandUseChangeMod, only : num_landuse_transition_vars, num_landuse_state_vars
-   use dynFATESLandUseChangeMod, only : landuse_transitions             ! these are dynamic in space and time
+   use dynFATESLandUseChangeMod, only : landuse_transitions, landuse_states
+   use dynFATESLandUseChangeMod, only : landuse_transition_varnames, landuse_state_varnames
 
    use FatesInterfaceTypesMod       , only : bc_in_type, bc_out_type
    use CLMFatesParamInterfaceMod    , only : FatesReadParameters
+15 −11		biogeochem/EDPatchDynamicsMod.F90
+1 −0		main/EDInitMod.F90