GitHub Issues #1 Bugzilla ticket 889 fixed bug in rdbfmsua.f

lgannoaa · Jan 15, 2020 · 53f719f · 53f719f
1 parent 8b94a2d
commit 53f719f
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/util/sorc/rdbfmsua.fd/rdbfmsua.f b/util/sorc/rdbfmsua.fd/rdbfmsua.f
@@ -27,6 +27,7 @@ PROGRAM RDBFUA
 C 2012-02-15 B. Mabe -- Changed Program name and output file to reflect
 C                        change to output for sig and man data
 C 2016-10-18 B. Vuong -- Removed hardwire '/nwprod/dictionaries/' in CALL FL_TBOP
+C 2020-01-15 B. Vuong -- Increased dimensional array r8lvl(6,200)
 C
 C USAGE:
 C   INPUT FILES:
@@ -74,7 +75,7 @@ PROGRAM RDBFUA
 	PARAMETER	( GPMSNG = -9999.0 )
 	PARAMETER	( MAXSTN = 10000 )
 
-	REAL*8		r8hdr ( 9, 1 ), r8lvl ( 6, 100 ), r8arr( 1, 1 )
+	REAL*8		r8hdr ( 9, 1 ), r8lvl ( 6, 200 ), r8arr( 1, 1 )
 	REAL*8		r8tmp ( 6, 100 ), r8out ( 6, 300 ),swpbuf
 	REAL*8		r8tmptot ( 6, 300 )
 

diff --git a/util/sorc/rdbfmsua.fd/rdbfmsua.f_org b/util/sorc/rdbfmsua.fd/rdbfmsua.f_org
@@ -26,10 +26,12 @@ C 2012-01-24 J. Cahoon -- Modified from original RDBFUA to include
 C			significant and standard together in output
 C 2012-02-15 B. Mabe -- Changed Program name and output file to reflect
 C                        change to output for sig and man data
+C 2016-10-18 B. Vuong -- Removed hardwire '/nwprod/dictionaries/' in CALL FL_TBOP
 C
 C USAGE:
 C   INPUT FILES:
 C     UNIT 40  - adpupa dumpfile (contains data from BUFR tank b002/xx001)
+C
 C     sonde.land.tbl                                           
 C     metar.tbl                                                
 C
@@ -88,7 +90,7 @@ C*----------------------------------------------------------------------
 C*----------------------------------------------------------------------
 C*	Open and read the sonde land station table.
 C*----------------------------------------------------------------------
-        CALL FL_TBOP ( '/nwprod/dictionaries/sonde.land.tbl',
+        CALL FL_TBOP ( 'sonde.land.tbl',
      +                 'stns', iunltb, iertop )
         IF ( iertop .ne. 0 ) THEN
            print*,' error opening sonde land station table'
@@ -145,7 +147,7 @@ C*----------------------------------------------------------------------
 C*	Open the BUFR file.
 C*----------------------------------------------------------------------
 
-	CALL OPENBF  ( 40, 'IN', 40 )
+        CALL OPENBF  ( 40, 'IN', 40 )
 
 C*----------------------------------------------------------------------
 C*	Read a BUFR subset from the BUFR file.