[Dart-dev] [3577] DART/trunk/diagnostics/threed_sphere/obs_diag.f90: Same fix as previous revision; needed to pass max of both U and V qc into

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080825/ad099c4a/attachment.html
-------------- next part --------------
Modified: DART/trunk/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2008-08-21 22:51:32 UTC (rev 3576)
+++ DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2008-08-25 22:47:23 UTC (rev 3577)
@@ -1075,7 +1075,7 @@
                      call IPE(analyAVG%NbadIZ(level_index,iregion,wflavor), 1)
                   endif
 
-                  call Bin3D(qc_integer, level_index,   iregion,    wflavor, &
+                  call Bin3D(maxval( (/qc_integer, U_qc/) ), level_index, iregion, wflavor, &
                       obs(1),  obs_err_var,   pr_mean,   pr_sprd,   po_mean,   po_sprd, &
                       U_obs, U_obs_err_var, U_pr_mean, U_pr_sprd, U_po_mean, U_po_sprd  ) 
                endif