From 04e46111c63347290ed15360a099673916cc5deb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Wed, 8 Mar 2023 12:03:55 +0100
Subject: [PATCH] S. Riette 8 Mar 2023: new tracked files
---
src/arome/ext/aroini_neb.F90 | 54 ++++++++++++++++++++++++++++++++++++
src/arome/ext/aroini_neb.h | 4 +++
2 files changed, 58 insertions(+)
create mode 100644 src/arome/ext/aroini_neb.F90
create mode 100644 src/arome/ext/aroini_neb.h
diff --git a/src/arome/ext/aroini_neb.F90 b/src/arome/ext/aroini_neb.F90
new file mode 100644
index 000000000..142440194
--- /dev/null
+++ b/src/arome/ext/aroini_neb.F90
@@ -0,0 +1,54 @@
+SUBROUTINE AROINI_NEB
+ USE PARKIND1, ONLY : JPRB
+ USE YOMHOOK , ONLY : LHOOK, DR_HOOK
+!**** *AROINI_NEB* -
+! Purpose.
+! --------
+! Call Meso-NH routine INI_NEB
+! (setup of constants for nebulosity computation)
+!
+!** Interface.
+! ----------
+! *CALL* *AROINI_NEB
+
+! Explicit arguments :
+! --------------------
+! None
+
+! Implicit arguments :
+! --------------------
+!
+
+! Method.
+! -------
+! See documentation
+
+! Externals.
+! ----------
+
+! Reference.
+! ----------
+! Documentation AROME
+
+! Author.
+! -------
+! S. Riette
+
+! Modifications.
+! --------------
+! Original : 24 Aug 2011
+! ------------------------------------------------------------------
+
+USE MODI_INI_NEB
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+! ------------------------------------------------------------------
+
+! 1. Set implicit default values for MODD_NEB
+
+IF (LHOOK) CALL DR_HOOK('AROINI_NEB',0,ZHOOK_HANDLE)
+CALL INI_NEB
+IF (LHOOK) CALL DR_HOOK('AROINI_NEB',1,ZHOOK_HANDLE)
+
+END SUBROUTINE AROINI_NEB
diff --git a/src/arome/ext/aroini_neb.h b/src/arome/ext/aroini_neb.h
new file mode 100644
index 000000000..85aa3b9da
--- /dev/null
+++ b/src/arome/ext/aroini_neb.h
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE AROINI_NEB
+END SUBROUTINE AROINI_NEB
+END INTERFACE
--
GitLab