NCEPLIBS-bufr  11.5.0
 All Data Structures Files Functions Variables Pages
mrginv.f
Go to the documentation of this file.
1 C> @file
2 C> @author WOOLLEN @date 1996-10-09
3 
4 C> THIS SUBROUTINE PRINTS A SUMMARY OF MERGE ACTIVITY.
5 C>
6 C> PROGRAM HISTORY LOG:
7 C> 1996-10-09 J. WOOLLEN -- ORIGINAL AUTHOR (ENTRY POINT IN INVMRG)
8 C> 2002-05-14 J. WOOLLEN -- CHANGED FROM AN ENTRY POINT TO INCREASE
9 C> PORTABILITY TO OTHER PLATFORMS
10 C> 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
11 C> INTERDEPENDENCIES
12 C> 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED
13 C> DOCUMENTATION (INCLUDING HISTORY)
14 C> 2009-04-21 J. ATOR -- USE ERRWRT
15 C>
16 C> USAGE: CALL MRGINV
17 C>
18 C> REMARKS:
19 C> THIS ROUTINE CALLS: ERRWRT
20 C> THIS ROUTINE IS CALLED BY: None
21 C> Normally called only by application
22 C> programs.
23 C>
24  SUBROUTINE mrginv
25 
26 
27 
28  COMMON /mrgcom/ nrpl,nmrg,namb,ntot
29  COMMON /quiet / iprt
30 
31  CHARACTER*128 errstr
32 
33 C-----------------------------------------------------------------------
34 C-----------------------------------------------------------------------
35 
36  IF(iprt.GE.0) THEN
37  CALL errwrt('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
38  CALL errwrt('---------------------------------------------------')
39  CALL errwrt('INVENTORY FROM MERGE PROCESS IN SUBROUTINE INVMRG:')
40  CALL errwrt('---------------------------------------------------')
41  WRITE ( unit=errstr, fmt='(A,I8)' )
42  . 'NUMBER OF DRB EXPANSIONS = ', nrpl
43  CALL errwrt(errstr)
44  WRITE ( unit=errstr, fmt='(A,I8)' )
45  . 'NUMBER OF MERGES = ', nmrg
46  CALL errwrt(errstr)
47  WRITE ( unit=errstr, fmt='(A,I8)' )
48  . 'NUMBER THAT ARE AMBIGUOUS = ', namb
49  CALL errwrt(errstr)
50  CALL errwrt('---------------------------------------------------')
51  WRITE ( unit=errstr, fmt='(A,I9)' )
52  . 'TOTAL NUMBER OF VISITS = ', ntot
53  CALL errwrt(errstr)
54  CALL errwrt('---------------------------------------------------')
55  CALL errwrt('+++++++++++++++++++++BUFRLIB+++++++++++++++++++++++')
56  CALL errwrt(' ')
57  ENDIF
58 
59  RETURN
60  END
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition: errwrt.f:39
subroutine mrginv
THIS SUBROUTINE PRINTS A SUMMARY OF MERGE ACTIVITY.
Definition: mrginv.f:24