From d1425cd526ed917c7c7945f1841776f0f57a3e31 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Mon, 2 May 2016 13:34:23 +0000
Subject: [PATCH] Juan 2/03/2016 : bypass , reset NHALO=1 for SPAWNING

---
 src/MNH/init_mnh.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/MNH/init_mnh.f90 b/src/MNH/init_mnh.f90
index f6f079048..80d314b4c 100644
--- a/src/MNH/init_mnh.f90
+++ b/src/MNH/init_mnh.f90
@@ -74,6 +74,7 @@
 !!      V. Masson   15/03/99  call to ini_data_cover
 !!      P.Jabouille 15/07/99  special initialisation for spawning
 !!      J.P Chaboureau 2015   add ini_spectre_n
+!!      J.Escoabr   2/03/2016 bypass , reset NHALO=1 for SPAWNING
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -171,6 +172,10 @@ DO JMI=1,JPMODELMAX
   CALL INI_SEG_n(JMI,YLUOUT(JMI),YINIFILE(JMI),YINIFILEPGD(JMI),ZTSTEP_ALL)
   IF (JMI.EQ.NMODEL) EXIT
 END DO
+IF (CPROGRAM=='SPAWN ') THEN 
+  !bypass
+  NHALO = 1
+END IF
 !
 IF (CPROGRAM=='DIAG') CALL RESET_EXSEG(YLUOUT(1))
 !
-- 
GitLab