Fix bug ESCOMP#953 where day-time tleaf10 was used instead of night-time

ekluzek · Apr 2, 2020 · 89704ce · 89704ce
1 parent 384c726
commit 89704ce
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/biogeophys/LunaMod.F90 b/src/biogeophys/LunaMod.F90
@@ -332,7 +332,7 @@ subroutine Update_Photosynthesis_Capacity(bounds, fn, filterp, &
          hourpd = dayl(g) / 3600._r8             
          tleafd10 = t_veg10_day(p) - tfrz
          tleafn10 = t_veg10_night(p) - tfrz
-         tleaf10  = (dayl(g)*tleafd10 +(86400._r8-dayl(g)) * tleafd10)/86400._r8 	     
+         tleaf10  = (dayl(g)*tleafd10 +(86400._r8-dayl(g)) * tleafn10)/86400._r8
          tair10 = t10(p)- tfrz
          relh10 = min(1.0_r8, rh10_p(p))  
 	 rb10v = rb10_p(p)