1 |
module cv3_param_m |
module cv3_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 |
|
|
42 |
|
|
43 |
SUBROUTINE cv3_param(nd, delt) |
SUBROUTINE cv3_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) |
55 |
|
|
56 |
noff = 1 |
noff = 1 |
57 |
minorig = 1 |
minorig = 1 |
58 |
nl=nd-noff |
nl = nd - noff |
59 |
nlp=nl+1 |
nlp=nl+1 |
60 |
nlm=nl-1 |
nlm=nl-1 |
61 |
|
|