[Dart-dev] [4880] DART/trunk/assim_tools/assim_tools_mod.f90: Fix one line where a numerical constant did not have an explicit _r8 size.

[nancy at ucar.edu]

Revision: 4880
Author:   nancy
Date:     2011-05-03 13:39:48 -0600 (Tue, 03 May 2011)
Log Message:
-----------
Fix one line where a numerical constant did not have an explicit _r8 size.
No other change in code or behavior.

Modified Paths:
--------------
    DART/trunk/assim_tools/assim_tools_mod.f90

-------------- next part --------------
Modified: DART/trunk/assim_tools/assim_tools_mod.f90
===================================================================
--- DART/trunk/assim_tools/assim_tools_mod.f90	2011-05-02 22:54:16 UTC (rev 4879)
+++ DART/trunk/assim_tools/assim_tools_mod.f90	2011-05-03 19:39:48 UTC (rev 4880)
@@ -1462,7 +1462,7 @@
 if(sampling_error_correction) then
    call get_correction_from_file(ens_size, correl, mean_factor, exp_true_correl)
    ! Watch out for division by zero; if correl is really small regression is safely 0
-   if(abs(correl) > 0.001) then
+   if(abs(correl) > 0.001_r8) then
       reg_coef = reg_coef * (exp_true_correl / correl) * mean_factor
    else
       reg_coef = 0.0_r8