diff --git a/src/ICE/ice1d.F90 b/src/ICE/ice1d.F90
index 8683822be2054b4c2908ce91c7ed34e2ca8ee34c..ffa8b8eafdfdd57456dfbabfc5e58a326c95dbe2 100644
--- a/src/ICE/ice1d.F90
+++ b/src/ICE/ice1d.F90
@@ -179,7 +179,7 @@ CONTAINS
       !!                ***  ROUTINE ice1D_alloc ***
       !!---------------------------------------------------------------------!
       INTEGER ::   ice1D_alloc   ! return value
-      INTEGER ::   ierr(8), ii
+      INTEGER ::   ierr(9), ii
       !!---------------------------------------------------------------------!
       ierr(:) = 0