Skip to content
Snippets Groups Projects
Commit 593d341b authored by Christian Ethe's avatar Christian Ethe Committed by Renaud Person
Browse files

TOP/PISCES : minor bugfix

parent 2529b807
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/TOP/PISCES/P4Z/p4zlys.F90
+ 4
− 1
View file @ 593d341b
......@@ -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
!!---------------------------------------------------------------------
!
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment