changed hite to height

NGEET · Dec 19, 2023 · 4e818e8 · 4e818e8
1 parent 3f755f0
commit 4e818e8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/biogeochem/FatesLandUseChangeMod.F90 b/biogeochem/FatesLandUseChangeMod.F90
@@ -318,7 +318,7 @@ end subroutine CheckLUHData
 
   !----------------------------------------------------------------------------------------------------
 
-  subroutine fates_grazing(prt, ft, land_use_label, hite)
+  subroutine fates_grazing(prt, ft, land_use_label, height)
 
     use PRTGenericMod,    only : leaf_organ
     use PRTGenericMod,    only : prt_vartypes
@@ -329,7 +329,7 @@ subroutine fates_grazing(prt, ft, land_use_label, hite)
     class(prt_vartypes), intent(inout), pointer :: prt
     integer, intent(in)  :: ft
     integer, intent(in)  :: land_use-label
-    real(r8), intent(in) :: hite
+    real(r8), intent(in) :: height
 
     real(r8) :: grazing_rate    ! rate of grazing (or browsing) of leaf tissue [day -1]
 
@@ -338,7 +338,7 @@ subroutine fates_grazing(prt, ft, land_use_label, hite)
     if ( grazing_rate .gt. 0._r8) then
        if (woody(ft)) then
           grazing_rate = grazing_rate * &
-               max(0._r8, min(1._r8, (fates_landuse_grazing_maxheight - hite*fates_allom_crown_depth_frac(ft)/(hite - hite*fates_allom_crown_depth_frac(ft)))))
+               max(0._r8, min(1._r8, (fates_landuse_grazing_maxheight - height*fates_allom_crown_depth_frac(ft)/(height - height*fates_allom_crown_depth_frac(ft)))))
        endif
 
        call PRTHerbivoryLosses(prt, leaf_organ, grazing_rate)

diff --git a/main/EDMainMod.F90 b/main/EDMainMod.F90
@@ -525,7 +525,7 @@ subroutine ed_integrate_state_variables(currentSite, bc_in, bc_out )
                   AREA_INV * currentCohort%n / hlm_days_per_year / sec_per_day
 
              ! allow herbivores to graze
-             call fates_grazing(currentCohort%prt, ft, currentPatch%land_use_label, currentCohort%hite)
+             call fates_grazing(currentCohort%prt, ft, currentPatch%land_use_label, currentCohort%height)
 
              ! Conduct Maintenance Turnover (parteh)
              if(debug) call currentCohort%prt%CheckMassConservation(ft,3)