Fixed comment typo

rgknox · rgknox · commit f6734abc8707 · 2019-04-05T13:29:21.000-07:00
diff --git a/biogeochem/EDCanopyStructureMod.F90 b/biogeochem/EDCanopyStructureMod.F90
@@ -1041,7 +1041,7 @@ subroutine PromoteIntoLayer(currentSite,currentPatch,i_lyr)
                   
                else
                   
-                  ! Non-trivial case, at least 1 cohort's demotion
+                  ! Non-trivial case, at least 1 cohort's promotion
                   ! rate would exceed its area, given the trivial scale factor
                   
                   area_res         = 0._r8
