From a5e2a439ee8a8cd87571156d5b14f58af7f64bfb Mon Sep 17 00:00:00 2001 From: Jeff Whitaker Date: Tue, 9 Jul 2024 09:22:42 -0600 Subject: [PATCH] fix for cris-fsr memory corruption (#767) --- src/gsi/correlated_obsmod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/gsi/correlated_obsmod.F90 b/src/gsi/correlated_obsmod.F90 index 17cd94efe1..9c8791b0f3 100644 --- a/src/gsi/correlated_obsmod.F90 +++ b/src/gsi/correlated_obsmod.F90 @@ -422,7 +422,7 @@ subroutine set_(instrument,fname,mask,method,kreq,kmut,ErrorCov) ErrorCov%nch_active = coun if (.not.GMAO_ObsErrorCov) ErrorCov%nctot = nctot call create_(coun,ErrorCov) - allocate(indxRf(nch_active),indxR(nch_active),Rcov(nctot,nctot)) + allocate(indxRf(coun),indxR(nch_active),Rcov(nctot,nctot)) ! Read GSI-like channel numbers used in estimating R for this instrument read(lu,IOSTAT=ioflag) indxR