/[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 185 by guez, Wed Mar 16 15:04:46 2016 UTC revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 8  module cv30_param_m Line 8  module cv30_param_m
8    
9    implicit none    implicit none
10    
   integer noff ! integer limit for convection (nd - noff)  
11    integer minorig ! first level of convection    integer minorig ! first level of convection
12    integer nl, nlp, nlm    integer nl ! limit for convection
13    real sigd ! FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT    real sigd ! FRACTIONAL AREA COVERED BY UNSATURATED DNDRAFT
14    real spfac ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD    real spfac ! FRACTION OF PRECIPITATION FALLING OUTSIDE OF CLOUD
15    
# Line 40  module cv30_param_m Line 39  module cv30_param_m
39    
40  contains  contains
41    
42    SUBROUTINE cv30_param(nd, delt)    SUBROUTINE cv30_param(delt)
43    
44      ! 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
45    
46      ! Set parameters for Emanuel convection scheme      ! Set parameters for Emanuel convection scheme
47    
48      integer, intent(in):: nd      USE dimphy, ONLY: klev
49    
50      real, intent(in):: delt ! timestep (seconds)      real, intent(in):: delt ! timestep (seconds)
51    
52      !------------------------------------------------------------      !------------------------------------------------------------
53    
54      ! Limit levels for convection:      ! Limit levels for convection:
   
     noff = 1  
55      minorig = 1      minorig = 1
56      nl = nd - noff      nl = klev - 1
     nlp=nl+1  
     nlm=nl-1  
57    
58      ! "Microphysical" parameters:      ! "Microphysical" parameters:
59    
# Line 70  contains Line 66  contains
66      omtrain = 45.0 ! used also for snow (no distinction rain/snow)      omtrain = 45.0 ! used also for snow (no distinction rain/snow)
67    
68      ! Misc:      ! Misc:
   
69      dtovsh = -0.2 ! dT for overshoot      dtovsh = -0.2 ! dT for overshoot
70      dpbase = -40. ! definition cloud base (400m above LCL)      dpbase = -40. ! definition cloud base (400m above LCL)
71      dttrig = 5. ! (loose) condition for triggering      dttrig = 5. ! (loose) condition for triggering
72    
73      ! Rate of approach to quasi-equilibrium:      ! Rate of approach to quasi-equilibrium:
   
74      dtcrit = -2.0      dtcrit = -2.0
75      tau = 8000.      tau = 8000.
76      beta = 1.0 - delt/tau      beta = 1.0 - delt/tau
# Line 85  contains Line 79  contains
79      alpha = alpha*1.5      alpha = alpha*1.5
80    
81      ! Interface cloud parameterization:      ! Interface cloud parameterization:
   
82      delta=0.01 ! cld      delta=0.01 ! cld
83    
84      ! Interface with boundary-layer (gust factor): (sb)      ! Interface with boundary-layer (gust factor): (sb)
   
85      betad=10.0 ! original value (from convect 4.3)      betad=10.0 ! original value (from convect 4.3)
86    
87    end SUBROUTINE cv30_param    end SUBROUTINE cv30_param
Legend:
Removed from v.185  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21