Merge pull request #481 from NOAA-EMC/ejh_more_bort_5_3

bort tests for ufbcup()
NOAA-EMC · May 3, 2023 · 9b2e90d · 9b2e90d
2 parents df30b71 + ed4713e
commit 9b2e90d
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/test/run_test_bort.sh b/test/run_test_bort.sh
@@ -185,6 +185,9 @@ for kind in "4" "d"; do
     (./test_bort_$kind ufbcup 2) && exit 1
     (./test_bort_$kind ufbcup 3) && exit 1
     (./test_bort_$kind ufbcup 4) && exit 1
+    (./test_bort_$kind ufbcup 5) && exit 1
+    (./test_bort_$kind ufbcup 6) && exit 1
+    (./test_bort_$kind ufbcup 7) && exit 1
 
     # Check ufbdmp().
     (./test_bort_$kind ufbdmp 1) && exit 1

diff --git a/test/test_bort.F90 b/test/test_bort.F90
@@ -540,6 +540,29 @@ program test_bort
         call openbf(12, 'IN', 11)
         call readmg(11, char_val_8, jdate, iret)
         call ufbcup(11, 12)
+     elseif (test_case .eq. '5') then
+        open(unit = 11, file = 'testfiles/IN_9', form ='unformatted')
+        call openbf(11, 'IN', 11)
+        open(unit = 12, file = 'test_ufbcup_out', form ='unformatted')
+        call readmg(11, char_val_8, jdate, iret)
+        call readsb(11, iret)        
+        call ufbcup(11, 12)
+     elseif (test_case .eq. '6') then
+        open(unit = 11, file = 'testfiles/IN_9', form ='unformatted')
+        call openbf(11, 'IN', 11)
+        open(unit = 12, file = 'test_ufbcup_out', form ='unformatted')
+        call openbf(12, 'IN', 11)
+        call readmg(11, char_val_8, jdate, iret)
+        call readsb(11, iret)        
+        call ufbcup(11, 12)
+     elseif (test_case .eq. '7') then
+        open(unit = 11, file = 'testfiles/IN_9', form ='unformatted')
+        call openbf(11, 'IN', 11)
+        open(unit = 12, file = 'test_ufbcup_out', form ='unformatted')
+        call openbf(12, 'OUT', 11)
+        call readmg(11, char_val_8, jdate, iret)
+        call readsb(11, iret)        
+        call ufbcup(11, 12)
      endif
   elseif (sub_name .eq. 'ufbdmp') then
      if (test_case .eq. '1') then