[Dart-dev] DART/branches Revision: 12134

[dart at ucar.edu]

thoar at ucar.edu
2017-11-20 16:51:41 -0700 (Mon, 20 Nov 2017)
64
Correcting the determination of the minimum observation error.




Modified: DART/branches/cesm_clm/observations/obs_converters/MODIS/MOD15A2_to_obs.f90
===================================================================
--- DART/branches/cesm_clm/observations/obs_converters/MODIS/MOD15A2_to_obs.f90	2017-11-20 23:30:35 UTC (rev 12133)
+++ DART/branches/cesm_clm/observations/obs_converters/MODIS/MOD15A2_to_obs.f90	2017-11-20 23:51:41 UTC (rev 12134)
@@ -872,7 +872,7 @@
    endif
    qc    = real(bits567,r8)
    obval = modis%Fpar
-   oerr  = min(0.1_r8, (modis%FparStdDev*modis%Fpar))
+   oerr  = max(0.1_r8, (modis%FparStdDev*modis%Fpar))
 
    call create_3d_obs(latitude, longitude, 0.0_r8, VERTISSURFACE, obval, &
                MODIS_FPAR, oerr, oday, osec, qc, obs)
@@ -891,7 +891,7 @@
    endif
    qc    = real(bits567,r8)
    obval = modis%Lai
-   oerr  = min(0.1_r8, modis%LaiStdDev)
+   oerr  = max(0.1_r8, modis%LaiStdDev)
 
    call create_3d_obs(latitude, longitude, 0.0_r8, VERTISSURFACE, obval, &
                MODIS_LEAF_AREA_INDEX, oerr, oday, osec, qc, obs)