Skip to content
Snippets Groups Projects
modd_param_ice.F90 3.66 KiB
Newer Older
  • Learn to ignore specific revisions
  • !MNH_LIC Copyright 1995-2019 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 MODD_PARAM_ICE
    !     #####################
    !
    !!****  *MODD_PARAM_ICE* - declaration of the control parameters for the
    !!                           mixed phase cloud parameterization
    !!
    !!    PURPOSE
    !!    -------
    !!      The purpose of this declarative module is to define the set of space
    !!    and time control parameters for the microphysics.
    !!
    !!
    !!**  IMPLICIT ARGUMENTS
    !!    ------------------
    !!      None
    !!
    !!    REFERENCE
    !!    ---------
    !!      Book2 of documentation of Meso-NH (module MODD_PARAM_ICE)
    !!
    !!    AUTHOR
    !!    ------
    !!     J.-P. Pinty   *Laboratoire d'Aerologie*
    !!
    !!    MODIFICATIONS
    !!    -------------
    !!      Original      14/12/95
    !!      Jan 2015 S. Riette: new ICE3/ICE4 parameters
    
    !!      01/10/16 (C.Lac)  Add droplet deposition for fog
    
    !!
    !-------------------------------------------------------------------------------
    !
    !*       0.   DECLARATIONS
    !             ------------
    !
    IMPLICIT NONE
    !
    LOGICAL, SAVE :: LWARM       ! When .TRUE. activates the formation of rain by
                                 ! the warm microphysical processes
    
    LOGICAL, SAVE :: LSEDIC      ! TRUE to enable the droplet sedimentation
    LOGICAL, SAVE :: LDEPOSC     ! TRUE to enable cloud droplet deposition 
    REAL,    SAVE :: XVDEPOSC    ! Droplet deposition velocity        
    
    !
    CHARACTER(LEN=4), SAVE :: CPRISTINE_ICE ! Pristine ice type PLAT, COLU or BURO
    CHARACTER(LEN=4), SAVE :: CSEDIM        ! Sedimentation calculation mode      
    !
    LOGICAL, SAVE :: LFEEDBACKT ! When .TRUE. feed back on temperature is taken into account
    LOGICAL, SAVE :: LEVLIMIT   ! When .TRUE. water vapour pressure is limited by saturation
    LOGICAL, SAVE :: LNULLWETG  ! When .TRUE. graupel wet growth is activated with null rate (to allow water shedding)
    LOGICAL, SAVE :: LWETGPOST  ! When .TRUE. graupel wet growth is activated with positive temperature (to allow water shedding)
    LOGICAL, SAVE :: LNULLWETH  ! Same as LNULLWETG but for hail
    LOGICAL, SAVE :: LWETHPOST  ! Same as LWETGPOST but for hail
    CHARACTER(LEN=4), SAVE :: CSNOWRIMING ! OLD or M90 for Murakami 1990 formulation
    REAL, SAVE :: XFRACM90 ! Fraction used for the Murakami 1990 formulation
    INTEGER, SAVE :: NMAXITER ! Maximum number of iterations for mixing ratio or time splitting
    REAL, SAVE :: XMRSTEP ! maximum mixing ratio step for mixing ratio splitting
    LOGICAL, SAVE :: LCONVHG ! TRUE to allow the conversion from hail to graupel
    LOGICAL, SAVE :: LCRFLIMIT !True to limit rain contact freezing to possible heat exchange
    !
    REAL, SAVE :: XTSTEP_TS ! Approximative time step for time-splitting (0 for no time-splitting)
    !
    
    CHARACTER(len=80), SAVE :: CSUBG_RC_RR_ACCR ! subgrid rc-rr accretion
    CHARACTER(len=80), SAVE :: CSUBG_RR_EVAP ! subgrid rr evaporation
    CHARACTER(len=80), SAVE :: CSUBG_PR_PDF ! pdf for subgrid precipitation
    
    !
    LOGICAL, SAVE :: LADJ_BEFORE ! must we perform an adjustment before rain_ice call
    LOGICAL, SAVE :: LADJ_AFTER ! must we perform an adjustment after rain_ice call
    
    CHARACTER(len=1), SAVE :: CFRAC_ICE_ADJUST ! ice fraction for adjustments
    CHARACTER(len=1), SAVE :: CFRAC_ICE_SHALLOW_MF ! ice fraction for shallow_mf
    
    LOGICAL, SAVE :: LSEDIM_AFTER ! sedimentation done before (.FALSE.) or after (.TRUE.) microphysics
    !
    REAL, SAVE :: XSPLIT_MAXCFL ! Maximum CFL number allowed for SPLIT scheme
    !
    !-------------------------------------------------------------------------------
    !
    END MODULE MODD_PARAM_ICE