From a3c126fe0d9bacf7b1cc86990afdfd617f803d26 Mon Sep 17 00:00:00 2001
From: Philippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 1 Dec 2015 09:27:25 +0000
Subject: [PATCH] Philippe 01/12/2015: bug correction: division by a float for
 an array index

---
 src/MNH/radar_simulator.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/MNH/radar_simulator.f90 b/src/MNH/radar_simulator.f90
index 503dcf453..c43a351c4 100644
--- a/src/MNH/radar_simulator.f90
+++ b/src/MNH/radar_simulator.f90
@@ -332,7 +332,7 @@ ELSE
 END IF
 
 WRITE(ILUOUT0,*) "ZAZIM_BASE(1)",ZAZIM_BASE(1)
-WRITE(ILUOUT0,*) "ZAZIM_BASE(NBAZIM/2.)",ZAZIM_BASE(NBAZIM/2.)
+WRITE(ILUOUT0,*) "ZAZIM_BASE(NBAZIM/2.)",ZAZIM_BASE(NINT(NBAZIM/2.))
 WRITE(ILUOUT0,*) "ZAZIM_BASE(NBAZIM)",ZAZIM_BASE(NBAZIM)
 
 !copy in the 3D matrix (ZAZIM) containing the horizontal discretization of the beam for all azimut of all radars 
-- 
GitLab