From a29ce6dcafbddfeb37d196247fb0a1e97b18bda4 Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 10 Jan 2024 18:26:55 +0100
Subject: [PATCH] Quentin 10/01/2024: remove useless files. options from
NAM_TURB and NAM_TURB_CLOUD have been moved to NAM_TURBn in PHYEX 0.7
---
src/MNH/modd_turb_cloud.f90 | 58 -------------------------------------
src/MNH/modn_turb_cloud.f90 | 49 -------------------------------
src/MNH/read_desfmn.f90 | 3 --
src/MNH/write_desfmn.f90 | 4 ---
src/PHYEX/micro/ini_neb.f90 | 0
5 files changed, 114 deletions(-)
delete mode 100644 src/MNH/modd_turb_cloud.f90
delete mode 100644 src/MNH/modn_turb_cloud.f90
delete mode 100644 src/PHYEX/micro/ini_neb.f90
diff --git a/src/MNH/modd_turb_cloud.f90 b/src/MNH/modd_turb_cloud.f90
deleted file mode 100644
index 28b1f106f..000000000
--- a/src/MNH/modd_turb_cloud.f90
+++ /dev/null
@@ -1,58 +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.
-!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 modd 2006/05/18 13:07:25
-!-----------------------------------------------------------------
-! ##################
- MODULE MODD_TURB_CLOUD
-! ##################
-!
-!!**** *MODD_TURB_CLOUD* - declaration of parameters for cloud mixing length
-!!
-!! PURPOSE
-!! -------
-! The purpose of this declarative module is to declare the
-! variables that may be set by namelist for the cloud mixing length
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! None
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! M. Tomasini *Meteo France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original September, 2004
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-IMPLICIT NONE
-!
-INTEGER,SAVE :: NMODEL_CLOUD ! model number where the modification ! of the mixing length in the clouds is computed
-CHARACTER (LEN=4),SAVE :: CTURBLEN_CLOUD ! type of length in the clouds
- ! 'DEAR' Deardorff mixing length
- ! 'BL89' Bougeault and Lacarrere scheme
- ! 'DELT' length = ( volum) ** 1/3
-REAL,SAVE :: XCOEF_AMPL_SAT ! saturation of the amplification coefficient
-REAL,SAVE :: XCEI_MIN ! minimum threshold for the instability index CEI
- !(beginning of the amplification)
-REAL,SAVE :: XCEI_MAX ! maximum threshold for the instability index CEI
- !(beginning of the saturation of the amplification)
-REAL,SAVE,DIMENSION(:,:,:), ALLOCATABLE :: XCEI ! Cloud Entrainment instability
- ! index to emphasize localy
- ! turbulent fluxes
-!
-END MODULE MODD_TURB_CLOUD
diff --git a/src/MNH/modn_turb_cloud.f90 b/src/MNH/modn_turb_cloud.f90
deleted file mode 100644
index f4929a58c..000000000
--- a/src/MNH/modn_turb_cloud.f90
+++ /dev/null
@@ -1,49 +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.
-!-----------------------------------------------------------------
-!--------------- special set of characters for RCS information
-!-----------------------------------------------------------------
-! $Source$ $Revision$
-! MASDEV4_7 modn 2006/05/18 13:07:25
-!-----------------------------------------------------------------
-! ##################
- MODULE MODN_TURB_CLOUD
-! ##################
-!
-!!**** *MODN_TURB_CLOUD* - declaration of namelist NAM_TURB_CLOUD
-!!
-!! PURPOSE
-!! -------
-! The purpose of this module is to specify the namelist NAM_TURB_CLOUD
-! which concern the parameters of the cloud mixing length for a given model.
-!
-!!
-!!** IMPLICIT ARGUMENTS
-!! ------------------
-!! Module MODD_TURB_CLOUD
-!!
-!! REFERENCE
-!! ---------
-!!
-!! AUTHOR
-!! ------
-!! M. Tomasini *Meteo France*
-!!
-!! MODIFICATIONS
-!! -------------
-!! Original September, 2004
-!-------------------------------------------------------------------------------
-!
-!* 0. DECLARATIONS
-! ------------
-!
-USE MODD_TURB_CLOUD
-!
-IMPLICIT NONE
-!
-NAMELIST/NAM_TURB_CLOUD/NMODEL_CLOUD, CTURBLEN_CLOUD, &
- XCOEF_AMPL_SAT, XCEI_MIN, XCEI_MAX
-!
-END MODULE MODN_TURB_CLOUD
diff --git a/src/MNH/read_desfmn.f90 b/src/MNH/read_desfmn.f90
index e556cdf01..a28561b6b 100644
--- a/src/MNH/read_desfmn.f90
+++ b/src/MNH/read_desfmn.f90
@@ -251,7 +251,6 @@ USE MODN_PARAM_C1R3, ONLY : XALPHAI_C1R3=>XALPHAI,XNUI_C1R3=>XNUI,XALPHAS_C1R3=>
USE MODN_ELEC
USE MODN_SERIES
USE MODN_SERIES_n
-USE MODN_TURB_CLOUD
USE MODN_CH_ORILAM
USE MODN_DUST
USE MODN_SALT
@@ -595,8 +594,6 @@ IF (KMI == 1) THEN
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_ELEC)
CALL POSNAM( TZDESFILE, 'NAM_SERIES', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_SERIES)
- CALL POSNAM( TZDESFILE, 'NAM_TURB_CLOUD', GFOUND )
- IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_TURB_CLOUD)
CALL POSNAM( TZDESFILE, 'NAM_CH_ORILAM', GFOUND )
IF (GFOUND) READ(UNIT=ILUDES,NML=NAM_CH_ORILAM)
CALL POSNAM( TZDESFILE, 'NAM_DUST', GFOUND )
diff --git a/src/MNH/write_desfmn.f90 b/src/MNH/write_desfmn.f90
index 50210c832..167f67b45 100644
--- a/src/MNH/write_desfmn.f90
+++ b/src/MNH/write_desfmn.f90
@@ -201,7 +201,6 @@ USE MODN_PARAM_C1R3
USE MODN_ELEC
USE MODN_SERIES
USE MODN_SERIES_n
-USE MODN_TURB_CLOUD
USE MODN_CH_ORILAM
USE MODN_DUST
USE MODN_SALT
@@ -686,9 +685,6 @@ IF (NVERB >= 5) THEN
!
WRITE(UNIT=ILUOUT,FMT="('************ TEMPORAL SERIES ****************')")
WRITE(UNIT=ILUOUT,NML=NAM_SERIES)
-!
- WRITE(UNIT=ILUOUT,FMT="('************ MIXING LENGTH FOR CLOUD ***********')")
- WRITE(UNIT=ILUOUT,NML=NAM_TURB_CLOUD)
!
END IF
!
diff --git a/src/PHYEX/micro/ini_neb.f90 b/src/PHYEX/micro/ini_neb.f90
deleted file mode 100644
index e69de29bb..000000000
--
GitLab