reduced thresholds for cohort termination due to small number densiti…

…es to allow cohorts to demote successfully
NGEET · Feb 22, 2017 · 3a7b068 · 3a7b068
1 parent dd04f15
commit 3a7b068
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/components/clm/src/ED/main/EDTypesMod.F90 b/components/clm/src/ED/main/EDTypesMod.F90
@@ -67,12 +67,12 @@ module EDTypesMod
   integer , parameter :: N_DBH_BINS           = 5          ! no. of dbh bins used when comparing patches
 
 
-  real(r8), parameter :: min_npm2       = 1.0d-5   ! minimum cohort number density per m2 before termination
-  real(r8), parameter :: min_patch_area = 0.001_r8 ! smallest allowable patch area before termination
-  real(r8), parameter :: min_nppatch    = 1.0d-8   ! minimum number of cohorts per patch (min_npm2*min_patch_area)
-  real(r8), parameter :: min_n_safemath = 1.0d-15  ! in some cases, we want to immediately remove super small
-                                                   ! number densities of cohorts to prevent FPEs, this is usually
-                                                   ! just relevant in the first day after recruitment
+  real(r8), parameter :: min_npm2       = 1.0E-8_r8  ! minimum cohort number density per m2 before termination
+  real(r8), parameter :: min_patch_area = 0.001_r8   ! smallest allowable patch area before termination
+  real(r8), parameter :: min_nppatch    = 1.0E-11_r8 ! minimum number of cohorts per patch (min_npm2*min_patch_area)
+  real(r8), parameter :: min_n_safemath = 1.0E-15_r8 ! in some cases, we want to immediately remove super small
+                                                     ! number densities of cohorts to prevent FPEs, this is usually
+                                                     ! just relevant in the first day after recruitment
 
   character*4 yearchar