source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/Mod_PHY_RT_xyz.f90 @ 3301

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

Inclusion de la physique de MAR


Integration of MAR physics

File size: 2.7 KB
Line 
1      module Mod_PHY_RT_xyz
2
3!--------------------------------------------------------------------------+
4!                                                     Thu  9-May-2013  MAR |
5!     module Mod_PHY_RT contains the representation in cartesian frame of  |
6!                       Variables of the   Radiative Transfer Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Tue  5-Mar-2013      |
9!           Last Modification by H. Gallee,           Thu  9-May-2013      |
10!                                                                          |
11!--------------------------------------------------------------------------+
12
13
14      use Mod_Real
15
16
17      IMPLICIT NONE
18
19
20! Radiative Transfer INPUT        Variables
21! -----------------------------------------
22
23      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LWUsRT_xy    !  Surface LongWave Heat Flux (+)    (Upward)   [W/m2]
24
25
26! Radiative Transfer INPUT/OUTPUT Variables
27! -----------------------------------------
28
29
30
31! Radiative Transfer OUTPUT       Variables
32! -----------------------------------------
33
34      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  O3__RT_xyz   !  Ozone    Concentration                             [Pa/Pa]
35      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:,:)::  AersRT_xyza  !  Aerosol  Optical Thickness                             [-]
36
37      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ClouRT_xy    !  Total Cloudiness above lowest Atmospheric Level        [-]
38      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODC_RT_xy    !  Clouds   Optical Thickness (vertically integrated)     [-]
39      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  ODC_RT_xyz   !  Clouds   Optical Thickness (Layer z)                   [-]
40      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODA_RT_xy    !  Aerosols Optical Thickness (vertically integrated)     [-]
41      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  ODA_RT_xyz   !  Aerosols Optical Thickness (Layer z)                   [-]
42
43      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  OLR_RT_xy    !  OutgoingLongWave Radiation (+)  (  Upward)          [W/m2]
44      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWDsRT_xy    !  Surface ShrtWave Heat Flux (+)  (Downward)          [W/m2]
45      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWAsRT_xy    !  Surface ShrtWave Heat Flux (+)  (Absorbed)          [W/m2]
46      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LWDsRT_xy    !  Surface LongWave Heat Flux (+)  (Downward)          [W/m2]
47
48
49
50      end module Mod_PHY_RT_xyz
Note: See TracBrowser for help on using the repository browser.