set ntiles in mosaic2 test

NOAA-GFDL · Dec 5, 2024 · dffeafc · dffeafc
1 parent 899ea6e
commit dffeafc
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/test_fms/mosaic2/test_mosaic2.F90 b/test_fms/mosaic2/test_mosaic2.F90
@@ -96,6 +96,7 @@ subroutine test_get_mosaic_grid_sizes
 
   allocate( nx_out(c1_ntiles), ny_out(c1_ntiles) )
   call get_mosaic_grid_sizes(fileobj, nx_out, ny_out)
+  ntiles = get_mosaic_ntiles(fileobj)
   do n=1, ntiles
      call check_answer(c1_nx/2, nx_out(n), 'atm TEST_GET_MOSAIC_GRID_SIZES')
      call check_answer(c1_nx/2, ny_out(n), 'atm TEST_GET_MOSAIC_GRID_SIZES')