Newer
Older
1
2
3
4
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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
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
!-----------------------------------------------------------------
!--------------- 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
REAL, DIMENSION(:,:), SAVE, ALLOCATABLE &
:: XFTAKA ! F(T,LWC) for Takahashi (1978) charge
! generation parametrization
!
! 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 :: XINISAP
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(T,LWC) for Takahashi(1978)
!
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 ! Constant for charge redistribution
REAL :: XEXQLIGHTR, &
XEXQLIGHTI, XEXQLIGHTS, XEXQLIGHTG ! Exponent for charge redistribution
!
END MODULE MODD_ELEC_PARAM