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.

Sign up for GitHub

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

Jump to bottom

[PULL REQUEST] Ecophysiology module that simulates stomatal resistance, plant productivity and isoprene emission #629

Open
wants to merge 12 commits into
base: main
Choose a base branch
from
Open

[PULL REQUEST] Ecophysiology module that simulates stomatal resistance, plant productivity and isoprene emission #629

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
12 commits
Select commit Hold shift + click to select a range
fc136de
Implement ecophysiology module and PFT-specific dry deposition veloci…
joeylamcy Jun 22, 2020
cb9b102
Implement photosynthesis-dependent isoprene emission.
joeylamcy Oct 29, 2020
0c4d1de
Merge branch 'isop_emis_12.9.3' from old science codebase into featur…
joeylamcy Feb 8, 2021
c9c40d0
Bug fix after merge
joeylamcy Feb 8, 2021
3b1816f
Add ecophysiology options in run directory.
joeylamcy Feb 8, 2021
b5bb932
Merge branch 'feature/ecophys_module' of https://github.com/amospktai…
joeylamcy Feb 20, 2021
2523636
Remove redundant codes in mixing_mod.F90
joeylamcy Feb 20, 2021
3333947
Add DryDepVelPFT collection, disable ecophysiology collection by default
joeylamcy Feb 19, 2021
488ef74
Rename "Ecophys_const" collection name
joeylamcy Feb 22, 2021
dbc626c
Changed ozone damage option 'HI' to 'HIGH'.
joeylamcy Feb 25, 2021
756a9ed
use NUMPFT instead of a fixed number in Init_Ecophy
joeylamcy Feb 25, 2021
fb0bf49
Bug fix: Character length of O3DmgOpt in ecophy_mod should be 4
joeylamcy Feb 26, 2021
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions GeosCore/CMakeLists.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -55,6 +55,7 @@ add_library(GeosCore
diag53_mod.F90
drydep_mod.F90
dust_mod.F90
ecophy_mod.F90
emissions_mod.F90
fast_jx_mod.F90
flexchem_mod.F90
Expand Down
45 changes: 45 additions & 0 deletions GeosCore/diagnostics_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -231,6 +231,7 @@ SUBROUTINE Zero_Diagnostics_StartofTimestep( Input_Opt, State_Diag, RC )
!
USE Input_Opt_Mod, ONLY : OptInput
USE State_Diag_Mod, ONLY : DgnState
USE Time_Mod, ONLY : ITS_TIME_FOR_EMIS
!
! !INPUT PARAMETERS:
!
Expand Down Expand Up @@ -310,6 +311,50 @@ SUBROUTINE Zero_Diagnostics_StartofTimestep( Input_Opt, State_Diag, RC )
ENDIF
ENDIF

! Zero diagnostics here
IF ( ITS_TIME_FOR_EMIS() ) THEN
! Zero diagnostics here
IF ( State_Diag%Archive_EcophyGCan ) THEN
State_Diag%EcophyGCan ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyACan ) THEN
State_Diag%EcophyACan ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyRespCan ) THEN
State_Diag%EcophyRespCan ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyCO2Leaf ) THEN
State_Diag%EcophyCO2Leaf ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyFluxO3Can ) THEN
State_Diag%EcophyFluxO3Can ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyO3DmgFac ) THEN
State_Diag%EcophyO3DmgFac ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophySoilStress ) THEN
State_Diag%EcophySoilStress ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyVCMax ) THEN
State_Diag%EcophyVCMax ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyLightLmtRate ) THEN
State_Diag%EcophyLightLmtRate ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyRubisLmtRate ) THEN
State_Diag%EcophyRubisLmtRate ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyProdLmtRate ) THEN
State_Diag%EcophyProdLmtRate ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyAGrossLeaf ) THEN
State_Diag%EcophyAGrossLeaf ( :,:,: ) = 0.0_f4
ENDIF
IF ( State_Diag%Archive_EcophyIsopEmisPFT ) THEN
State_Diag%EcophyIsopEmisPFT ( :,:,: ) = 0.0_f4
ENDIF
ENDIF

END SUBROUTINE Zero_Diagnostics_StartofTimestep
!EOC
!------------------------------------------------------------------------------
Expand Down
Loading