/[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

trunk/phylmd/CV3_routines/cv3_param.f revision 97 by guez, Fri Apr 25 14:58:31 2014 UTC trunk/Sources/phylmd/CV30_routines/cv30_param.f revision 187 by guez, Mon Mar 21 18:01:02 2016 UTC
# Line 1  Line 1 
1  module cv3_param_m  module cv30_param_m
2    
3    ! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09    ! From LMDZ4/libf/phylmd/cvparam3.h, version 1.1.1.1, 2004/05/19 12:53:09
4    
5    ! Parameters for iflag_con = 3:    ! Parameters for Emanuel convection scheme:
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    
   integer noff ! integer limit for convection (nd - noff)  
13    integer minorig ! first level of convection    integer minorig ! first level of convection
14    integer nl, nlp, nlm  
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 38  module cv3_param_m Line 43  module cv3_param_m
43    real delta    real delta
44    real betad    real betad
45    
46      private klev
47    
48  contains  contains
49    
50    SUBROUTINE cv3_param(nd, delt)    SUBROUTINE cv30_param(delt)
51    
52      ! 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
53    
54      ! Set parameters for iflag_con = 3      ! Set parameters for Emanuel convection scheme
55    
     integer, intent(in):: nd  
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:
   
     noff = 1  
61      minorig = 1      minorig = 1
     nl = nd - noff  
     nlp=nl+1  
     nlm=nl-1  
62    
63      ! "Microphysical" parameters:      ! "Microphysical" parameters:
64    
# Line 70  contains Line 71  contains
71      omtrain = 45.0 ! used also for snow (no distinction rain/snow)      omtrain = 45.0 ! used also for snow (no distinction rain/snow)
72    
73      ! Misc:      ! Misc:
   
74      dtovsh = -0.2 ! dT for overshoot      dtovsh = -0.2 ! dT for overshoot
75      dpbase = -40. ! definition cloud base (400m above LCL)      dpbase = -40. ! definition cloud base (400m above LCL)
76      dttrig = 5. ! (loose) condition for triggering      dttrig = 5. ! (loose) condition for triggering
77    
78      ! Rate of approach to quasi-equilibrium:      ! Rate of approach to quasi-equilibrium:
   
79      dtcrit = -2.0      dtcrit = -2.0
80      tau = 8000.      tau = 8000.
81      beta = 1.0 - delt/tau      beta = 1.0 - delt/tau
# Line 85  contains Line 84  contains
84      alpha = alpha*1.5      alpha = alpha*1.5
85    
86      ! Interface cloud parameterization:      ! Interface cloud parameterization:
   
87      delta=0.01 ! cld      delta=0.01 ! cld
88    
89      ! Interface with boundary-layer (gust factor): (sb)      ! Interface with boundary-layer (gust factor): (sb)
   
90      betad=10.0 ! original value (from convect 4.3)      betad=10.0 ! original value (from convect 4.3)
91    
92    end SUBROUTINE cv3_param    end SUBROUTINE cv30_param
93    
94  end module cv3_param_m  end module cv30_param_m
Legend:
Removed from v.97  
changed lines
  Added in v.187
  ViewVC Help
Powered by ViewVC 1.1.21