Remove local version of max_cs so that the global one will be used fi…

…xing ESCOMP#1394
ekluzek · Sep 20, 2021 · ebcd92d · ebcd92d
1 parent c3aea99
commit ebcd92d
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/src/biogeophys/PhotosynthesisMod.F90 b/src/biogeophys/PhotosynthesisMod.F90
@@ -4241,7 +4241,6 @@ subroutine ci_func_PHS(x,cisun, cisha, fvalsun, fvalsha, p, iv, c, bsun, bsha, b
     real(r8) :: aquad, bquad, cquad  ! terms for quadratic equations
     real(r8) :: r1, r2               ! roots of quadratic equation
     real(r8) :: term                 ! intermediate in Medlyn stomatal model
-    real(r8), parameter :: max_cs = 10.e-06_r8  ! Max CO2 partial pressure at leaf surface (Pa) for PHS
     !
     !------------------------------------------------------------------------------