From 755134ae7ea600fd21deb554922bb67441524ff3 Mon Sep 17 00:00:00 2001 From: Weiyuan Jiang Date: Mon, 13 Jan 2025 15:20:38 -0500 Subject: [PATCH] move the index varaiables back to the loop --- .../Utils/Raster/makebcs/rasterize.F90 | 11 +++++------ .../Utils/Raster/makebcs/rmTinyCatchParaMod.F90 | 2 +- 2 files changed, 6 insertions(+), 7 deletions(-) diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rasterize.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rasterize.F90 index 5bc277a35..f3874afdd 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rasterize.F90 +++ b/GEOSagcm_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/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rmTinyCatchParaMod.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rmTinyCatchParaMod.F90 index a30716ab5..4dd6a2538 100644 --- a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/Utils/Raster/makebcs/rmTinyCatchParaMod.F90 +++ b/GEOSagcm_GridComp/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