NCEPLIBS-bufr
11.5.0
Main Page
Related Pages
Data Types List
Files
File List
Globals
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
errwrt
subroutine errwrt(STR)
This subroutine allows the user to specify a custom location for the logging of error and diagnostic ...
Definition:
errwrt.f:39
mrginv
subroutine mrginv
THIS SUBROUTINE PRINTS A SUMMARY OF MERGE ACTIVITY.
Definition:
mrginv.f:24
nceplibs-bufr
src
mrginv.f
Generated by
1.8.5