adds temperature sensitive desorption to reverseCN code #46

wwieder · Apr 9, 2021 · ea713eb · ea713eb
1 parent c384217
commit ea713eb
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/SOURCE_CODE/mimics_cycle_CN.f90 b/SOURCE_CODE/mimics_cycle_CN.f90
@@ -1078,8 +1078,8 @@ SUBROUTINE mimics_soil_reverseMM(mp,iYrCnt,idoy,mdaily,cleaf2met,cleaf2str,croot
       CorgSum1 = mimicspool%LITm(npt) + mimicspool%LITs(npt) + &
                  mimicspool%SOMa(npt) + mimicspool%SOMc(npt) + mimicspool%SOMp(npt)
 
-      ! Desorption a function of soil temperautre, Q10 = 1.3 w/ reference temperature of 25C
-      mimicsbiome%desorb(npt) = mimicsbiome%desorb(npt) * 1.3 * exp((Tsoil-25)/10)
+      ! Desorption a function of soil temperautre, Q10 = 1.2 w/ reference temperature of 25C
+      mimicsbiome%desorb(npt) = mimicsbiome%desorb(npt) * 1.2 * exp((Tsoil-25)/10)
 
 do ihr = 1, NHOURS
 
@@ -1657,7 +1657,11 @@ SUBROUTINE mimics_soil_reverseMM_CN(mp,iYrCnt,idoy,mdaily,cleaf2met,cleaf2str,cr
                                * mimicsbiome%ak(K2) / mimicsbiome%Kmod(npt,K2)
       mimicsbiome%Km(npt,K3) = exp(mimicsbiome%Kslope(K3) * Tsoil + mimicsbiome%Kint(K3)) &
                                * mimicsbiome%ak(K3) / mimicsbiome%Kmod(npt,K3)
-
+
+      ! Desorption a function of soil temperautre, Q10 = 1.2 w/ reference
+      ! temperature of 25C
+      mimicsbiome%desorb(npt) = mimicsbiome%desorb(npt) * 1.2 * exp((Tsoil-25)/10)
+
       CorgSum1 = mimicspool%LITm(npt) + mimicspool%LITs(npt) + &
                  mimicspool%SOMa(npt) + mimicspool%SOMc(npt) + mimicspool%SOMp(npt)
       NorgSum1 = mimicspool%LITmN(npt) + mimicspool%LITsN(npt) + &