fixed hard-coded pft index in grperc found in photosynthesis

NGEET · Oct 13, 2016 · d0150fe · d0150fe
1 parent 4ecda62
commit d0150fe
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/components/clm/src/ED/biogeophys/EDPhotosynthesisMod.F90 b/components/clm/src/ED/biogeophys/EDPhotosynthesisMod.F90
@@ -960,7 +960,7 @@ subroutine Photosynthesis_ED (nsites, sites,bc_in,bc_out,dtime)
                      if ( DEBUG ) write(iulog,*) 'EDPhoto 912 ', currentCohort%resp_tstep
                      if ( DEBUG ) write(iulog,*) 'EDPhoto 913 ', currentCohort%resp_m
 
-                     currentCohort%resp_g     = ED_val_grperc(1) * (max(0._r8,currentCohort%gpp_tstep - currentCohort%resp_m))
+                     currentCohort%resp_g     = ED_val_grperc(ft) * (max(0._r8,currentCohort%gpp_tstep - currentCohort%resp_m))
                      currentCohort%resp_tstep = currentCohort%resp_m + currentCohort%resp_g ! kgC/indiv/ts    
                      currentCohort%npp_tstep  = currentCohort%gpp_tstep - currentCohort%resp_tstep  ! kgC/indiv/ts
 

diff --git a/components/clm/src/utils/clmfates_interfaceMod.F90 b/components/clm/src/utils/clmfates_interfaceMod.F90
@@ -1063,7 +1063,6 @@ subroutine wrap_photosynthesis(this, nc, bounds, fn, filterp, &
     use perf_mod          , only : t_startf, t_stopf
     use PatchType         , only : patch
     use quadraticMod      , only : quadratic
-    use EDParamsMod       , only : ED_val_grperc
     use EDSharedParamsMod , only : EDParamsShareInst
     use EDTypesMod        , only : numpft_ed, dinc_ed
     use EDtypesMod        , only : ed_patch_type, ed_cohort_type, ed_site_type, numpft_ed, numPatchesPerCol