0 CO2 shouldn't be the default (300 ppm should be), and adding resiliency to SimBA for if CO2 IS zero
This commit is contained in:
1 parent
e8be90dc7b
commit
68f75f1492
2 files changed
+12
-4
No files matched your search
@@ -1874,7 +1874,7 @@ References
|
||||
if pressure != self.pressure: #User has specified a different pressure than sum of gas pressures
|
||||
self.pressure = pressure
|
||||
|
||||
self.CO2ppmv = 0.0
|
||||
self.CO2ppmv = 300.0
|
||||
if 'pCO2' in self.pgases:
|
||||
self.CO2ppmv = self.pgases['pCO2']/self.pressure * 1.0e6 #ppmv
|
||||
|
||||
|
||||
@@ -326,8 +326,12 @@ implicit none
|
||||
|
||||
cveg_e = atan(cveg_d) ! forest cover
|
||||
cveg_g = atan(-cveg_f) ! soil cover
|
||||
zbeta = max(0.,1.+co2_sens*log((co2-co2_comp)/(co2_ref-co2_comp)))
|
||||
|
||||
if (co2 .lt. 1.0e-8) then !No CO2 limit
|
||||
zbeta = 0.0
|
||||
else
|
||||
zbeta = max(0.,1.+co2_sens*log((co2-co2_comp)/(co2_ref-co2_comp)))
|
||||
endif
|
||||
|
||||
! Following plasim arrays are used but not modified
|
||||
! -------------------------------------------------
|
||||
! dwatc(:) = soil wetness [m]
|
||||
@@ -377,7 +381,11 @@ do jhor = 1 , NHOR
|
||||
! co2 : initialized with 360.0 [ppmv] - member of namelist $RADPAR
|
||||
! co2conv: - member of namelist $LANDPAR
|
||||
|
||||
zgppw = co2conv * dp(jhor) * zveg * (-devap(jhor)) / zvpd * (0.3 * co2)
|
||||
if (co2 .lt. 1.0e-8) then !In limit of no CO2 there's no growth
|
||||
zgppw = 0.
|
||||
else
|
||||
zgppw = co2conv * dp(jhor) * zveg * (-devap(jhor)) / zvpd * (0.3 * co2)
|
||||
endif
|
||||
zgppw = min(1.0,max(0.0,zgppw)) ! limit to range (0..1)
|
||||
|
||||
! combine light & water limitations (eq. 6.1 PlaSim RM)
|
||||
|
||||
Reference in new issue
Block a user