Merge pull request #1484 from GEOS-ESM/bugfix/atrayano/#1483_correct_…

…rank Fixes #1483. Fixed the rank of variable declaration
GEOS-ESM · Apr 18, 2022 · a3b2214 · a3b2214
2 parents ea30969 + 141daec
commit a3b2214
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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