Skip to content
Snippets Groups Projects
Commit b692b9b0 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 22/09/2023: PHYEX v0.6.3 integration, remove useless files : modn_... 

Quentin 22/09/2023: PHYEX v0.6.3 integration, remove useless files : modn_ have been merged to modd_ for each param. lima_nucleation_procs has been renamed to mode_lima (forgot to pre- git mv this file)
parent 96e9be10
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
src/MNH/modn_param_ice.f90 deleted 100644 → 0
+ 0
− 32
View file @ 96e9be10
!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: /home/cvsroot/MNH-VX-Y-Z/src/MNH/modn_param_ice.f90,v $ $Revision: 1.2.2.1.2.1.18.3 $
! MASDEV4_7 modn 2006/10/16 14:23:23
!-----------------------------------------------------------------
! #####################
MODULE MODN_PARAM_ICE
! #####################
!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_PARAM_ICE
!
IMPLICIT NONE
!
NAMELIST/NAM_PARAM_ICE/LWARM,LSEDIC,LCONVHG,CPRISTINE_ICE,CSEDIM,LDEPOSC,XVDEPOSC, &
LRED, LFEEDBACKT, &
LEVLIMIT,LNULLWETG,LWETGPOST,LNULLWETH,LWETHPOST, &
CSNOWRIMING,XFRACM90,NMAXITER,XMRSTEP,XTSTEP_TS, &
LADJ_BEFORE, LADJ_AFTER, CFRAC_ICE_ADJUST, LCRFLIMIT, &
XSPLIT_MAXCFL, CFRAC_ICE_SHALLOW_MF, LSEDIM_AFTER, &
CSUBG_RC_RR_ACCR, CSUBG_RR_EVAP, CSUBG_PR_PDF, LSNOW_T
!
END MODULE MODN_PARAM_ICE
src/MNH/modn_param_mfshalln.f90 deleted 100644 → 0
+ 0
− 180
View file @ 96e9be10
!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.
!-----------------------------------------------------------------
!! MODIFICATIONS
!! -------------
!! 10/16 R.Honnert Update with AROME
!! 01/2019 R.Honnert add parameters for the reduction of mass-flux surface closure with resolution
!-----------------------------------------------------------------
! ###########################
MODULE MODN_PARAM_MFSHALL_n
! ###########################
!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_PARAM_MFSHALL_n, ONLY: &
XIMPL_MF_n => XIMPL_MF, &
CMF_UPDRAFT_n => CMF_UPDRAFT, &
CMF_CLOUD_n => CMF_CLOUD, &
LMIXUV_n => LMIXUV, &
LMF_FLX_n => LMF_FLX, &
XALP_PERT_n => XALP_PERT, &
XABUO_n => XABUO, &
XBENTR_n => XBENTR, &
XBDETR_n => XBDETR, &
XCMF_n => XCMF, &
XENTR_MF_n => XENTR_MF, &
XCRAD_MF_n => XCRAD_MF, &
XENTR_DRY_n => XENTR_DRY, &
XDETR_DRY_n => XDETR_DRY, &
XDETR_LUP_n => XDETR_LUP, &
XKCF_MF_n => XKCF_MF, &
XKRC_MF_n => XKRC_MF, &
XTAUSIGMF_n => XTAUSIGMF, &
XPRES_UV_n => XPRES_UV, &
XALPHA_MF_n => XALPHA_MF, &
XSIGMA_MF_n => XSIGMA_MF, &
XFRAC_UP_MAX_n => XFRAC_UP_MAX, &
XA1_n => XA1, &
XB_n => XB, &
XC_n => XC, &
XBETA1_n => XBETA1, &
XR_n => XR, &
XLAMBDA_MF_n => XLAMBDA_MF, &
LGZ_n => LGZ, &
XGZ_n => XGZ
!
IMPLICIT NONE
!
REAL ,SAVE :: XIMPL_MF
CHARACTER (LEN=4),SAVE :: CMF_UPDRAFT
CHARACTER (LEN=4),SAVE :: CMF_CLOUD
LOGICAL ,SAVE :: LMIXUV
LOGICAL ,SAVE :: LMF_FLX
!
REAL,SAVE :: XALP_PERT ! coefficient for the perturbation of
! theta_l and r_t at the first level of
! the updraft
REAL,SAVE :: XABUO ! coefficient of the buoyancy term in the w_up equation
REAL,SAVE :: XBENTR ! coefficient of the entrainment term in the w_up equation
REAL,SAVE :: XBDETR ! coefficient of the detrainment term in the w_up equation
REAL,SAVE :: XCMF ! coefficient for the mass flux at the first level
! of the updraft (closure)
REAL,SAVE :: XENTR_MF ! entrainment constant (m/Pa) = 0.2 (m)
REAL,SAVE :: XCRAD_MF ! cloud radius in cloudy part
REAL,SAVE :: XENTR_DRY ! coefficient for entrainment in dry part
REAL,SAVE :: XDETR_DRY ! coefficient for detrainment in dry part
REAL,SAVE :: XDETR_LUP ! coefficient for detrainment in dry part
REAL,SAVE :: XKCF_MF ! coefficient for cloud fraction
REAL,SAVE :: XKRC_MF ! coefficient for convective rc
REAL,SAVE :: XTAUSIGMF
REAL,SAVE :: XPRES_UV ! coefficient for pressure term in wind
! mixing
REAL,SAVE :: XALPHA_MF ! coefficient for cloudy fraction
REAL,SAVE :: XSIGMA_MF ! coefficient for sigma computation
REAL,SAVE :: XFRAC_UP_MAX! maximum Updraft fraction
!
!
! Tuning variables for RHCJ10 updraft :
!
REAL,SAVE :: XA1
REAL,SAVE :: XB
REAL,SAVE :: XC
REAL,SAVE :: XBETA1
!
! Tuning variables for RAHA updraft :
!
REAL,SAVE :: XR
REAL,SAVE :: XLAMBDA_MF
!
! Tuning variables for Grey Zone updraft :
!
LOGICAL,SAVE :: LGZ
REAL,SAVE :: XGZ
!
NAMELIST/NAM_PARAM_MFSHALLn/XIMPL_MF,CMF_UPDRAFT,CMF_CLOUD,LMIXUV,LMF_FLX,&
XALP_PERT,XABUO,XBENTR,XBDETR,XCMF,XENTR_MF,&
XCRAD_MF,XENTR_DRY,XDETR_DRY,XDETR_LUP,XKCF_MF,&
XKRC_MF,XTAUSIGMF,XPRES_UV,XALPHA_MF,XSIGMA_MF,&
XFRAC_UP_MAX,XA1,XB,XC,XBETA1,XR,XLAMBDA_MF,LGZ,XGZ
!
CONTAINS
!
SUBROUTINE INIT_NAM_PARAM_MFSHALLn
XIMPL_MF = XIMPL_MF_n
CMF_UPDRAFT = CMF_UPDRAFT_n
CMF_CLOUD = CMF_CLOUD_n
LMIXUV = LMIXUV_n
LMF_FLX = LMF_FLX_n
XALP_PERT = XALP_PERT_n
XABUO = XABUO_n
XBENTR = XBENTR_n
XBDETR = XBDETR_n
XCMF = XCMF_n
XENTR_MF = XENTR_MF_n
XCRAD_MF = XCRAD_MF_n
XENTR_DRY = XENTR_DRY_n
XDETR_DRY = XDETR_DRY_n
XDETR_LUP = XDETR_LUP_n
XKCF_MF = XKCF_MF_n
XKRC_MF = XKRC_MF_n
XTAUSIGMF = XTAUSIGMF_n
XPRES_UV = XPRES_UV_n
XALPHA_MF = XALPHA_MF_n
XSIGMA_MF = XSIGMA_MF_n
XFRAC_UP_MAX = XFRAC_UP_MAX_n
XA1 = XA1_n
XB = XB_n
XC = XC_n
XBETA1 = XBETA1_n
XR = XR_n
XLAMBDA_MF = XLAMBDA_MF_n
LGZ = LGZ_n
XGZ = XGZ_n
END SUBROUTINE INIT_NAM_PARAM_MFSHALLn
SUBROUTINE UPDATE_NAM_PARAM_MFSHALLn
XIMPL_MF_n = XIMPL_MF
CMF_UPDRAFT_n = CMF_UPDRAFT
CMF_CLOUD_n = CMF_CLOUD
LMIXUV_n = LMIXUV
LMF_FLX_n = LMF_FLX
XALP_PERT_n = XALP_PERT
XABUO_n = XABUO
XBENTR_n = XBENTR
XBDETR_n = XBDETR
XCMF_n = XCMF
XENTR_MF_n = XENTR_MF
XCRAD_MF_n = XCRAD_MF
XENTR_DRY_n = XENTR_DRY
XDETR_DRY_n = XDETR_DRY
XDETR_LUP_n = XDETR_LUP
XKCF_MF_n = XKCF_MF
XKRC_MF_n = XKRC_MF
XTAUSIGMF_n = XTAUSIGMF
XPRES_UV_n = XPRES_UV
XALPHA_MF_n = XALPHA_MF
XSIGMA_MF_n = XSIGMA_MF
XFRAC_UP_MAX_n = XFRAC_UP_MAX
XA1_n = XA1
XB_n = XB
XC_n = XC
XBETA1_n = XBETA1
XR_n = XR
XLAMBDA_MF_n = XLAMBDA_MF
LGZ_n = LGZ
XGZ_n = XGZ
END SUBROUTINE UPDATE_NAM_PARAM_MFSHALLn
END MODULE MODN_PARAM_MFSHALL_n
src/MNH/modn_turbn.f90 deleted 100644 → 0
+ 0
− 167
View file @ 96e9be10
!MNH_LIC Copyright 1995-2021 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.
!-----------------------------------------------------------------
! ###################
MODULE MODN_TURB_n
! ###################
!
!!**** *MODN_TURB$n* - declaration of namelist NAM_TURBn
!!
!! PURPOSE
!! -------
! The purpose of this module is to specify the namelist NAM_TURBn
! which concern the parameters of the turbulence scheme for one nested
! model.
!
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! Module MODD_TURB$n : contains declaration of turbulence scheme
!! variables entering by a namelist
!!
!! XIMPL,CTURBLEN,CTURBDIM,LTURB_FLX
!! LTURB_DIAG,LSUBG_COND,LTGT_FLX
!!
!! REFERENCE
!! ---------
!! Book2 of documentation of Meso-NH (module MODD_TURBn)
!!
!! AUTHOR
!! ------
!! J. Cuxart and J. Stein * I.N.M. and Meteo-France *
!!
!! MODIFICATIONS
!! -------------
!! Original January 9, 1995
!! J.Cuxart February 15, 1995 add the switches for diagnostic storages
!! J. Stein June 14, 1995 add the subgrid condensation switch
!! J. Stein October, 1999 add the tangential fluxes switch
!! M. Tomasini Jul 05, 2001 add the subgrid autoconversion
!! P. Bechtold Feb 11, 2002 add switch for Sigma_s computation
!! P. Jabouille Apr 4, 2002 add switch for Sigma_s convection
!! V. Masson Nov 13 2002 add switch for SBL lengths
!! D. Ricard May, 2021 add switch for Leonard Terms
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
USE MODD_TURB_n, ONLY: &
XIMPL_n => XIMPL, &
XKEMIN_n => XKEMIN, &
XCEDIS_n => XCEDIS, &
XCADAP_n => XCADAP, &
CTURBLEN_n => CTURBLEN, &
CTURBDIM_n => CTURBDIM, &
LTURB_FLX_n => LTURB_FLX, &
LTURB_DIAG_n => LTURB_DIAG, &
LSUBG_COND_n => LSUBG_COND, &
LSIGMAS_n => LSIGMAS, &
LSIG_CONV_n => LSIG_CONV, &
LRMC01_n => LRMC01, &
CTOM_n => CTOM, &
CSUBG_AUCV_n => CSUBG_AUCV, &
VSIGQSAT_n => VSIGQSAT, &
CSUBG_AUCV_RI_n => CSUBG_AUCV_RI, &
CCONDENS_n => CCONDENS, &
CLAMBDA3_n => CLAMBDA3, &
CSUBG_MF_PDF_n => CSUBG_MF_PDF, &
LLEONARD_n => LLEONARD, &
XCOEFHGRADTHL_n => XCOEFHGRADTHL, &
XCOEFHGRADRM_n => XCOEFHGRADRM, &
XALTHGRAD_n => XALTHGRAD, &
XCLDTHOLD_n => XCLDTHOLD
!
IMPLICIT NONE
!
REAL,SAVE :: XIMPL
REAL,SAVE :: XKEMIN
REAL,SAVE :: XCEDIS
REAL,SAVE :: XCADAP
CHARACTER (LEN=4),SAVE :: CTURBLEN
CHARACTER (LEN=4),SAVE :: CTURBDIM
LOGICAL,SAVE :: LTURB_FLX
LOGICAL,SAVE :: LTURB_DIAG
LOGICAL,SAVE :: LSUBG_COND
LOGICAL,SAVE :: LSIGMAS
LOGICAL,SAVE :: LSIG_CONV
LOGICAL,SAVE :: LRMC01
CHARACTER (LEN=4),SAVE :: CTOM
CHARACTER (LEN=4),SAVE :: CSUBG_AUCV
CHARACTER (LEN=80),SAVE :: CSUBG_AUCV_RI
CHARACTER (LEN=80),SAVE :: CCONDENS
CHARACTER (LEN=4),SAVE :: CLAMBDA3
CHARACTER (LEN=80),SAVE :: CSUBG_MF_PDF
REAL,SAVE :: VSIGQSAT
LOGICAL,SAVE :: LLEONARD
REAL,SAVE :: XCOEFHGRADTHL
REAL,SAVE :: XCOEFHGRADRM
REAL,SAVE :: XALTHGRAD
REAL,SAVE :: XCLDTHOLD
!
NAMELIST/NAM_TURBn/XIMPL,CTURBLEN,CTURBDIM,LTURB_FLX,LTURB_DIAG, &
LSUBG_COND,LSIGMAS,LSIG_CONV,LRMC01,CTOM,CSUBG_AUCV,&
XKEMIN,VSIGQSAT,XCEDIS,XCADAP,CSUBG_AUCV_RI,CCONDENS,&
CLAMBDA3,CSUBG_MF_PDF,LLEONARD,XCOEFHGRADTHL, XCOEFHGRADRM, &
XALTHGRAD, XCLDTHOLD
!
CONTAINS
!
SUBROUTINE INIT_NAM_TURBn
XIMPL = XIMPL_n
XKEMIN = XKEMIN_n
XCEDIS = XCEDIS_n
XCADAP = XCADAP_n
CTURBLEN = CTURBLEN_n
CTURBDIM = CTURBDIM_n
LTURB_FLX = LTURB_FLX_n
LTURB_DIAG = LTURB_DIAG_n
LSUBG_COND = LSUBG_COND_n
LSIGMAS = LSIGMAS_n
LSIG_CONV = LSIG_CONV_n
LRMC01 = LRMC01_n
CTOM = CTOM_n
CSUBG_AUCV = CSUBG_AUCV_n
VSIGQSAT = VSIGQSAT_n
CSUBG_AUCV_RI = CSUBG_AUCV_RI_n
CCONDENS = CCONDENS_n
CLAMBDA3 = CLAMBDA3_n
CSUBG_MF_PDF = CSUBG_MF_PDF_n
LLEONARD = LLEONARD_n
XCOEFHGRADTHL = XCOEFHGRADTHL_n
XCOEFHGRADRM = XCOEFHGRADRM_n
XALTHGRAD = XALTHGRAD_n
XCLDTHOLD = XCLDTHOLD_n
END SUBROUTINE INIT_NAM_TURBn
SUBROUTINE UPDATE_NAM_TURBn
XIMPL_n = XIMPL
XKEMIN_n = XKEMIN
XCEDIS_n = XCEDIS
XCADAP_n = XCADAP
CTURBLEN_n = CTURBLEN
CTURBDIM_n = CTURBDIM
LTURB_FLX_n = LTURB_FLX
LTURB_DIAG_n = LTURB_DIAG
LSUBG_COND_n = LSUBG_COND
LSIGMAS_n = LSIGMAS
LSIG_CONV_n = LSIG_CONV
LRMC01_n = LRMC01
CTOM_n = CTOM
CSUBG_AUCV_n = CSUBG_AUCV
VSIGQSAT_n = VSIGQSAT
CSUBG_AUCV_RI_n = CSUBG_AUCV_RI
CCONDENS_n = CCONDENS
CLAMBDA3_n = CLAMBDA3
CSUBG_MF_PDF_n = CSUBG_MF_PDF
LLEONARD_n = LLEONARD
XCOEFHGRADTHL_n = XCOEFHGRADTHL
XCOEFHGRADRM_n = XCOEFHGRADRM
XALTHGRAD_n = XALTHGRAD
XCLDTHOLD_n = XCLDTHOLD
END SUBROUTINE UPDATE_NAM_TURBn
END MODULE MODN_TURB_n
src/PHYEX/micro/ini_neb.f90 deleted 100644 → 0
+ 0
− 63
View file @ 96e9be10
!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
! #######################
!
!!**** *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)
!
CALL NEB_ASSOCIATE()
!
!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
src/PHYEX/micro/lima_nucleation_procs.f90 deleted 100644 → 0
+ 0
− 394
View file @ 96e9be10
This diff is collapsed.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme