diff --git a/src/OCE/DIA/diaar5.F90 b/src/OCE/DIA/diaar5.F90 index c90cea702ea532aee148d302057cc161672bdf5a..d54e24b06874668d7b6a97ce09950718b529f6d2 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