Philippe 28/08/2020: budgets: bugfix: allocate ZWORK6 at the correct dimension (3rd one)

(cherry picked from commit 7259278fe7f81754d0a20bb3986896895a822790)
(cherry picked from commit f79456a7)

src/MNH/mode_les_diachro.f90

@@ -412,7 +412,8 @@ SUBROUTINE LES_TIME_AVG(PWORK6,tpdates,KRESP)
 ! this routine computes time averaging
 !
 ! Modifications:
-!  03/2018     (P.Wautelet)   replace ADD_FORECAST_TO_DATE by DATETIME_CORRECTDATE
+!  P. Wautelet    03/2018: replace ADD_FORECAST_TO_DATE by DATETIME_CORRECTDATE
+!  P. Wautelet 28/08/2020: bugfix: allocate ZWORK6 at the correct dimension (3rd one)
 !
 use modd_time,      only: tdtseg
 USE MODD_LES
@@ -456,7 +457,7 @@ END IF
 deallocate( tpdates )
 !
 allocate( tpdates( iavg ) )
-ALLOCATE (ZWORK6(SIZE(PWORK6,1),SIZE(PWORK6,2),NLES_K,IAVG,SIZE(PWORK6,5),SIZE(PWORK6,6)))
+ALLOCATE (ZWORK6(SIZE(PWORK6,1),SIZE(PWORK6,2),SIZE(PWORK6,3),IAVG,SIZE(PWORK6,5),SIZE(PWORK6,6)))
 !
 ZWORK6(:,:,:,:,:,:) = 0.
 !
@@ -501,7 +502,7 @@ DO JAVG=1,IAVG
 END DO
 !
 DEALLOCATE(PWORK6)
-ALLOCATE(PWORK6(SIZE(ZWORK6,1),SIZE(ZWORK6,2),NLES_K,IAVG,SIZE(ZWORK6,5),SIZE(ZWORK6,6)))
+ALLOCATE(PWORK6(SIZE(ZWORK6,1),SIZE(ZWORK6,2),SIZE(ZWORK6,3),IAVG,SIZE(ZWORK6,5),SIZE(ZWORK6,6)))
 PWORK6 = ZWORK6
 DEALLOCATE(ZWORK6)