few more fixes

MPAS-Dev · Nov 5, 2024 · 650a60c · 650a60c
1 parent 25ecf82
commit 650a60c
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/core_init_atmosphere/mpas_init_atm_gwd.F b/src/core_init_atmosphere/mpas_init_atm_gwd.F
@@ -463,7 +463,7 @@ function add_tile(tilesHead, tile_start_x, tile_start_y, tile_start_x_topo, path
          return
       end if
 
-      iErr = read_30s_landuse_tile(path, sub_path, newTile%landuse_array, newTile%tile_start_x, newTile%tile_start_y)
+      iErr = read_30s_landuse_tile(path, newTile%landuse_array, newTile%tile_start_x, newTile%tile_start_y)
       if (iErr /= 0) then
          call mpas_log_write('Error reading global 30-arc-sec landuse for GWD statistics', messageType=MPAS_LOG_ERR)
          return
@@ -602,7 +602,6 @@ function read_30s_landuse_tile(path, landuse, tile_start_x, tile_start_y) result
 
       integer :: iErr
       integer (c_int) :: istatus
-      integer :: ix, iy
       integer (c_int) :: isigned, endian, wordsize, nx, ny, nz
       real (c_float) :: scalefactor
       real (c_float), dimension(:,:,:), pointer, contiguous :: tile
@@ -717,7 +716,7 @@ subroutine get_box(lat, lon, nx, ny, path, sub_path, tilesHead, box, box_landuse
       real (kind=RKIND), intent(inout) :: box_mean                    ! Mean value of topography in box
 
       type(mpas_gwd_tile_type), pointer :: thisTile
-      integer :: i, j, ii, jj, ic, jc, ix, jx, tile_offset
+      integer :: i, j, ii, jj, ic, jc, ix, jx
       real (kind=RKIND) :: sg_lat
 
       if (associated(box)) deallocate(box)