From 3fd6a923a8cf8cf79ef62e978634ad5b0144dc29 Mon Sep 17 00:00:00 2001 From: Haipeng Lin Date: Mon, 6 Jul 2026 11:09:55 -0400 Subject: [PATCH] Fix GEOS-Chem chemistry.F90 read beyond bounds --- src/chemistry/geoschem/chemistry.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/chemistry/geoschem/chemistry.F90 b/src/chemistry/geoschem/chemistry.F90 index c9b5c706d4..8c54d071f9 100644 --- a/src/chemistry/geoschem/chemistry.F90 +++ b/src/chemistry/geoschem/chemistry.F90 @@ -2040,7 +2040,7 @@ subroutine chem_timestep_tend( state, ptend, cam_in, cam_out, dT, pbuf, fh2o ) REAL(r8) :: relHum (state%NCOL,PVER) ! Relative humidity [0-1] REAL(r8) :: satV (state%NCOL,PVER) ! Work arrays REAL(r8) :: satQ (state%NCOL,PVER) ! Work arrays - REAL(r8) :: qH2O (state%NCOL,PVER) ! Specific humidity [kg/kg] + REAL(r8) :: qH2O (pcols, PVER) ! Specific humidity [kg/kg] has to be pcols for newnuc. REAL(r8) :: h2ovmr (state%NCOL,PVER) ! H2O volume mixing ratio REAL(r8) :: mBar (state%NCOL,PVER) ! Mean wet atmospheric mass [amu] REAL(r8) :: invariants(state%NCOL,PVER,nfs)