From e834fbccb8a85cf0e13a39b06ab38729b34745cd Mon Sep 17 00:00:00 2001 From: Jeffrey S Whitaker Date: Mon, 8 Jul 2024 14:58:11 -0500 Subject: [PATCH] fix from PR #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