/[lmdze]/trunk/phylmd/CV_routines/cv_param.f
ViewVC logotype

Diff of /trunk/phylmd/CV_routines/cv_param.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 102 by guez, Fri Apr 25 14:58:31 2014 UTC revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 1  Line 1 
1  !  module cv_param
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/cv_routines.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $  
3  !    ! From LMDZ4/libf/phylmd/cvparam.h,v 1.1.1.1 2004/05/19 12:53:08
4        SUBROUTINE cv_param(nd)    ! and LMDZ4/libf/phylmd/cv_routines.F, version 1.1.1.1, 2004/05/19 12:53:08
5              use cvparam  
6        implicit none    ! Parameters for convectL: includes microphysical parameters, and
7      ! parameters that control the rate of approach to quasi-equilibrium.
8  !------------------------------------------------------------  
9  ! Set parameters for convectL    use dimphy, only: klev
10  ! (includes microphysical parameters and parameters that  
11  !  control the rate of approach to quasi-equilibrium)    implicit none
12  !------------------------------------------------------------  
13      integer, parameter:: noff= 2, minorig= 2, nl=klev-noff, nlp=nl+1, nlm=nl-1
14  !   *** ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm) ***    ! noff: integer limit for convection (klev-noff)
15  !   ***  TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-        ***    ! minorig: First level of convection
16  !   ***       CONVERSION THRESHOLD IS ASSUMED TO BE ZERO             ***    real, parameter:: elcrit=0.0011, tlcrit=-55.
17  !   ***     (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY            ***    ! ELCRIT IS THE AUTOCONVERSION THERSHOLD WATER CONTENT (gm/gm)
18  !   ***               BETWEEN 0 C AND TLCRIT)                        ***    ! TLCRIT IS CRITICAL TEMPERATURE BELOW WHICH THE AUTO-
19  !   ***   ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT       ***    ! CONVERSION THRESHOLD IS ASSUMED TO BE ZERO
20  !   ***                       FORMULATION                            ***    ! (THE AUTOCONVERSION THRESHOLD VARIES LINEARLY
21  !   ***  SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT  ***    ! BETWEEN 0 C AND TLCRIT)
22  !   ***  SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE       ***    real, parameter:: entp=1.5
23  !   ***                        OF CLOUD                              ***    ! ENTP IS THE COEFFICIENT OF MIXING IN THE ENTRAINMENT
24  !   ***        OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN       ***    ! FORMULATION
25  !   ***     OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW          ***    real, parameter:: sigs=0.12, sigd=0.05
26  !   ***  COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***    ! SIGD IS THE FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT
27  !   ***                          OF RAIN                             ***    ! SIGS IS THE FRACTION OF PRECIPITATION FALLING OUTSIDE
28  !   ***  COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION   ***    ! OF CLOUD
29  !   ***                          OF SNOW                             ***    real, parameter:: omtrain=50., omtsnow=5.5, coeffr=1., coeffs=0.8
30  !   ***     CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM      ***    ! OMTRAIN IS THE ASSUMED FALL SPEED (P/s) OF RAIN
31  !   ***                         TRANSPORT                            ***    ! OMTSNOW IS THE ASSUMED FALL SPEED (P/s) OF SNOW
32  !   ***    DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION    ***    ! COEFFR IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION
33  !   ***        A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC      ***    ! OF RAIN
34  !   ***    ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF    ***    ! COEFFS IS A COEFFICIENT GOVERNING THE RATE OF EVAPORATION
35  !   ***                 APPROACH TO QUASI-EQUILIBRIUM                ***    ! OF SNOW
36  !   ***   (THEIR STANDARD VALUES ARE  0.20 AND 0.1, RESPECTIVELY)    ***    real, parameter:: dtmax=0.9
37  !   ***                   (DAMP MUST BE LESS THAN 1)                 ***    ! DTMAX IS THE MAXIMUM NEGATIVE TEMPERATURE PERTURBATION
38      ! A LIFTED PARCEL IS ALLOWED TO HAVE BELOW ITS LFC
39        integer, intent(in):: nd    real, parameter:: cu=0.70
40      ! CU IS THE COEFFICIENT GOVERNING CONVECTIVE MOMENTUM
41  ! noff: integer limit for convection (nd-noff)    ! TRANSPORT
42  ! minorig: First level of convection    real, parameter:: betad=10.
43      real, parameter:: alpha=0.2, damp=0.1
44        noff = 2    ! ALPHA AND DAMP ARE PARAMETERS THAT CONTROL THE RATE OF
45        minorig = 2    ! APPROACH TO QUASI-EQUILIBRIUM
46      ! (THEIR STANDARD VALUES ARE 0.20 AND 0.1, RESPECTIVELY)
47        nl=nd-noff    ! (DAMP MUST BE LESS THAN 1)
48        nlp=nl+1    real, parameter:: delta=0.01
49        nlm=nl-1  
50    end module cv_param
       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  
Legend:
Removed from v.102  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21