Merge pull request #111 from aubreyd/master

SMCMAX exceed check fix
NCAR · Aug 6, 2018 · 9474111 · 9474111
2 parents c7f4c41 + 7d11727
commit 9474111
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/trunk/NDHMS/HYDRO_drv/module_HYDRO_drv.F b/trunk/NDHMS/HYDRO_drv/module_HYDRO_drv.F
@@ -1154,7 +1154,7 @@ subroutine aggregateDomain(did)
 !end 
 
 !ADCHANGE: Change to accept very small diff since was being triggered by vals that print identical
-IF ( (RT_DOMAIN(did)%SMCRT(IXXRT,JYYRT,KRT)-RT_DOMAIN(did)%SMCMAXRT(IXXRT,JYYRT,KRT)) .GT. 0.000001 ) THEN
+IF ( (RT_DOMAIN(did)%SMCRT(IXXRT,JYYRT,KRT)-RT_DOMAIN(did)%SMCMAXRT(IXXRT,JYYRT,KRT)) .GT. 0.00001 ) THEN
 #ifdef HYDRO_D
 #ifndef NCEP_WCOSS
                       print *, "SMCMAX exceeded upon aggregation...", &