diff --git a/trunk/NDHMS/HYDRO_drv/module_HYDRO_drv.F b/trunk/NDHMS/HYDRO_drv/module_HYDRO_drv.F index 1a6367b21..4598c8e1b 100644 --- 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...", &