diff --git a/src/TOP/PISCES/P4Z/p4zlys.F90 b/src/TOP/PISCES/P4Z/p4zlys.F90
index baf43351097a369643d2809f31b773767c45e5f7..24d5739778d72a318fc466b1528a63c2513d4aca 100644
--- a/src/TOP/PISCES/P4Z/p4zlys.F90
+++ b/src/TOP/PISCES/P4Z/p4zlys.F90
@@ -66,7 +66,10 @@ CONTAINS
       REAL(wp) ::   zdispot, zrhd, zcalcon
       REAL(wp) ::   zomegaca, zexcess, zexcess0, zkd
       CHARACTER (len=25) ::   charout
-      REAL(wp), DIMENSION(A2D(0),jpk) ::   zco3, zcaldiss, zhinit, zhi, zco3sat
+!! CE later      REAL(wp), DIMENSION(A2D(0),jpk) ::   zco3, zcaldiss, zhinit, zhi, zco3sat
+!!  because of the routine solve_at_general in p4zche.F90
+      REAL(wp), DIMENSION(A2D(0),jpk) :: zco3, zcaldiss, zco3sat
+      REAL(wp), DIMENSION(jpi,jpj,jpk) :: zhinit, zhi
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:)  :: zw3d
       !!---------------------------------------------------------------------
       !