From 504caf7486abda99c3b6bf1de4689100469d66a2 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 28 Aug 2020 09:53:37 +0200 Subject: [PATCH] Philippe 28/08/2020: budgets: bugfix: allocate ZWORK6 at the correct dimension (3rd one) --- src/MNH/mode_les_diachro.f90 | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/MNH/mode_les_diachro.f90 b/src/MNH/mode_les_diachro.f90 index 462859ff0..5aaadc971 100644 --- a/src/MNH/mode_les_diachro.f90 +++ b/src/MNH/mode_les_diachro.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2018 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. @@ -602,7 +602,8 @@ SUBROUTINE LES_TIME_AVG(PTRAJT,PWORK6,KRESP,PDATIME_AVG) ! 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_LES USE MODD_TYPE_DATE @@ -651,7 +652,7 @@ DEALLOCATE(PDATIME_AVG) ! ALLOCATE (PTRAJT(IAVG,1)) ALLOCATE (PDATIME_AVG(16,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. ! @@ -713,7 +714,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) -- GitLab