From 8704dc0c34ad58dfac073b7db3af2f7bb3cdea2b Mon Sep 17 00:00:00 2001
From: cetlod <Christian.Ethe@ipsl.fr>
Date: Thu, 14 Jul 2022 16:28:39 +0200
Subject: [PATCH] TOP/PISCES : minor bugfix
---
src/TOP/PISCES/P4Z/p4zlys.F90 | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/src/TOP/PISCES/P4Z/p4zlys.F90 b/src/TOP/PISCES/P4Z/p4zlys.F90
index baf433510..24d573977 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
!!---------------------------------------------------------------------
!
--
GitLab