source: LMDZ5/trunk/libf/phymar/Mod_PHY_CP_kkl.f90 @ 3302

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.8 KB
RevLine 
[2089]1      module Mod_PHY_CP_kkl
2
3!--------------------------------------------------------------------------+
4!                                                     Thu  9-May-2013  MAR |
5!     module Mod_PHY_CP contains the representation in vector frame of     |
6!                       Variables of the Convective Mass Flux Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Tue  9-Apr-2013      |
9!           Last Modification by H. Gallee,           Thu  9-May-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14      use Mod_Real
15
16
17      IMPLICIT NONE
18
19
20! Convective Mass Flux Scheme INPUT        Variables
21! --------------------------------------------------
22
23
24
25! Convective Mass Flux Scheme INPUT/OUTPUT Variables
26! --------------------------------------------------
27
28      real(kind=real8), SAVE                                ::  rANA         ! Subgrid Mountain Breeze: Horizontal Divergence           [1/s]
29      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  hANA         ! D("Subgrid Mountain" Height - "Resolved Mountain" Height)  [m]
30
31
32
33! Convective Mass Flux Scheme OUTPUT       Variables
34! --------------------------------------------------
35
36      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  timeCP       ! Convective Adjustment Time                                 [s]
37
38      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dpktCP       ! Reduced  Potential Temperature Tendency                [K/X/s]
39      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dqv_CP       ! Specific Humidity              Tendency              [kg/kg/s]
40      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dqw_CP       ! Cloud Droplets Concentration   Tendency              [kg/kg/s]
41      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dqi_CP       ! Cloud Crystals Concentration   Tendency              [kg/kg/s]
42
43      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  drr_CP       ! Rain (convective)              Tendency                  [m/s]
44      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  rainCP       ! Rain (convective)                                          [m]
45      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  dss_CP       ! Snow (convective)              Tendency                  [m/s]
46      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  snowCP       ! Snow (convective)                                          [m]
47
48      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  CAPECP       ! Convective Available Potentential Energy             [.......]
49
50
51      end module Mod_PHY_CP_kkl
Note: See TracBrowser for help on using the repository browser.