Newer
Older
!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.
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
!-----------------------------------------------------------------
!--------------- special set of characters for RCS information
!-----------------------------------------------------------------
! $Source$ $Revision$
! MASDEV4_7 modd 2006/05/18 13:07:25
!-----------------------------------------------------------------
! #######################
MODULE MODD_ELEC_PARAM
! #######################
!
!!**** *MODD_ELEC_PARAM* - declaration of some electrical factors
!! extensively used in the electrical scheme.
!!
!! PURPOSE
!! -------
! The purpose of this declarative module is to declare some precomputed
! electrical parameters directly used in routine RAIN_ICE_ELEC.
!!
!!** IMPLICIT ARGUMENTS
!! ------------------
!! None
!!
!! REFERENCE
!! ---------
!!
!! AUTHOR
!! ------
!! Gilles Molinie * Laboratoire d'Aerologie *
!!
!!
!! MODIFICATIONS
!! -------------
!! Original 14/11/02
!!
!-------------------------------------------------------------------------------
!
!* 0. DECLARATIONS
! ------------
!
REAL, SAVE :: XCOEF_RQ_V, XCOEF_RQ_C, & ! Constants for proportionality
XCOEF_RQ_R, XCOEF_RQ_I, & ! between mass transfer and
XCOEF_RQ_S, XCOEF_RQ_G, & ! charge transfer
XCOEF_RQ_H
!
REAL :: XEGMIN, XEGMAX, XESMIN, XESMAX, & ! Max and min values for
XEIMIN, XEIMAX, XECMIN, XECMAX, & ! e_x in q=e_x D^f_x
XERMIN, XERMAX, XEHMIN, XEHMAX
!
REAL, SAVE :: XQHON ! Constant for spontaneous freezing of droplets if T<-35
!
REAL, SAVE :: XFQSEDR, XEXQSEDR, & ! Constant for sedimentation of rain
XFQSEDI, XEXQSEDI, & ! ice
XFQSEDS, XEXQSEDS, & ! snow
XFQSEDG, XEXQSEDG, & ! graupel
XFQSEDH, XEXQSEDH ! hail
REAL, SAVE :: XFCI ! Constant for sedimentation of the mixing ratio of ice
! which the computation is modified in regard of rain_ice.f90
!
REAL, SAVE :: XQSRIMCG, XEXQSRIMCG ! Constant for riming of cloud droplets
! on snow
REAL, DIMENSION(:), SAVE, ALLOCATABLE :: XGAMINC_RIM3
!
REAL, SAVE :: XQRCFRIG, XEXQRCFRIG ! Constant for contact freezing between
! raindrops and pristine ice
REAL, SAVE :: XFQRACCS ! Constant in RACCS
!
REAL, SAVE :: XFQIAGGSBH, & ! Constant for IAGGS charging
XFQIAGGSBG, XEXFQIAGGSBG, & ! process for HELFA, GARDI,
XFQIAGGSBS, & ! SAUND and TAKAH
XFQIAGGSBT1, XFQIAGGSBT2, XFQIAGGSBT3
!
REAL, SAVE :: XLBQRACCS1, XLBQRACCS2, XLBQRACCS3 ! Integral of normalization
REAL, SAVE :: XLBQSACCRG1, XLBQSACCRG2, XLBQSACCRG3 ! in accretion of raindrops
! on snow process
!
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE & ! Normalized kernel for
:: XKER_Q_RACCS, XKER_Q_RACCSS, XKER_Q_SACCRG ! RACCS, RACCSS, SACCRG
!
REAL, SAVE :: XFQSDRYG, XFQSDRYGB, XFQRDRYG ! Constant in SDRYG and RDRYG
!
! charge separation
!
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE :: XKER_Q_LIMSG
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_Q_SDRYGB, XKER_Q_SDRYGB1, XKER_Q_SDRYGB2
!
! Helsdon-Farley
!
REAL :: XHIDRYG ! Constant charge separated
REAL :: XHSDRYG ! Constant charge separated
REAL, SAVE :: XLBQSDRYGB4H, XLBQSDRYGB5H, XLBQSDRYGB6H ! Constants in QIDRYGB
REAL, SAVE :: XFQSDRYGBH !
!
! Gardiner
!
REAL, SAVE :: XLWCC ! LWC critic in Gardiner NI charging
REAL, SAVE :: XFQIDRYGBG, XLBQIDRYGBG ! Constants in QIDRYGB
REAL, SAVE :: XFQSDRYGBG ! Constants in QSDRYGB
REAL, SAVE :: XLBQSDRYGB4G, XLBQSDRYGB5G, XLBQSDRYGB6G !
!
! Saunders
!
REAL, SAVE :: XIMP, XINP, XIKP, & ! Parameters m, n and k
XIMN, XINN, XIKN, & ! for the NI processes
XSMP, XSNP, XSKP, & ! following
XSMN, XSNN, XSKN ! Saunders et al. (1991)
REAL, SAVE :: XFQIAGGSP, XFQIAGGSN, & ! Auxiliary parameters
XFQIDRYGBSP, XFQIDRYGBSN, & ! containing MOMG function
XLBQSDRYGB1SP, XLBQSDRYGB1SN, &
XLBQSDRYGB2SP, XLBQSDRYGB2SN, &
XLBQSDRYGB3SP, XLBQSDRYGB3SN, &
XAIGAMMABI
REAL, SAVE :: XIKP_TAK, XIKN_TAK, XSKP_TAK, XSKN_TAK ! Using Takahashi charge
REAL, SAVE :: XFQIAGGSP_TAK, XFQIAGGSN_TAK, XFQIDRYGBSP_TAK, XFQIDRYGBSN_TAK
REAL, SAVE :: XVSCOEF, XVGCOEF
REAL, SAVE :: XFQIDRYGBS, XLBQIDRYGBS ! Constants in QIDRYGB
REAL, SAVE :: XFQSDRYGBS ! Constants in QSDRYGB
REAL, SAVE :: XLBQSDRYGB1S, XLBQSDRYGB2S !
!
! Takahashi
!
INTEGER, SAVE :: NIND_TEMP ! number of indexes for temperature
INTEGER, SAVE :: NIND_LWC ! number of indexes for liquid water content
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE :: XMANSELL ! F(LWC, T) for Takahashi(1978) /Mansell
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE :: XSAUNDER ! F(LWC, T) for SAUN1/SAUN2, BSMP1/BSMP2
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE :: XTAKA_TM ! F(LWC, T) for Takahashi/Tsenova and Mitzeva
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
!
REAL, SAVE :: XFQIDRYGBT1, XFQIDRYGBT2, XFQIDRYGBT3, & ! IDRYGB
XFQSDRYGBT1, XFQSDRYGBT2, XFQSDRYGBT3, & ! SDRYGB
XFQSDRYGBT4, XFQSDRYGBT5, XFQSDRYGBT6, & ! SDRYGB
XFQSDRYGBT7, XFQSDRYGBT8, XFQSDRYGBT9, & ! SDRYGB
XFQSDRYGBT10, XFQSDRYGBT11, XFQSDRYGBT12 ! SDRYGB
!
REAL, SAVE :: XLBQRDRYG1, XLBQRDRYG2, XLBQRDRYG3 ! Integral of normalization in
REAL, SAVE :: XLBQSDRYG1, XLBQSDRYG2, XLBQSDRYG3 ! the accretion of graupel on
! raindrop and snow process
!
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XKER_Q_SDRYG, XKER_Q_RDRYG ! Normalized kernel for SDRYG and RDRYG
!
REAL, SAVE :: XFQUPDC, XFQUPDR, XFQUPDI,& ! Update Q=f(D)
XEXFQUPDI, XFQUPDS, XFQUPDG, XFQUPDH
!
REAL, SAVE :: XQREVAV1, XQREVAV2 ! Raindrops evaporation
!
! Add variables to limit the exchanged charge
!
REAL, SAVE :: XAUX_LIM
REAL, SAVE :: XAUX_LIM1, XAUX_LIM2, XAUX_LIM3
!
!
! Inductive charging process
!
REAL, SAVE :: XCOLCG_IND ! collision effiency
REAL, SAVE :: XEBOUND ! rebound efficiency
REAL, SAVE :: XALPHA_IND ! fraction of droplets with grazing trajectories
REAL, SAVE :: XCOS_THETA ! average cosine of the angle of rebounding collision
REAL, SAVE :: XIND1, XIND2, XIND3
!
! lightning
!
REAL :: XFQLIGHTC, XFQLIGHTR, XFQLIGHTI, &
XFQLIGHTS, XFQLIGHTG, XFQLIGHTH ! Constant for charge redistribution
REAL :: XEXQLIGHTR, XEXQLIGHTI, &
XEXQLIGHTS, XEXQLIGHTG, XEXQLIGHTH ! Exponent for charge redistribution