Skip to content

Commit

Permalink
Merge pull request #394 from mpaiao/mpaiao-pr-phenol
Browse files Browse the repository at this point in the history 
Additional IPHEN_SCHEME option
  • Loading branch information
@mpaiao
mpaiao authored Jul 24, 2024
2 parents b75775f + 0e243a8 commit caf4a9e
Show file tree
Hide file tree
Showing 14 changed files with 257 additions and 72 deletions.
15 changes: 15 additions & 0 deletions BRAMS/Template/RAMSIN
View file
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
View file
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
View file
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
View file
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
View file
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

0 comments on commit caf4a9e

Please sign in to comment.