[Dart-dev] [7857] DART/trunk/diagnostics/threed_sphere/obs_diag.f90: Improved format of the rank histogram count as per JIRA ticket DARTSUP-192

[nancy at ucar.edu]

Revision: 7857
Author:   thoar
Date:     2015-04-07 17:04:50 -0600 (Tue, 07 Apr 2015)
Log Message:
-----------
Improved format of the rank histogram count as per JIRA ticket DARTSUP-192

Modified Paths:
--------------
    DART/trunk/diagnostics/threed_sphere/obs_diag.f90

-------------- next part --------------
Modified: DART/trunk/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2015-04-07 22:34:40 UTC (rev 7856)
+++ DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2015-04-07 23:04:50 UTC (rev 7857)
@@ -4488,11 +4488,11 @@
          call nc_check(nf90_def_var(ncid, name=string2, xtype=nf90_int, &
              dimids=(/ RegionDimID, LevelDimID, RankDimID, TimeDimID /), &
              varid=VarID), 'WriteTLRV', 'rank_hist:def_var '//trim(string2))
-      else
-         write(logfileunit,*)string2//' has ',ndata,'"rank"able observations.'
-         write(     *     ,*)string2//' has ',ndata,'"rank"able observations.'
       endif
 
+      write(string3,*)ndata,' observations '//trim(string2)
+      call error_handler(E_MSG,'Rank Histogram',string3)
+
    endif
 
 enddo DEFINE