From a86bd3d064edac3e2bea84186ccad3a1e5bb3454 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Wed, 15 Mar 2023 10:49:36 +0100
Subject: [PATCH] Philippe 15/03/2023: bugfix: remove an #if 0 (commited by
accident)
---
src/MNH/aircraft_balloon_evol.f90 | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/MNH/aircraft_balloon_evol.f90 b/src/MNH/aircraft_balloon_evol.f90
index 0f47accb8..aae1d6092 100644
--- a/src/MNH/aircraft_balloon_evol.f90
+++ b/src/MNH/aircraft_balloon_evol.f90
@@ -1086,7 +1086,6 @@ IF (CCLOUD=="LIMA" .OR. CCLOUD=="ICE3" ) THEN ! only for ICE3 and LIMA
ZRTMIN(7)=XRTMIN_I(2) ! cloud water over land
ENDIF
! compute cloud radar reflectivity from vertical profiles of temperature and mixing ratios
-#if 0
DO JK=1,IKU
QMW=SQRT(QEPSW(ZTEMPZ(JK),XLIGHTSPEED/XLAM_CRAD))
QMI=SQRT(QEPSI(ZTEMPZ(JK),XLIGHTSPEED/XLAM_CRAD))
@@ -1290,7 +1289,6 @@ IF (CCLOUD=="LIMA" .OR. CCLOUD=="ICE3" ) THEN ! only for ICE3 and LIMA
END IF
END DO
END DO
-#endif
! apply attenuation
ALLOCATE(ZZMZ(IKU))
--
GitLab