From eb0d6e21d695a9dbfe34844299f1540aa95d872c Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 10 Apr 2014 14:28:30 +0000
Subject: [PATCH]  Christine 10/04/2014 : initialization of ZR

---
 src/MNH/gravity_impl.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/MNH/gravity_impl.f90 b/src/MNH/gravity_impl.f90
index c1820f7e4..f42d6009c 100644
--- a/src/MNH/gravity_impl.f90
+++ b/src/MNH/gravity_impl.f90
@@ -123,6 +123,7 @@ INTEGER :: JR
 !-------------------------------------------------------------------------------
 !
 ZRWS_GRAV = 0.
+ZR = 0.
 !
 ! guess of Theta at future time-step
 ZTH(:,:,:) = (PRTHS(:,:,:) + PRTHS_CLD(:,:,:)) / PRHODJ * PTSTEP
-- 
GitLab