Update biogeochem/EDCanopyStructureMod.F90

Co-Authored-By: rgknox <[email protected]>
NordicESMhub · Jan 11, 2019 · 5a617ea · 5a617ea
1 parent 14bceb8
commit 5a617ea
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/biogeochem/EDCanopyStructureMod.F90 b/biogeochem/EDCanopyStructureMod.F90
@@ -828,7 +828,7 @@ subroutine PromoteIntoLayer(currentSite,currentPatch,i_lyr)
 
                      ! ------------------------------------------------------------------
                      ! Rank ordered deterministic method
-                     ! If there cohorts that have the exact same height (which is possible, really)
+                     ! If there are cohorts that have the exact same height (which is possible, really)
                      ! we don't want to unilaterally promote/demote one before the others. 
                      ! So we <>mote them as a unit
                      ! now we need to go through and figure out how many equal-size cohorts there are.