From d4d34f1c3533ad2555316e82a8e4d7670067d8a0 Mon Sep 17 00:00:00 2001
From: Clement Rousset <clement.rousset@locean.ipsl.fr>
Date: Mon, 16 Jan 2023 16:45:20 +0000
Subject: [PATCH] Resolve "bug in the outputs from dia_ar5_hst"
---
src/OCE/DIA/diaar5.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/OCE/DIA/diaar5.F90 b/src/OCE/DIA/diaar5.F90
index c90cea70..d54e24b0 100644
--- a/src/OCE/DIA/diaar5.F90
+++ b/src/OCE/DIA/diaar5.F90
@@ -319,7 +319,7 @@ CONTAINS
REAL(wp), DIMENSION(A2D(nn_hls)) :: z2d
!!----------------------------------------------------------------------
- z2d(:,:) = puflx(:,:,1)
+ z2d(:,:) = 0._wp
DO_3D( 0, 0, 0, 0, 1, jpkm1 )
z2d(ji,jj) = z2d(ji,jj) + puflx(ji,jj,jk)
END_3D
--
GitLab