moved calculation of c_area to happen before its used.

NGEET · Jun 14, 2016 · 9393283 · 9393283
1 parent 4b974a8
commit 9393283
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/main/EDCLMLinkMod.F90 b/main/EDCLMLinkMod.F90
@@ -1093,10 +1093,10 @@ subroutine ed_clm_link( this, bounds, sites, nsites, fcolumn, waterstate_inst, c
 
                   currentCohort%b = currentCohort%balive+currentCohort%bdead+currentCohort%bstore
                   currentCohort%treelai = tree_lai(currentCohort)
-                  ! Why is currentCohort%c_area used and then reset in the
-                  ! following line?
-                  canopy_leaf_area = canopy_leaf_area + currentCohort%treelai *currentCohort%c_area
+
                   currentCohort%c_area = c_area(currentCohort)
+                  canopy_leaf_area = canopy_leaf_area + currentCohort%treelai *currentCohort%c_area
+
 
                   if(currentCohort%canopy_layer==1)then
                      currentPatch%total_canopy_area = currentPatch%total_canopy_area + currentCohort%c_area