[Dart-dev] DART/branches Revision: 12902

[dart at ucar.edu]

thoar at ucar.edu
2018-10-10 15:17:21 -0600 (Wed, 10 Oct 2018)
147
Only replacing timesteps where there was a change ... and
a correction to the previous message.  The median+noise is used
to replace the outlier.




Modified: DART/branches/cesm_clm/models/clm/clean_forcing.f90
===================================================================
--- DART/branches/cesm_clm/models/clm/clean_forcing.f90	2018-10-10 21:05:32 UTC (rev 12901)
+++ DART/branches/cesm_clm/models/clm/clean_forcing.f90	2018-10-10 21:17:21 UTC (rev 12902)
@@ -259,7 +259,7 @@
 
    write(*,*)'timestep ',itime,' had ',num_outliers, &
              ' values replaced when criterion is ',criterion
-   call write_tensor(itime)
+   if (num_outliers > 0_i8) call write_tensor(itime)
 
 enddo TIMESTEP