From 9c5dce00b9b9dd4da20ed0dc65f9d7ab31209f07 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Wed, 1 Dec 2021 09:32:12 +0100
Subject: [PATCH] =?UTF-8?q?S=C3=A9bastien=2001/12/2021=20MNH->COMMON=20mod?=
=?UTF-8?q?d=5Fneb,=20ini=5Fneb,=20modi=5Fini=5Fneb?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
src/arome/micro/modd_neb.F90 | 39 ------------
src/arome/micro/modi_ini_neb.F90 | 12 ----
src/{arome => common}/micro/ini_neb.F90 | 4 ++
src/{mesonh => common}/micro/modd_neb.f90 | 0
src/common/micro/modi_ini_neb.F90 | 16 +++++
src/mesonh/micro/ini_neb.f90 | 72 -----------------------
6 files changed, 20 insertions(+), 123 deletions(-)
delete mode 100644 src/arome/micro/modd_neb.F90
delete mode 100644 src/arome/micro/modi_ini_neb.F90
rename src/{arome => common}/micro/ini_neb.F90 (83%)
rename src/{mesonh => common}/micro/modd_neb.f90 (100%)
create mode 100644 src/common/micro/modi_ini_neb.F90
delete mode 100644 src/mesonh/micro/ini_neb.f90
diff --git a/src/arome/micro/modd_neb.F90 b/src/arome/micro/modd_neb.F90
deleted file mode 100644
index 9be0380e4..000000000
--- a/src/arome/micro/modd_neb.F90
+++ /dev/null
@@ -1,39 +0,0 @@
-! ######spl
- MODULE MODD_NEB
-! #############################
-!
-!!**** *MODD_NEB* - Declaration of nebulosity constants
-!!
-!! PURPOSE
-!! -------
-!! The purpose of this declarative module is to declare some
-!! constants for nebulosity calculation
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!!
-!!
-!! AUTHOR
-!! ------
-!! S. Riette (Meteo France)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 24 Aug 2011
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-REAL,SAVE :: XTMINMIX ! minimum temperature of mixed phase
-REAL,SAVE :: XTMAXMIX ! maximum temperature of mixed phase
-!
-!
-END MODULE MODD_NEB
diff --git a/src/arome/micro/modi_ini_neb.F90 b/src/arome/micro/modi_ini_neb.F90
deleted file mode 100644
index a700c69e1..000000000
--- a/src/arome/micro/modi_ini_neb.F90
+++ /dev/null
@@ -1,12 +0,0 @@
-! ######spl
- MODULE MODI_INI_NEB
-! #####################
-!
-INTERFACE
-!
-SUBROUTINE INI_NEB
-END SUBROUTINE INI_NEB
-!
-END INTERFACE
-!
-END MODULE MODI_INI_NEB
diff --git a/src/arome/micro/ini_neb.F90 b/src/common/micro/ini_neb.F90
similarity index 83%
rename from src/arome/micro/ini_neb.F90
rename to src/common/micro/ini_neb.F90
index 40a9b87d4..ba090da31 100644
--- a/src/arome/micro/ini_neb.F90
+++ b/src/common/micro/ini_neb.F90
@@ -1,3 +1,7 @@
+!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
! ######spl
SUBROUTINE INI_NEB
! #######################
diff --git a/src/mesonh/micro/modd_neb.f90 b/src/common/micro/modd_neb.f90
similarity index 100%
rename from src/mesonh/micro/modd_neb.f90
rename to src/common/micro/modd_neb.f90
diff --git a/src/common/micro/modi_ini_neb.F90 b/src/common/micro/modi_ini_neb.F90
new file mode 100644
index 000000000..eaa71d814
--- /dev/null
+++ b/src/common/micro/modi_ini_neb.F90
@@ -0,0 +1,16 @@
+!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
+!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
+!MNH_LIC for details. version 1.
+! ######spl
+ MODULE MODI_INI_NEB
+! #####################
+!
+INTERFACE
+!
+SUBROUTINE INI_NEB
+END SUBROUTINE INI_NEB
+!
+END INTERFACE
+!
+END MODULE MODI_INI_NEB
diff --git a/src/mesonh/micro/ini_neb.f90 b/src/mesonh/micro/ini_neb.f90
deleted file mode 100644
index 6cb0efab6..000000000
--- a/src/mesonh/micro/ini_neb.f90
+++ /dev/null
@@ -1,72 +0,0 @@
-!MNH_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
-!MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
-!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
-!MNH_LIC for details. version 1.
-! ######spl
- MODULE MODI_INI_NEB
-! #####################
-!
-INTERFACE
-!
-SUBROUTINE INI_NEB
-END SUBROUTINE INI_NEB
-!
-END INTERFACE
-!
-END MODULE MODI_INI_NEB
-! ######spl
- SUBROUTINE INI_NEB
-! #######################
-!
-!!**** *INI_NEB* - routine to initialize the nebulosity computation
-!! constants.
-!!
-!! PURPOSE
-!! -------
-! The purpose of this routine is to initialize
-! constants used for nebulosity computation
-!
-!! METHOD
-!! ------
-!! The constants are set to their numerical values
-!!
-!! EXTERNAL
-!! --------
-!! NONE
-!!
-!! IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_NEB
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! S. Riette (Meteo France)
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original 24 Aug 2011
-!! --------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_NEB
-USE PARKIND1, ONLY : JPRB
-USE YOMHOOK , ONLY : LHOOK, DR_HOOK
-!
-IMPLICIT NONE
-REAL(KIND=JPRB) :: ZHOOK_HANDLE
-!
-! ---------------------------------------------------------------------------
-!
-! 1. SETTING THE NUMERICAL VALUES
-!
-IF (LHOOK) CALL DR_HOOK('INI_NEB',0,ZHOOK_HANDLE)
-!Freezing between 0 and -20. Other possibilities are 0/-40 or -5/-25
-XTMAXMIX = 273.16
-XTMINMIX = 253.16
-IF (LHOOK) CALL DR_HOOK('INI_NEB',1,ZHOOK_HANDLE)
-END SUBROUTINE INI_NEB
--
GitLab