Skip to content

Commit

Permalink
Trivial, changes some indents.
Browse files Browse the repository at this point in the history
  • Loading branch information
rgknox committed Apr 25, 2019
1 parent 3b15841 commit 4bf50a4
Showing 1 changed file with 9 additions and 8 deletions.
17 changes: 9 additions & 8 deletions biogeophys/FatesPlantRespPhotosynthMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -832,7 +832,7 @@ subroutine LeafLayerPhotosynthesis(f_sun_lsl, & ! in
psn_out, & ! out
rstoma_out, & ! out
anet_av_out, & ! out
c13disc_z) ! out
c13disc_z) ! out

! ------------------------------------------------------------------------------------
! This subroutine calculates photosynthesis and stomatal conductance within each leaf
Expand Down Expand Up @@ -965,15 +965,16 @@ subroutine LeafLayerPhotosynthesis(f_sun_lsl, & ! in
! ----------------------------------------------------------------------------------

if ( parsun_lsl <= 0._r8 ) then ! night time

anet_av_out = -lmr
psn_out = 0._r8
if(btran>0._r8) then
rstoma_out = min(rsmax0, cf*1._r8/(bbbopt(c3c4_path_index)*btran))
else
rstoma_out = rsmax0
endif
c13disc_z = 0.0_r8 !carbon 13 discrimination in night time carbon flux, note value of 1.0 is used in CLM
if(btran>0._r8) then
rstoma_out = min(rsmax0, cf*1._r8/(bbbopt(c3c4_path_index)*btran))
else
rstoma_out = rsmax0
endif

c13disc_z = 0.0_r8 !carbon 13 discrimination in night time carbon flux, note value of 1.0 is used in CLM

else ! day time (a little bit more complicated ...)

Expand Down

0 comments on commit 4bf50a4

Please sign in to comment.