6 |
! - microphysical parameters |
! - microphysical parameters |
7 |
! - parameters that control the rate of approach to quasi-equilibrium |
! - parameters that control the rate of approach to quasi-equilibrium |
8 |
|
|
9 |
|
USE dimphy, ONLY: klev |
10 |
|
|
11 |
implicit none |
implicit none |
12 |
|
|
13 |
integer minorig ! first level of convection |
integer minorig ! first level of convection |
14 |
integer nl ! limit for convection |
|
15 |
|
integer, parameter:: nl = klev - 1 |
16 |
|
! Limit for convection. The maximum number of levels to which |
17 |
|
! convection can penetrate, plus 1. nl must be <= KLEV-1. |
18 |
|
|
19 |
real sigd ! FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT |
real sigd ! FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT |
20 |
real spfac ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD |
real spfac ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD |
21 |
|
|
43 |
real delta |
real delta |
44 |
real betad |
real betad |
45 |
|
|
46 |
|
private klev |
47 |
|
|
48 |
contains |
contains |
49 |
|
|
50 |
SUBROUTINE cv30_param(delt) |
SUBROUTINE cv30_param(delt) |
53 |
|
|
54 |
! Set parameters for Emanuel convection scheme |
! Set parameters for Emanuel convection scheme |
55 |
|
|
|
USE dimphy, ONLY: klev |
|
|
|
|
56 |
real, intent(in):: delt ! timestep (seconds) |
real, intent(in):: delt ! timestep (seconds) |
57 |
|
|
58 |
!------------------------------------------------------------ |
!------------------------------------------------------------ |
59 |
|
|
60 |
! Limit levels for convection: |
! Limit levels for convection: |
61 |
minorig = 1 |
minorig = 1 |
|
nl = klev - 1 |
|
62 |
|
|
63 |
! "Microphysical" parameters: |
! "Microphysical" parameters: |
64 |
|
|