From 0c22830cb106177e88330279e3eab65d495019fc Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 30 Jan 2019 09:35:48 +0100
Subject: [PATCH] Philippe 30/01/2019: bug: remove double allocates for non 'n'
variables
---
src/MNH/ini_modeln.f90 | 19 ++-----------------
1 file changed, 2 insertions(+), 17 deletions(-)
diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90
index f8e8ac5c5..1bbb5cf60 100644
--- a/src/MNH/ini_modeln.f90
+++ b/src/MNH/ini_modeln.f90
@@ -892,7 +892,7 @@ ALLOCATE(XDZZ(IIU,IJU,IKU))
IF (KMI == 1) THEN
ALLOCATE(XRHODREFZ(IKU),XTHVREFZ(IKU))
ELSE
- ALLOCATE(XRHODREFZ(0),XTHVREFZ(0))
+ !Do not allocate XRHODREFZ and XTHVREFZ because they are the same on all grids (not 'n' variables)
END IF
ALLOCATE(XRHODREF(IIU,IJU,IKU))
ALLOCATE(XTHVREF(IIU,IJU,IKU))
@@ -1511,22 +1511,7 @@ IF (KMI == 1) THEN
ALLOCATE(XVFRC_PAST(0,0,0))
END IF
ELSE
- ALLOCATE(TDTFRC(0))
- ALLOCATE(XUFRC(0,0))
- ALLOCATE(XVFRC(0,0))
- ALLOCATE(XWFRC(0,0))
- ALLOCATE(XTHFRC(0,0))
- ALLOCATE(XRVFRC(0,0))
- ALLOCATE(XTENDTHFRC(0,0))
- ALLOCATE(XTENDRVFRC(0,0))
- ALLOCATE(XGXTHFRC(0,0))
- ALLOCATE(XGYTHFRC(0,0))
- ALLOCATE(XPGROUNDFRC(0))
- ALLOCATE(XTENDUFRC(0,0))
- ALLOCATE(XTENDVFRC(0,0))
- ALLOCATE(XWTFRC(0,0,0))
- ALLOCATE(XUFRC_PAST(0,0,0))
- ALLOCATE(XVFRC_PAST(0,0,0))
+ !Do not allocate because they are the same on all grids (not 'n' variables)
END IF
! ----------------------------------------------------------------------
!
--
GitLab