1 |
module cv3_param_m |
module cv30_param_m |
2 |
|
|
3 |
! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09 |
! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09 |
4 |
|
|
5 |
! Parameters for iflag_con = 3: |
! Parameters for Emanuel convection scheme: |
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 |
|
|
40 |
|
|
41 |
contains |
contains |
42 |
|
|
43 |
SUBROUTINE cv3_param(nd, delt) |
SUBROUTINE cv30_param(nd, delt) |
44 |
|
|
45 |
! From LMDZ4/libf/phylmd/cv3_routines.F, version 1.5, 2005/07/11 15:20:02 |
! From LMDZ4/libf/phylmd/cv3_routines.F, version 1.5, 2005/07/11 15:20:02 |
46 |
|
|
47 |
! Set parameters for iflag_con = 3 |
! Set parameters for Emanuel convection scheme |
48 |
|
|
49 |
integer, intent(in):: nd |
integer, intent(in):: nd |
50 |
real, intent(in):: delt ! timestep (seconds) |
real, intent(in):: delt ! timestep (seconds) |
92 |
|
|
93 |
betad=10.0 ! original value (from convect 4.3) |
betad=10.0 ! original value (from convect 4.3) |
94 |
|
|
95 |
end SUBROUTINE cv3_param |
end SUBROUTINE cv30_param |
96 |
|
|
97 |
end module cv3_param_m |
end module cv30_param_m |