move the index varaiables back to the loop

GEOS-ESM · Jan 13, 2025 · 755134a · 755134a
1 parent d9d661c
commit 755134a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 7 deletions.
diff --git a/...gcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rasterize.F90 b/...gcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rasterize.F90
@@ -429,14 +429,13 @@ subroutine WriteTilingNC4(File, GridName, im, jm, nx, ny, iTable, rTable, N_Pfaf
      call v%add_attribute("missing_value", MAPL_UNDEF_R8)
      call v%add_attribute("_FillValue",    MAPL_UNDEF_R8)
      call metadata%add_variable('frac_cell'//trim(str_num), v)
-
+
+     v = Variable(type=PFIO_INT32, dimensions='tile')
+     call v%add_attribute('units', '1')
+     call v%add_attribute('long_name', 'Pfafstetter_index_of_tile')
+     call metadata%add_variable('pfaf_index'//trim(str_num), v)
   enddo
 
-  v = Variable(type=PFIO_INT32, dimensions='tile')
-  call v%add_attribute('units', '1')
-  call v%add_attribute('long_name', 'Pfafstetter_index_of_tile')
-  call metadata%add_variable('pfaf_index'//trim(str_num), v)
-
   if ( .not. EASE ) then
      v = Variable(type=PFIO_REAL64, dimensions='tile')
      call v%add_attribute('units', '1')

diff --git a/...omp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rmTinyCatchParaMod.F90 b/...omp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rmTinyCatchParaMod.F90
@@ -994,7 +994,7 @@ SUBROUTINE supplemental_tile_attributes(nx,ny,regrid,dateline,fnameTil, Rst_id)
        read (10,'(a)')version
        read (10,*)nc_gcm
        read (10,*)nr_gcm
-       gName(n) = version
+       gName(n) = trim(adjustl(version))
        IM(n)    = nc_gcm
        JM(n)    = nr_gcm
     end do