[Dart-dev] [3227] DART/trunk/diagnostics/threed_sphere/obs_diag.f90: fixed an IBM XLF complaint that four other compilers on three architectures did not complain about .

[thoar at subversion.ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20080212/9e24ca21/attachment.html
-------------- next part --------------
Modified: DART/trunk/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2008-02-12 18:58:51 UTC (rev 3226)
+++ DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2008-02-12 19:05:54 UTC (rev 3227)
@@ -1178,8 +1178,8 @@
 write(nsigmaUnit,'(''last bin contains all (flagged) bad observations'')')
 do i=0,MaxSigmaBins
    if(nsigma(i) /= 0) then
-      write(     *    ,'(''(prior) innovations in stdev bin '',i3,'' = '',i10)'),i+1,nsigma(i)
-      write(nsigmaUnit,'(''(prior) innovations in stdev bin '',i3,'' = '',i10)'),i+1,nsigma(i)
+      write(     *    ,'(''(prior) innovations in stdev bin '',i3,'' = '',i10)')i+1,nsigma(i)
+      write(nsigmaUnit,'(''(prior) innovations in stdev bin '',i3,'' = '',i10)')i+1,nsigma(i)
    endif
 enddo
 close(nsigmaUnit)