Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Additional IPHEN_SCHEME option #394

Merged
merged 8 commits into from
Jul 24, 2024
Merged
15 changes: 15 additions & 0 deletions BRAMS/Template/RAMSIN
Original file line number Diff line number Diff line change
Expand Up @@ -2438,10 +2438,25 @@ $ED2_INFO
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 4: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 5: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme + light phenology); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! !
! Old scheme: plants shed their leaves once instantaneous amount of available water !
! becomes less than a critical value. !
! New scheme: plants shed their leaves once a 10-day running average of available !
! water becomes less than a critical value. !
! Hydraulics scheme: plants shed their leaves once predawn leaf water potential is !
! lower than tugor loss point for 10 consecutive days !
!---------------------------------------------------------------------------------------!
IPHEN_SCHEME = 2,
!---------------------------------------------------------------------------------------!
Expand Down
15 changes: 15 additions & 0 deletions BRAMS/run/RAMSIN
Original file line number Diff line number Diff line change
Expand Up @@ -2456,10 +2456,25 @@ $ED2_INFO
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 4: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 5: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme + light phenology); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! !
! Old scheme: plants shed their leaves once instantaneous amount of available water !
! becomes less than a critical value. !
! New scheme: plants shed their leaves once a 10-day running average of available !
! water becomes less than a critical value. !
! Hydraulics scheme: plants shed their leaves once predawn leaf water potential is !
! lower than tugor loss point for 10 consecutive days !
!---------------------------------------------------------------------------------------!
IPHEN_SCHEME = 2,
!---------------------------------------------------------------------------------------!
Expand Down
15 changes: 15 additions & 0 deletions ED/Template/Template/ED2IN
Original file line number Diff line number Diff line change
Expand Up @@ -972,10 +972,25 @@ $ED_NL
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 4: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 5: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme + light phenology); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! !
! Old scheme: plants shed their leaves once instantaneous amount of available water !
! becomes less than a critical value. !
! New scheme: plants shed their leaves once a 10-day running average of available !
! water becomes less than a critical value. !
! Hydraulics scheme: plants shed their leaves once predawn leaf water potential is !
! lower than tugor loss point for 10 consecutive days !
!---------------------------------------------------------------------------------------!
NL%IPHEN_SCHEME = myiphen
!---------------------------------------------------------------------------------------!
Expand Down
7 changes: 7 additions & 0 deletions ED/run/ED2IN
Original file line number Diff line number Diff line change
Expand Up @@ -984,12 +984,19 @@ $ED_NL
! tropical - drought-deciduous (light phenology); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 4: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! 5: (Beta). !
! grasses - drought-deciduous (hydraulics scheme); !
! tropical - drought-deciduous (hydraulics scheme + light phenology); !
! conifers - evergreen; !
! hardwoods - cold-deciduous; !
! !
! !
! Old scheme: plants shed their leaves once instantaneous amount of available water !
! becomes less than a critical value. !
Expand Down
4 changes: 2 additions & 2 deletions ED/src/dynamics/phenology_aux.f90
Original file line number Diff line number Diff line change
Expand Up @@ -288,7 +288,7 @@ subroutine update_turnover(cpoly, isi)
!------------------------------------------------------------------------------------!
sitepft_loop: do ipft=1,n_pft
select case (phenology(ipft))
case (3)
case (3,6)
!------ The actual turnover amplitude is based on a running average. ----------!
cpoly%turnover_amp(isi) = (1.0 - turnamp_wgt) * cpoly%turnover_amp(isi) &
+ turnamp_wgt * turnamp_now
Expand Down Expand Up @@ -414,7 +414,7 @@ subroutine update_turnover(cpoly, isi)
! -modulated. !
!------------------------------------------------------------------------------!
select case (phenology(ipft))
case (3)
case (3,6)
!----- Update the data set. ------------------------------------------------!
cpatch%llspan(ico) = cpatch%llspan (ico) &
* cpoly%llspan_toc(ipft,isi) / llspan_toc_in(ipft)
Expand Down
Loading
Loading