source: LMDZ5/trunk/libf/phymar/PHY_Atm_CP_ALLOC.f90 @ 3398

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

Inclusion de la physique de MAR

Integration of MAR physics
File size: 2.4 KB
Line 
1      subroutine PHY_Atm_CP_ALLOC
2
3!------------------------------------------------------------------------------+
4!                                                         Mon 17-May-2013  MAR |
5!                                                                              |
6!     subroutine PHY_Atm_CP_ALLOC  allocates prognostic variables of           |
7!                Atmospheric Turbulence Scheme used by MAR                     |
8!                                                                              |
9!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
10!           Last Modification by H. Gallee,               Mon 17-May-2013      |
11!                                                                              |
12!------------------------------------------------------------------------------+
13
14
15      use Mod_Real
16      use Mod_PHY____grd
17      use Mod_PHY_CP_kkl
18!     use Mod_PHY_CP_xyz
19
20
21      IMPLICIT NONE
22
23
24
25! =================================
26! ALLOCATION Mod_PHY_CP_kkl - BEGIN
27! =================================
28
29      allocate  ( timeCP(kcolp    ) )                        !  Convective Adjustment Time                                 [s]
30
31      allocate  ( dpktCP(kcolp,mzp) )                        !  Pseudo Potential Temperature Tendency                  [K/X/s]
32      allocate  ( dqv_CP(kcolp,mzp) )                        !  Specific         Humidity    Tendency                [kg/kg/s]
33      allocate  ( dqw_CP(kcolp,mzp) )                        !  Cloud Droplets Concentration Tendency                [kg/kg/s]
34      allocate  ( dqi_CP(kcolp,mzp) )                        !  Cloud Crystals Concentration Tendency                [kg/kg/s]
35
36      allocate  ( drr_CP(kcolp    ) )                        !  Rain (convective)            Tendency                    [m/s]
37      allocate  ( rainCP(kcolp    ) )                        !  Rain (convective)                                        [m/s]
38      allocate  ( dss_CP(kcolp    ) )                        !  Snow (convective)            Tendency                    [m/s]
39      allocate  ( snowCP(kcolp    ) )                        !  Snow (convective)                                        [m/s]
40      allocate  ( CAPECP(kcolp    ) )                        !  Convective Available Potentential Energy               [m2/s2]
41
42! =================================
43! ALLOCATION Mod_PHY_CP_kkl -   END
44! =================================
45
46
47
48
49
50      end subroutine PHY_Atm_CP_ALLOC
Note: See TracBrowser for help on using the repository browser.