Philippe 01/12/2015: bug correction: division by a float for an array index
authorPhilippe Wautelet <philippe.wautelet@aero.obs-mip.fr>
Tue, 1 Dec 2015 09:27:25 +0000 (09:27 +0000)
committerPhilippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Thu, 19 May 2016 14:44:49 +0000 (16:44 +0200)
src/MNH/radar_simulator.f90

index 503dcf4..c43a351 100644 (file)
@@ -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