Sébastien 01/12/2021 MNH->COMMON modd_neb, ini_neb, modi_ini_neb

src/arome/micro/modd_neb.F90

-!     ######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

src/arome/micro/ini_neb.F90 → src/common/micro/ini_neb.F90

+!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
 !       #######################

src/arome/micro/modi_ini_neb.F90 → src/common/micro/modi_ini_neb.F90

+!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
 !       #####################

src/mesonh/micro/ini_neb.f90

-!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