From 0551c368c35a1d736e576d8bfa9b1996ba00d355 Mon Sep 17 00:00:00 2001 From: drnimbusrain Date: Mon, 26 Feb 2024 15:04:36 -0500 Subject: [PATCH] Allowing gamma soil moisture factor for all biogenic species. --- src/canopy_bioemi_mod.F90 | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/canopy_bioemi_mod.F90 b/src/canopy_bioemi_mod.F90 index 3fc012d9..89dad9c4 100644 --- a/src/canopy_bioemi_mod.F90 +++ b/src/canopy_bioemi_mod.F90 @@ -187,13 +187,9 @@ SUBROUTINE CANOPY_BIO( ZK, FCLAI, FCH, LAI, FSUN, PPFD_SUN, & GAMMACO2 = 1.0_rk end if -! Get Soil Moisture Factor for isoprene only - if (EMI_IND .eq. 1) then !Isoprene - GAMMASOIM = GET_GAMMA_SOIM(SOIMOPT,SOIM1,SOIM2,SOIM3,SOIM4,SOID1,SOID2,SOID3,SOID4,WILT, & - ROOTA,ROOTB) - else - GAMMASOIM = 1.0_rk - end if +! Get Soil Moisture Factor + GAMMASOIM = GET_GAMMA_SOIM(SOIMOPT,SOIM1,SOIM2,SOIM3,SOIM4,SOID1,SOID2,SOID3,SOID4,WILT, & + ROOTA,ROOTB) ! Get LEAF AGE factor TABOVECANOPY = TEMP2 !TEMP2 (above air temp) for TABOVECANOPY