source: LMDZ5/trunk/libf/phymar/PHY_Atm_RT_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: 4.1 KB
Line 
1
2      subroutine PHY_Atm_RT_ALLOC
3
4!------------------------------------------------------------------------------+
5!                                                         Sun 16-Jun-2013  MAR |
6!                                                                              |
7!     subroutine PHY_Atm_RT_ALLOC  allocates prognostic variables of           |
8!                Radiative Transfer Scheme used by MAR                         |
9!                                                                              |
10!     version 3.p.4.1 created by H. Gallee,               Wed  6-Mar-2013      |
11!           Last Modification by H. Gallee,               Sun 16-Jun-2013      |
12!                                                                              |
13!------------------------------------------------------------------------------+
14
15
16      use Mod_Real
17      use Mod_PHY____grd
18      use Mod_PHY_RT_grd
19      use Mod_PHY_RT_kkl
20
21
22      IMPLICIT NONE
23
24
25
26! =================================
27! ALLOCATION Mod_PHY_RT_kkl - BEGIN
28! =================================
29
30      allocate  ( O3__RT   (kcolp,mzp      ) )                 !  Ozone    Concentration                               [Pa/Pa]
31      allocate  ( AersRT   (kcolp,mzp,naero) )                 !  Aerosol  Optical Thickness                               [-]
32      allocate  ( ODAzRT   (kcolp,mzp      ) )                 !  Aerosols Optical Thickness (Layer z)                     [-]
33      allocate  ( ODA_RT   (kcolp          ) )                 !  Aerosols Optical Thickness (vertically integrated)       [-]
34
35      allocate  ( ODCzRT   (kcolp,mzp      ) )                 !  Clouds   Optical Thickness (Layer z)                     [-]
36      allocate  ( ODC_RT   (kcolp          ) )                 !  Clouds   Optical Thickness (vertically integrated)       [-]
37
38      allocate  ( FIRn_c   (kcolp,mzpp     ) )                 !  CLEAR-SKY         LW NET      FLUXES                  [W/m2]
39      allocate  ( FIRn_t   (kcolp,mzpp     ) )                 !  TOTAL             LW NET      FLUXES                  [W/m2]
40      allocate  ( FSOn_c   (kcolp,mzpp     ) )                 !  CLEAR-SKY         SW NET      FLUXES                  [W/m2]
41      allocate  ( FSOn_t   (kcolp,mzpp     ) )                 !  TOTAL             SW NET      FLUXES                  [W/m2]
42      allocate  ( FSOs_t   (kcolp          ) )                 !  TOTAL-SKY SURFACE SW DOWNWARD FLUX                    [W/m2]
43      allocate  ( FSOdir   (kcolp          ) )                 !  SOLAR RADIANCE  IN SUN'S  DIRECTION                   [W/m2]
44      allocate  ( FSOsUV   (kcolp          ) )                 !  SURFACE   DOWNWARD U.V.   RADIATION                   [W/m2]
45      allocate  ( FSOeff   (kcolp          ) )                 !  PHOTOSYNTHETICALLY ACTIVE RADIATION                   [W/m2]
46
47      allocate  ( SWDsRT   (kcolp          ) )                 ! Surface ShrtWave Heat Flux (+)  (Downward)             [W/m2]
48      allocate  ( SWAsRT   (kcolp          ) )                 ! Surface ShrtWave Heat Flux (+)  (Absorbed)             [W/m2]
49      allocate  ( LWDsRT   (kcolp          ) )                 ! Surface LongWave Heat Flux (+)  (Downward)             [W/m2]
50      allocate  ( LWUsRT   (kcolp          ) )                 ! Surface LongWave Heat Flux (+)  (  Upward)             [W/m2]
51      allocate  ( ClouRT   (kcolp          ) )                 ! Total Cloudiness above lowest Atmospheric Level           [-]
52
53      allocate  ( OLR_RT   (kcolp          ) )                 !  OutgoingLongWave Radiation (+)  (  Upward)            [W/m2]
54
55      allocate  ( SWdTRT   (kcolp,mzp      ) )                 !  Radiative Heating SW                                 [K/Day]
56      allocate  ( LWdTRT   (kcolp,mzp      ) )                 !  Radiative Heating LW                                 [K/Day]
57      allocate  ( dpktRT   (kcolp,mzp      ) )                 !  Radiative Heating SW + LW                              [K/s]
58
59
60! =================================
61! ALLOCATION Mod_PHY_RT_kkl -   END
62! =================================
63
64
65      end subroutine PHY_Atm_RT_ALLOC
Note: See TracBrowser for help on using the repository browser.