Parent Directory | Revision Log
Module pressure_var is now only used in gcm. Created local variables pls and p3d in etat0, added argument p3d to regr_pr_o3. In leapfrog, moved computation of p3d and exner function immediately after integrd, for clarity (does not change the execution). Removed unused arguments: ntra, tra1 and tra of cv3_compress; ntra, tra and traent of cv3_mixing; ntra, ftra, ftra1 of cv3_uncompress; ntra, tra, trap of cv3_unsat; ntra, tra, trap, traent, ftra of cv3_yield; tra, tvp, pbase, bbase, dtvpdt1, dtvpdq1, dplcldt, dplcldr, ntra of concvl; ndp1, ntra, tra1 of cv_driver Removed argument d_tra and computation of d_tra in concvl. Removed argument ftra1 and computation of ftra1 in cv_driver. ftra1 was just set to 0 in cv_driver, associated to d_tra in concvl, and set again to zero in concvl.
1 | ! |
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 | use cvparam |
6 | implicit none |
7 | |
8 | !------------------------------------------------------------ |
9 | ! Set parameters for convectL |
10 | ! (includes microphysical parameters and parameters that |
11 | ! control the rate of approach to quasi-equilibrium) |
12 | !------------------------------------------------------------ |
13 | |
14 | ! *** 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 | |
39 | integer, intent(in):: nd |
40 | |
41 | ! noff: integer limit for convection (nd-noff) |
42 | ! minorig: First level of convection |
43 | |
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 | ! |
62 | cu=0.70 |
63 | ! |
64 | betad=10.0 |
65 | ! |
66 | damp=0.1 |
67 | alpha=0.2 |
68 | ! |
69 | delta=0.01 ! cld |
70 | ! |
71 | return |
72 | end |
ViewVC Help | |
Powered by ViewVC 1.1.21 |