source: LMDZ5/branches/IPSLCM6.0.11.rc1/libf/phymar/PHY________ALLOC.f90 @ 4188

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 3.4 KB
Line 
1      subroutine PHY________ALLOC
2
3!------------------------------------------------------------------------------+
4!                                                         Mon 17-May-2013  MAR |
5!                                                                              |
6!     subroutine PHY________ALLOC  allocates prognostic variables of           |
7!            MAT PHYsics                                                       |
8!                                                                              |
9!     version 3.p.4.1 created by H. Gallee,               Tue 26-Feb-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____kkl
18      use Mod_PHY_S0_grd
19
20
21      IMPLICIT NONE
22
23
24
25
26! =================================
27! ALLOCATION Mod_PHY____grd - BEGIN
28! =================================
29
30      allocate      ( lat__r(kcolp) )                     !     Latitude                    [radian]
31      allocate      ( sinLat(kcolp) )                     ! sin(Latitude)                        [-]
32      allocate      ( cosLat(kcolp) )                     ! cos(Latitude)                        [-]
33      allocate      ( lon__r(kcolp) )                     !     Longitude                   [radian]
34      allocate      ( lon__h(kcolp) )                     !     Longitude                     [hour]
35
36      allocate      ( k1m(mzp) )                          ! k - 1
37      allocate      ( k1p(mzp) )                          ! k + 1
38      allocate      ( k2m(mzp) )                          ! k - 2
39
40      allocate      (  sigma(mzpp) )                      ! Normalized Pressure (Vertical Coordinate)
41      allocate      (  sigmi(mzpp) )                      ! (sigma(k    )+sigma(k-1  )) / 2
42      allocate      ( dsigma(mzp) )                       !  sigma(k+1  )-sigma(k    )     
43      allocate      ( dsigmi(mzp) )                       !  sigma(k+1/2)-sigma(k-1/2)
44      allocate      ( hsigma(mzp) )                       ! Height of atmospheric layers      [magl]
45
46      allocate      ( ii__AP(kcolp) )                     ! WORK   point   i Coordinate
47      allocate      ( jj__AP(kcolp) )                     ! WORK   point   j Coordinate
48      allocate      ( ikl_AP(ixp1:mxpp,jyp1:mypp) )       ! WORK   point vec Coordinate
49
50
51! =================================
52! ALLOCATION Mod_PHY____grd -   END
53! =================================
54
55
56
57
58! =================================
59! ALLOCATION Mod_PHY____kkl - BEGIN
60! =================================
61
62      allocate      ( sh__AP(kcolp) )                     ! Topography                           [m]
63      allocate      ( sha_AP(kcolp) )                     ! Topography Anomaly                   [m]
64      allocate      ( slopAP(kcolp) )                     ! Topography Slope                     [-]
65      allocate      ( sloxAP(kcolp) )                     ! Topography Slope, x-direction        [-]
66      allocate      ( sloyAP(kcolp) )                     ! Topography Slope, y-direction        [-]
67      allocate      ( MMskAP(kcolp,n_azim) )              ! Mountain   Mask                      [-]
68
69
70
71! =================================
72! ALLOCATION Mod_PHY____kkl -   END
73! =================================
74
75
76
77
78      return
79      end subroutine PHY________ALLOC
Note: See TracBrowser for help on using the repository browser.