mrginv.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1996-10-09
      
C> THIS SUBROUTINE PRINTS A SUMMARY OF MERGE ACTIVITY.
C>
C> PROGRAM HISTORY LOG:
C> 1996-10-09  J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN INVMRG)
C> 2002-05-14  J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
C>                           PORTABILITY TO OTHER PLATFORMS
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED
C>                           DOCUMENTATION (INCLUDING HISTORY)
C> 2009-04-21  J. ATOR    -- USE ERRWRT
C>
C> USAGE:    CALL MRGINV
C>
C> REMARKS:
C>    THIS ROUTINE CALLS:        ERRWRT
C>    THIS ROUTINE IS CALLED BY: None
C>                               Normally called only by application
C>                               programs.
C>
      SUBROUTINE mrginv



      COMMON /mrgcom/ nrpl,nmrg,namb,ntot
      COMMON /quiet / iprt

      CHARACTER*128 errstr

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

      IF(iprt.GE.0) THEN
      CALL errwrt('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
      CALL errwrt('---------------------------------------------------')
      CALL errwrt('INVENTORY FROM MERGE PROCESS IN SUBROUTINE INVMRG:')
      CALL errwrt('---------------------------------------------------')
      WRITE ( unit=errstr, fmt='(A,I8)' )
     .  'NUMBER OF DRB EXPANSIONS  = ', nrpl
      CALL errwrt(errstr)
      WRITE ( unit=errstr, fmt='(A,I8)' )
     .  'NUMBER OF MERGES          = ', nmrg
      CALL errwrt(errstr)
      WRITE ( unit=errstr, fmt='(A,I8)' )
     .  'NUMBER THAT ARE AMBIGUOUS = ', namb
      CALL errwrt(errstr)
      CALL errwrt('---------------------------------------------------')
      WRITE ( unit=errstr, fmt='(A,I9)' )
     .  'TOTAL NUMBER OF VISITS    = ', ntot
      CALL errwrt(errstr)
      CALL errwrt('---------------------------------------------------')
      CALL errwrt('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
      CALL errwrt(' ')
      ENDIF

      RETURN
      END