Skip to content

Commit

Permalink
remove some commented lines
Browse files Browse the repository at this point in the history
no answer change with respect to the last commit
  • Loading branch information
jinyuntang committed Apr 20, 2017
1 parent d3b8fd7 commit 28d854c
Showing 1 changed file with 0 additions and 4 deletions.
4 changes: 0 additions & 4 deletions components/clm/src/biogeophys/PhotosynthesisMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1393,10 +1393,6 @@ subroutine ci_func(ci, fval, p, iv, c, gb_mol, je, cair, oair, lmr_z, par_z,&
! Net photosynthesis. Exit iteration if an < 0

an(p,iv) = ag(p,iv) - lmr_z
! if (an(p,iv) < 0._r8) then
! fval = 0._r8
! return
! endif
! Quadratic gs_mol calculation with an known. Valid for an >= 0.
! With an <= 0, then gs_mol = bbb
if(an(p,iv)<=0.0)then
Expand Down

0 comments on commit 28d854c

Please sign in to comment.