From 6126a323629310ed56a1f07c17007de5cfe3bcb8 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Wed, 22 Apr 2015 13:40:36 +0000
Subject: [PATCH] Juan & P.Scheffknecht 22/04/2015: test missing on already
 allocated XRTMIN

---
 src/MNH/ini_radar.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/MNH/ini_radar.f90 b/src/MNH/ini_radar.f90
index 5469f9e91..a53621e5e 100755
--- a/src/MNH/ini_radar.f90
+++ b/src/MNH/ini_radar.f90
@@ -62,6 +62,7 @@ END MODULE MODI_INI_RADAR
 !!    MODIFICATIONS
 !!    -------------
 !!      Original    27/10/2009
+!!      P.Scheffknecht 22/04/2015: test missing on already allocated XRTMIN 
 !!
 !-------------------------------------------------------------------------------
 !
@@ -187,7 +188,7 @@ XLBH   = ( XAH*XCCH*MOMG(XALPHAH,XNUH,XBH) )**(-XLBEXH)
 !
 !*       2.4    Minimal values allowed for the mixing ratios
 ! ICE3
-ALLOCATE( XRTMIN(6) )
+IF(.NOT.ALLOCATED(XRTMIN)) ALLOCATE( XRTMIN(6) )
 !
 XRTMIN(1) = 1.0E-20
 XRTMIN(2) = 1.0E-20
-- 
GitLab