From 7eab641fb018ec8aee75bae5da6c3c066fc84c52 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Wed, 17 Mar 2021 14:40:08 +0100 Subject: [PATCH] Philippe 17/03/2021: bugfix: missing declaration in endstep --- src/MNH/endstep.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/MNH/endstep.f90 b/src/MNH/endstep.f90 index 6242dd867..d08270286 100644 --- a/src/MNH/endstep.f90 +++ b/src/MNH/endstep.f90 @@ -1,4 +1,4 @@ -!MNH_LIC Copyright 1994-2020 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2021 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. @@ -284,6 +284,7 @@ INTEGER:: JSV ! loop counters INTEGER :: IIB, IIE ! index of first and last inner mass points along x INTEGER :: IJB, IJE ! index of first and last inner mass points along y real, dimension(:,:,:), allocatable :: zrhodjontime +real, dimension(:,:,:), allocatable :: zwork ! !------------------------------------------------------------------------------ ! -- GitLab