phylmd/CV30_routines/cv30_param.f

module cv30_param_m

  ! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09

  ! Set parameters for Emanuel convection scheme. Includes
  ! microphysical parameters and parameters that control the rate of
  ! approach to quasi-equilibrium.

  USE dimphy, ONLY: klev

  implicit none

  integer, parameter:: minorig = 1 
  ! first level of convection (limit levels for convection)

  integer, parameter:: nl = klev - 1
  ! Limit for convection. The maximum number of levels to which
  ! convection can penetrate, plus 1. We should have:
  ! 6 <= nl <= KLEV - 1
  ! (because of locate in cv30_feed).

  real, parameter:: sigd = 0.01 
  ! fractional area covered by unsaturated downdraft 

  real, parameter:: dtcrit = - 2.
  ! Critical buoyancy (K) used to adjust the approach to
  ! quasi-equilibrium. It must be < 0.

  real beta, alpha
  ! Parameters that control the rate of approach to quasi-equilibrium
  ! (their standard values are 1. and 0.96, respectively) (beta must
  ! be less than or equal to 1).

  private klev

contains

  SUBROUTINE cv30_param

    ! From LMDZ4/libf/phylmd/cv3_routines.F, version 1.5, 2005/07/11 15:20:02

    use comconst, only: dtphys

    ! Local:

    real, parameter:: tau = 8000.
    ! characteristic timescale used to compute alpha and beta

    !------------------------------------------------------------

    beta = 1. - dtphys / tau

    alpha = 1.5E-3 * dtphys / tau * 1.5
    ! factor 1.5: increase alpha to compensate W decrease

  end SUBROUTINE cv30_param

end module cv30_param_m
1	guez	185	module cv30_param_m
2	guez	3
3	guez	97	! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09
4	guez	3
5	guez	195	! Set parameters for Emanuel convection scheme. Includes
6			! microphysical parameters and parameters that control the rate of
7			! approach to quasi-equilibrium.
8	guez	3
9	guez	187	USE dimphy, ONLY: klev
10
11	guez	69	implicit none
12	guez	3
13	guez	195	integer, parameter:: minorig = 1
14			! first level of convection (limit levels for convection)
15	guez	187
16			integer, parameter:: nl = klev - 1
17			! Limit for convection. The maximum number of levels to which
18	guez	195	! convection can penetrate, plus 1. We should have:
19			! 6 <= nl <= KLEV - 1
20			! (because of locate in cv30_feed).
21	guez	187
22	guez	195	real, parameter:: sigd = 0.01
23			! fractional area covered by unsaturated downdraft
24	guez	3
25	guez	195	real, parameter:: dtcrit = - 2.
26			! Critical buoyancy (K) used to adjust the approach to
27			! quasi-equilibrium. It must be < 0.
28	guez	3
29	guez	69	real beta, alpha
30	guez	195	! Parameters that control the rate of approach to quasi-equilibrium
31			! (their standard values are 1. and 0.96, respectively) (beta must
32			! be less than or equal to 1).
33	guez	3
34	guez	187	private klev
35
36	guez	69	contains
37	guez	3
38	guez	195	SUBROUTINE cv30_param
39	guez	3
40	guez	97	! From LMDZ4/libf/phylmd/cv3_routines.F, version 1.5, 2005/07/11 15:20:02
41	guez	3
42	guez	195	use comconst, only: dtphys
43	guez	3
44	guez	195	! Local:
45	guez	3
46	guez	195	real, parameter:: tau = 8000.
47			! characteristic timescale used to compute alpha and beta
48
49	guez	69	!------------------------------------------------------------
50	guez	3
51	guez	195	beta = 1. - dtphys / tau
52	guez	3
53	guez	195	alpha = 1.5E-3 * dtphys / tau * 1.5
54			! factor 1.5: increase alpha to compensate W decrease
55	guez	69
56	guez	185	end SUBROUTINE cv30_param
57	guez	69
58	guez	185	end module cv30_param_m