source: LMDZ5/trunk/libf/phymar/PHY_Atm_S0_ALLOC.f90 @ 3605

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.8 KB
Line 
1
2      subroutine PHY_Atm_S0_ALLOC
3
4!------------------------------------------------------------------------------+
5!                                                         Sat 15-Jun-2013  MAR |
6!                                                                              |
7!     subroutine PHY_Atm_S0_ALLOC  allocates prognostic variables of           |
8!                Insolation Scheme used by MAR                                 |
9!                                                                              |
10!     version 3.p.4.1 created by H. Gallee,               Thu 25-Apr-2013      |
11!           Last Modification by H. Gallee,               Sat 15-Jun-2013      |
12!                                                                              |
13!------------------------------------------------------------------------------+
14
15
16      use Mod_Real
17      use Mod_PHY____grd
18      use Mod_PHY_S0_grd
19      use Mod_PHY_S0_kkl
20
21
22      IMPLICIT NONE
23
24
25
26! =================================
27! ALLOCATION Mod_PHY_S0_kkl - BEGIN
28! =================================
29
30      allocate  ( csz0S0   (kcolp) )                         !  cosine (solar zenithal Distance)                          [-]
31      allocate  ( csz_S0   (kcolp) )                         !  cosine (solar zenithal Distance), including Slope  Effect [-]
32      allocate  ( cszkS0   (kcolp, n_azim) )                 !  cosine (solar zenithal Distance), including Mountain Mask [-]
33      allocate  ( slopS0   (kcolp) )                         !  Cosine of Fall Line Angle                                 [-]
34      allocate  ( omenS0   (kcolp) )                         !  Fall Line Azimuth (Downslope Direction)                   [-]
35
36! =================================
37! ALLOCATION Mod_PHY_S0_kkl -   END
38! =================================
39
40
41      end subroutine PHY_Atm_S0_ALLOC
Note: See TracBrowser for help on using the repository browser.