1 |
guez |
3 |
! |
2 |
|
|
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cv_routines.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $ |
3 |
|
|
! |
4 |
|
|
SUBROUTINE cv_param(nd) |
5 |
guez |
52 |
use cvparam |
6 |
guez |
3 |
implicit none |
7 |
|
|
|
8 |
guez |
52 |
!------------------------------------------------------------ |
9 |
|
|
! Set parameters for convectL |
10 |
|
|
! (includes microphysical parameters and parameters that |
11 |
|
|
! control the rate of approach to quasi-equilibrium) |
12 |
|
|
!------------------------------------------------------------ |
13 |
guez |
3 |
|
14 |
guez |
52 |
! *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) *** |
15 |
|
|
! *** TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO- *** |
16 |
|
|
! *** CONVERSION THRESHOLD IS ASSUMED TO BE ZERO *** |
17 |
|
|
! *** (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY *** |
18 |
|
|
! *** BETWEEN 0 C AND TLCRIT) *** |
19 |
|
|
! *** ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT *** |
20 |
|
|
! *** FORMULATION *** |
21 |
|
|
! *** SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT *** |
22 |
|
|
! *** SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE *** |
23 |
|
|
! *** OF CLOUD *** |
24 |
|
|
! *** OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN *** |
25 |
|
|
! *** OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW *** |
26 |
|
|
! *** COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION *** |
27 |
|
|
! *** OF RAIN *** |
28 |
|
|
! *** COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION *** |
29 |
|
|
! *** OF SNOW *** |
30 |
|
|
! *** CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM *** |
31 |
|
|
! *** TRANSPORT *** |
32 |
|
|
! *** DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION *** |
33 |
|
|
! *** A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC *** |
34 |
|
|
! *** ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF *** |
35 |
|
|
! *** APPROACH TO QUASI-EQUILIBRIUM *** |
36 |
|
|
! *** (THEIR STANDARD VALUES ARE 0.20 AND 0.1, RESPECTIVELY) *** |
37 |
|
|
! *** (DAMP MUST BE LESS THAN 1) *** |
38 |
guez |
3 |
|
39 |
|
|
integer nd |
40 |
|
|
|
41 |
guez |
52 |
! noff: integer limit for convection (nd-noff) |
42 |
|
|
! minorig: First level of convection |
43 |
guez |
3 |
|
44 |
|
|
noff = 2 |
45 |
|
|
minorig = 2 |
46 |
|
|
|
47 |
|
|
nl=nd-noff |
48 |
|
|
nlp=nl+1 |
49 |
|
|
nlm=nl-1 |
50 |
|
|
|
51 |
|
|
elcrit=0.0011 |
52 |
|
|
tlcrit=-55.0 |
53 |
|
|
entp=1.5 |
54 |
|
|
sigs=0.12 |
55 |
|
|
sigd=0.05 |
56 |
|
|
omtrain=50.0 |
57 |
|
|
omtsnow=5.5 |
58 |
|
|
coeffr=1.0 |
59 |
|
|
coeffs=0.8 |
60 |
|
|
dtmax=0.9 |
61 |
guez |
52 |
! |
62 |
guez |
3 |
cu=0.70 |
63 |
guez |
52 |
! |
64 |
guez |
3 |
betad=10.0 |
65 |
guez |
52 |
! |
66 |
guez |
3 |
damp=0.1 |
67 |
|
|
alpha=0.2 |
68 |
guez |
52 |
! |
69 |
guez |
3 |
delta=0.01 ! cld |
70 |
guez |
52 |
! |
71 |
guez |
3 |
return |
72 |
|
|
end |