a further fix on the laican indexing

rgknox · Mar 20, 2018 · a181d48 · a181d48
1 parent 436ef98
commit a181d48
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/biogeophys/FatesPlantRespPhotosynthMod.F90 b/biogeophys/FatesPlantRespPhotosynthMod.F90
@@ -327,7 +327,7 @@ subroutine FatesPlantRespPhotosynthDrive (nsites, sites,bc_in,bc_out,dtime)
                         if(cl==1)then !are we in the top canopy layer or a shaded layer?
                            laican = 0._r8
                         else
-                           laican = sum(currentPatch%canopy_layer_lai(cl+1:NCL_p)) 
+                           laican = sum(currentPatch%canopy_layer_lai(1:cl-1)) 
                         end if
 
                         ! Loop over leaf-layers