From caff2d6be31049096a6ad87c25896b2f9550fd7a Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Mon, 7 Mar 2022 15:30:48 +0100
Subject: [PATCH] Quentin 07/03/2022: bugfix duplication of DR_HOOK (bug at run
in AROME)
---
src/arome/micro/ini_rain_ice.F90 | 2 --
src/mesonh/micro/ini_rain_ice.f90 | 2 --
2 files changed, 4 deletions(-)
diff --git a/src/arome/micro/ini_rain_ice.F90 b/src/arome/micro/ini_rain_ice.F90
index 50d2db14c..ed02f9d34 100644
--- a/src/arome/micro/ini_rain_ice.F90
+++ b/src/arome/micro/ini_rain_ice.F90
@@ -176,8 +176,6 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
!
-IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
-!
!* 0. FUNCTION STATEMENTS
! -------------------
!
diff --git a/src/mesonh/micro/ini_rain_ice.f90 b/src/mesonh/micro/ini_rain_ice.f90
index ee733f4e2..792560b76 100644
--- a/src/mesonh/micro/ini_rain_ice.f90
+++ b/src/mesonh/micro/ini_rain_ice.f90
@@ -199,8 +199,6 @@ REAL(KIND=JPRB) :: ZHOOK_HANDLE
!-------------------------------------------------------------------------------
IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
!
-IF (LHOOK) CALL DR_HOOK('INI_RAIN_ICE',0,ZHOOK_HANDLE)
-!
!* 0. FUNCTION STATEMENTS
! -------------------
!
--
GitLab