source: LMDZ5/branches/IPSLCM6.0.10/libf/phymar/Mod_PHY_RT_kkl.f90 @ 4778

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

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 4.4 KB
Line 
1      module Mod_PHY_RT_kkl
2
3!--------------------------------------------------------------------------+
4!                                                     Sun 16-Jun-2013  MAR |
5!     module Mod_PHY_RT contains the representation in vector frame of     |
6!                       Variables of the   Radiative Transfer Scheme       |
7!                                                                          |
8!     version 3.p.4.1 created by H. Gallee,           Wed  3-Apr-2013      |
9!           Last Modification by H. Gallee,           Sun 16-Jun-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       ! 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       ! Ozone   Concentration                                 [Pa/Pa]
35      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:,:)  ::  AersRT       ! Aerosol Optical Thickness                                 [-]
36
37      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  ODC_RT       ! Clouds   Optical Depth (vertically integrated)            [-]
38      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODCzRT       ! Clouds   Optical Depth (Layer z)                          [-]
39      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  ODA_RT       ! Aerosols Optical Depth (vertically integrated)            [-]
40      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  ODAzRT       ! Aerosols Optical Depth (Layer z)                          [-]
41
42      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FIRn_c       ! CLEAR-SKY         LW NET      FLUXES                   [W/m2]
43      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FIRn_t       ! TOTAL             LW NET      FLUXES                   [W/m2]
44      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FSOn_c       ! CLEAR-SKY         SW NET      FLUXES                   [W/m2]
45      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  FSOn_t       ! TOTAL             SW NET      FLUXES                   [W/m2]
46      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOs_t       ! TOTAL-SKY SURFACE SW DOWNWARD FLUX                     [W/m2]
47      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOdir       ! SOLAR RADIANCE  IN SUN'S  DIRECTION                    [W/m2]
48      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOsUV       ! SURFACE   DOWNWARD U.V.   RADIATION                    [W/m2]
49      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  FSOeff       ! PHOTOSYNTHETICALLY ACTIVE RADIATION                    [W/m2]
50
51      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  SWDsRT       ! Surface ShrtWave Heat Flux (+)  (Downward)             [W/m2]
52      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  SWAsRT       ! Surface ShrtWave Heat Flux (+)  (Absorbed)             [W/m2]
53      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  LWDsRT       ! Surface LongWave Heat Flux (+)  (Downward)             [W/m2]
54      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  LWUsRT       ! Surface LongWave Heat Flux (+)  (  Upward)             [W/m2]
55      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  ClouRT       ! Total Cloudiness above lowest Atmospheric Level           [-]
56
57      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)      ::  OLR_RT       ! OutgoingLongWave Radiation (+)  (  Upward)             [W/m2]
58
59      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  SWdTRT       ! Radiative Heating SW                                  [K/Day]
60      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  LWdTRT       ! Radiative Heating LW                                  [K/Day]
61      real(kind=real8), SAVE,ALLOCATABLE ,dimension(:,:)    ::  dpktRT       ! Radiative Heating SW + LW                               [K/s]
62
63
64      end module Mod_PHY_RT_kkl
Note: See TracBrowser for help on using the repository browser.