fixed pointer to c_area in dem/prom

Author: rgknox

biogeochem/EDCanopyStructureMod.F90

@@ -489,7 +489,7 @@ subroutine PromoteOrDemote(site,patch,target_layer,phase,target_area)
             ! it less readable)"
 
             do ic = 1,n_layer
-               layer_co(ic)%pd_area = layer_co(ic)%c_area
+               layer_co(ic)%pd_area = layer_co(ic)%p%c_area
             end do
 
          else