Skip to content
Snippets Groups Projects
Commit d4d34f1c authored by Clement Rousset's avatar Clement Rousset
Browse files

Resolve "bug in the outputs from dia_ar5_hst"

parent 578df0dc
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment