feature/PNetcdf: This commit references ufs-community#26.

Fix array bounds bug in ./global_chgres.fd/chgres.f90 discovered by Dusan.
GeorgeGayno-NOAA · Feb 7, 2020 · 14da500 · 14da500
1 parent 4a0af6d
commit 14da500
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/sorc/global_chgres.fd/chgres.f90 b/sorc/global_chgres.fd/chgres.f90
@@ -927,7 +927,7 @@ END SUBROUTINE WRITE_FV3_SFC_DATA_NETCDF
         ENDIF
 
         ALLOCATE(VCOORDI(LEVSI+1,GFSHEADI%NVCOORD))
-        VCOORDI(:,:) = GFSHEADVI%VCOORD(:,:,1)
+        VCOORDI(:,:) = GFSHEADVI%VCOORD(:,1:GFSHEADI%NVCOORD,1)
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 !  READ INPUT NEMSIO DATA ARRAY