phylmd/CV_routines/cv_param.f

!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cv_routines.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
!
      SUBROUTINE cv_param(nd)
            use cvparam
      implicit none

!------------------------------------------------------------
! Set parameters for convectL
! (includes microphysical parameters and parameters that
!  control the rate of approach to quasi-equilibrium)
!------------------------------------------------------------

!   *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) ***
!   ***  TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-        ***
!   ***       CONVERSION THRESHOLD IS ASSUMED TO BE ZERO             ***
!   ***     (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY            ***
!   ***               BETWEEN 0 C AND TLCRIT)                        ***
!   ***   ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT       ***
!   ***                       FORMULATION                            ***
!   ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***
!   ***  SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE       ***
!   ***                        OF CLOUD                              ***
!   ***        OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN       ***
!   ***     OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW          ***
!   ***  COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
!   ***                          OF RAIN                             ***
!   ***  COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***
!   ***                          OF SNOW                             ***
!   ***     CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM      ***
!   ***                         TRANSPORT                            ***
!   ***    DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION    ***
!   ***        A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC      ***
!   ***    ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF    ***
!   ***                 APPROACH TO QUASI-EQUILIBRIUM                ***
!   ***   (THEIR STANDARD VALUES ARE  0.20 AND 0.1, RESPECTIVELY)    ***
!   ***                   (DAMP MUST BE LESS THAN 1)                 ***

      integer nd

! noff: integer limit for convection (nd-noff)
! minorig: First level of convection

      noff = 2
      minorig = 2

      nl=nd-noff
      nlp=nl+1
      nlm=nl-1

      elcrit=0.0011
      tlcrit=-55.0
      entp=1.5
      sigs=0.12
      sigd=0.05
      omtrain=50.0
      omtsnow=5.5
      coeffr=1.0
      coeffs=0.8
      dtmax=0.9
!
      cu=0.70
!
      betad=10.0
!
      damp=0.1
      alpha=0.2
!
      delta=0.01  ! cld
!
      return
      end
1	guez	3	!
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	guez	52	use cvparam
6	guez	3	implicit none
7
8	guez	52	!------------------------------------------------------------
9			! Set parameters for convectL
10			! (includes microphysical parameters and parameters that
11			! control the rate of approach to quasi-equilibrium)
12			!------------------------------------------------------------
13	guez	3
14	guez	52	! * 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	guez	3
39			integer nd
40
41	guez	52	! noff: integer limit for convection (nd-noff)
42			! minorig: First level of convection
43	guez	3
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	guez	52	!
62	guez	3	cu=0.70
63	guez	52	!
64	guez	3	betad=10.0
65	guez	52	!
66	guez	3	damp=0.1
67			alpha=0.2
68	guez	52	!
69	guez	3	delta=0.01 ! cld
70	guez	52	!
71	guez	3	return
72			end