debug

tests/test_bitmap.F90

@@ -18,8 +18,7 @@ program test_bitmap
 
   integer :: idxver = 2, j = 0, jdisc = 0, jpdtn = 0, jgdtn = 0
   integer :: myidxver, iret, k, i
-  !integer :: jids(13), jpdt(100), jgdt(250)
-  integer, dimension(200) :: jids, jpdt, jgdt
+  integer :: jids(13), jpdt(100), jgdt(250)
   logical :: unpack = .true.
 
   integer :: expected_idsect(13) = (/ 57, 90, 2, 0, 0, 2021, 4, 25, 0, 0, 0, 0, 1/)
@@ -52,10 +51,10 @@ end subroutine g2_create_index
   jpdt = -9999
   jgdt = -9999
 
-  call getgb2i2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, &
-       jgdt, unpack, myidxver, k, gfld, iret)
-  if (iret .ne. 0) stop 10
-  if (k .ne. 1) stop 11
+  !call getgb2i2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, &
+  !     jgdt, unpack, myidxver, k, gfld, iret)
+  !if (iret .ne. 0) stop 10
+  !if (k .ne. 1) stop 11
   !if (gfld%version .ne. 2 .or. gfld%discipline .ne. 0 .or. gfld%idsectlen .ne. 13 .or. &
   !     gfld%locallen .ne. 0 .or. gfld%ifldnum .ne. 1 .or. gfld%griddef .ne. 0 .or. &
   !     gfld%ngrdpts .ne. 16600320 .or. gfld%numoct_opt .ne. 0 .or. gfld%interp_opt .ne. 0 .or. &
@@ -83,9 +82,9 @@ end subroutine g2_create_index
   if (iret .ne. 0) stop 101
 
   ! Free resources.
-  call gf_free(gfld)
-  call gf_finalize(iret)
-  if (iret .ne. 0) stop 102
+  !call gf_free(gfld)
+  !call gf_finalize(iret)
+  !if (iret .ne. 0) stop 102
 
   print *, 'SUCCESS!'
 end program test_bitmap