source: LMDZ6/branches/LMDZ-COSP/libf/phymar/Mod_PHY_CP_ctr.f90 @ 3847

Last change on this file since 3847 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 4.1 KB
Line 
1
2      module Mod_PHY_CP_ctr
3
4
5!--------------------------------------------------------------------------+
6!                                                     Mon 22-Apr-2013  MAR |
7!     module Mod_PHY_CP_ctr contains the control variables used to set up  |
8!            Convective Mass Flux Parameterization                         |
9!                                                                          |
10!     version 3.p.4.1 created by H. Gallee,           Wed 10-Apr-2013      |
11!           Last Modification by H. Gallee,           Mon 22-Apr-2013      |
12!                                                                          |
13!--------------------------------------------------------------------------+
14
15
16      use Mod_Real
17
18
19      IMPLICIT NONE
20
21
22
23      logical           ::  Lod_CP            !   Deep    Convection (user)      Switch
24      logical           ::  Odeep0 = .TRUE.   !   Deep    Convection (Control)   Switch
25      logical           ::  Odeep             !   Deep    Convection (Effective) Switch
26      logical           ::  Oshal0 = .TRUE.   !   Shallow Convection (Control)   Switch
27      logical           ::  Oshal             !   Shallow Convection (Effective) Switch
28      logical           ::  Los_CP            !   Shallow Convection (user)      Switch
29      logical           ::  Odown0 = .TRUE.   !   Flag to take or not convective downdrafts into account
30      logical           ::  Orset0 = .TRUE.   !   Flag to refresh or not all tendencies at every call
31      logical           ::  OsetA0 = .false.  !   Flag to set convective adjustment time by user
32      logical           ::  OCvTC0 = .false.  !   Flag to compute convective transport for  chemical tracer
33      logical           ::  Lo_ANA = .false.  !   Flag to compute Anabatic Wind Speed Contribution to Vertical Velocity
34
35      real(kind=real8), SAVE  ::  t_d_CP            !   Deep    Convection Time Scale                                        [s]
36      real(kind=real8), SAVE  ::  t_s_CP            !   Shallow Convection Time Scale                                        [s]
37
38      real(kind=real8), SAVE  ::  dtd_CP            !   time interval between 2 CALLs of deep convection (user INPUT)        [s]
39      real(kind=real8), SAVE  ::  pdtCV0 = 1200.    !   time interval between 2 CALLs of deep convection (control)           [s]
40      real(kind=real8), SAVE  ::  pdtCVx            !   time interval between 2 CALLs of deep convection (chosen)            [s]
41      REAL              ::  pdtCV             !   time interval between 2 CALLs of deep convection (effective)         [s]
42
43      integer, SAVE           ::  jjtCV0            !   Number of  Convective Steps for 1    Update Step                     [-]
44      integer, SAVE           ::  iitCV0            !   No     of  Convective Step                                           [-]
45
46      real(kind=real8), SAVE  ::  PTdcv0 = 1800.    !   deep    adjustment time                          (control)           [s]
47      REAL              ::  PTdcv             !   deep    adjustment time                          (effective)         [s]
48
49      real(kind=real8), SAVE  ::  PTscv0 =  600.    !   shallow adjustment time                          (control)           [s]
50      REAL              ::  PTscv             !   shallow adjustment time                          (effective)         [s]
51
52      integer, SAVE           ::  kidia0 =    1     !   index of the first column of the vector                              [-]
53      integer, SAVE           ::  kfdia0            !   index of the last  column of the vector                              [-]
54
55      integer, SAVE           ::  kbdia0 =    1     !   vertical computations: lowest                 level                  [-]
56      integer, SAVE           ::  ktdia0 =    1     !   vertical computations: over KLEV + 1 - ktdia0 levels                 [-]
57
58      integer, SAVE           ::  kIce_0 =    1     !   flag for ice ( 1 / 0 ) = (included / not icluded)                    [-]
59      integer, SAVE           ::  kensbl =    3     !   Nb of ensembles for a "climate" run                                  [-]
60
61
62
63
64
65
66
67      end module Mod_PHY_CP_ctr
Note: See TracBrowser for help on using the repository browser.