diff --git a/CHANGELOG.md b/CHANGELOG.md
index efe1816d93e4..23b845da5600 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -13,6 +13,7 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 - Fix issue where ACG was called when no file had changed
 - Add missing `rc=status` in `MAPL_GetResourceFromMAPL_scalar`
 - Fixed bugs with next generation ExtData
+- Fixed variable PTR40 declaration in GenericCplComp.F90
 
 ### Added
 - Added support for 4d variables in the coupler. Intentionally decided not to support 4d in the coupler's ReadRestart and WriteRestart to catch errors
diff --git a/generic/GenericCplComp.F90 b/generic/GenericCplComp.F90
index e8d740541ecf..80bc16d4bfb6 100644
--- a/generic/GenericCplComp.F90
+++ b/generic/GenericCplComp.F90
@@ -924,7 +924,7 @@ subroutine ZERO_CLEAR_COUNT(STATE, RC)
     real, pointer                         :: PTR10(:)
     real, pointer                         :: PTR20(:,:)
     real, pointer                         :: PTR30(:,:,:)
-    real, pointer                         :: PTR40(:,:,:)
+    real, pointer                         :: PTR40(:,:,:,:)
 
     character(*), parameter       :: IAm="ZERO_CLEAR_COUNT"
     integer                       :: STATUS