source: LMDZ6/branches/DYNAMICO-conv-GC/libf/phymar/PHY_Atm_DY_ALLOC.f90

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 3.0 KB
Line 
1
2      subroutine PHY_Atm_DY_ALLOC
3
4!------------------------------------------------------------------------------+
5!                                                         Fri  7-Jun-2013  MAR |
6!                                                                              |
7!     subroutine PHY_Atm_DY_ALLOC  allocates prognostic variables of           |
8!                Atmospheric Turbulence Scheme used by MAR                     |
9!                                                                              |
10!     version 3.p.4.1 created by H. Gallee,               Tue 12-Mar-2013      |
11!           Last Modification by H. Gallee,               Fri  7-Jun-2013      |
12!                                                                              |
13!------------------------------------------------------------------------------+
14
15
16      use Mod_Real
17      use Mod_PHY____grd
18      use Mod_PHY_DY_kkl
19
20
21      IMPLICIT NONE
22
23
24
25! =================================
26! ALLOCATION Mod_PHY_DY_kkl - BEGIN
27! =================================
28
29      allocate  ( psa_DY(kcolp     ) )                       !  Pressure    Thickness                                    [kPa]
30      allocate  ( ExnrDY(kcolp,mzpp) )                       !  Potential   Exner                        pa  **(R/Cp)    [xxx]
31      allocate  ( Z___DY(kcolp,mzpp) )                       !  Geopotential, level k    , i.e. =  gZ(k)         /  g  [m2/s2]
32      allocate  ( ZmidDY(kcolp,mzpp) )                       !  Geopotential, level k-1/2, i.e. = (gZ(k)+gZ(k-1))/(2g) [m2/s2]
33
34      allocate  ( TmidDY(kcolp,mzpp) )                       !  Temperature , level k+1/2, i.e. = (Ta(k)+Ta(k+1))/ 2       [K]
35      allocate  ( Ta__DY(kcolp,mzpp) )                       !  Temperature , level k    , i.e. =  Ta(k)                   [K]
36      allocate  ( pkt_DY(kcolp,mzpp) )                       !  Pseudo P.T. , level k                                      [K]
37      allocate  ( windDY(kcolp,mzp ) )                       !  Wind Speed, Horizontal                                   [m/s]
38      allocate  ( ua__DY(kcolp,mzp ) )                       !  Wind Speed, x-Direction                                  [m/s]
39      allocate  ( va__DY(kcolp,mzp ) )                       !  Wind Speed, y-Direction                                  [m/s]
40      allocate  ( wa__DY(kcolp,mzp ) )                       !  Wind Speed  z-Direction                                  [m/s]
41      allocate  ( roa_DY(kcolp,mzp ) )                       !  Air Volumic Mass, Layer k                              [Mg/m3]
42      allocate  ( roamDY(kcolp,mzp ) )                       !  Air Volumic Mass, Level k+1/2                          [Mg/m3]
43
44      allocate  ( qv__DY(kcolp,mzpp) )                       !  Specific    Humidity                                   [kg/kg]
45! #LD allocate  ( ld_H2O(kcolp,mzpp) )                       !  Loading    (Humidity, Hydrometeors, Aerosols ...)          [-]
46
47! =================================
48! ALLOCATION Mod_PHY_DY_kkl -   END
49! =================================
50
51
52
53      end subroutine PHY_Atm_DY_ALLOC
Note: See TracBrowser for help on using the repository browser.