/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_param.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_param.f

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

revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC revision 187 by guez, Mon Mar 21 18:01:02 2016 UTC
# Line 6  module cv30_param_m Line 6  module cv30_param_m
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    
9      USE dimphy, ONLY: klev
10    
11    implicit none    implicit none
12    
13    integer minorig ! first level of convection    integer minorig ! first level of convection
14    integer nl ! limit for convection  
15      integer, parameter:: nl = klev - 1
16      ! Limit for convection. The maximum number of levels to which
17      ! convection can penetrate, plus 1.  nl must be <= KLEV-1.
18    
19    real sigd ! FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT    real sigd ! FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT
20    real spfac ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD    real spfac ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
21    
# Line 37  module cv30_param_m Line 43  module cv30_param_m
43    real delta    real delta
44    real betad    real betad
45    
46      private klev
47    
48  contains  contains
49    
50    SUBROUTINE cv30_param(delt)    SUBROUTINE cv30_param(delt)
# Line 45  contains Line 53  contains
53    
54      ! Set parameters for Emanuel convection scheme      ! Set parameters for Emanuel convection scheme
55    
     USE dimphy, ONLY: klev  
   
56      real, intent(in):: delt ! timestep (seconds)      real, intent(in):: delt ! timestep (seconds)
57    
58      !------------------------------------------------------------      !------------------------------------------------------------
59    
60      ! Limit levels for convection:      ! Limit levels for convection:
61      minorig = 1      minorig = 1
     nl = klev - 1  
62    
63      ! "Microphysical" parameters:      ! "Microphysical" parameters:
64    
Legend:
Removed from v.186  
changed lines
  Added in v.187
  ViewVC Help
Powered by ViewVC 1.1.21