source: LMDZ5/trunk/libf/phylmd/rrtm/yomradf.F90 @ 1992

Last change on this file since 1992 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM

Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 1.5 KB
Line 
1MODULE YOMRADF
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9! EMTD    - longwave emissivity
10! TRSW    - shortwave absorptivity
11! EMTC    - clear-sky longwave emissivity
12! TRSC    - clear-sky shortwave absorptivity
13
14! SRSWD   - downward SW radiation at the surface
15! SRLWD   - downward LW radiation at the surface
16! SRSWDCS - clear-sky downward SW radiation at the surface
17! SRLWDCS - clear-sky downward LW radiation at the surface
18! SRSWDV  - downward SW visible radiation at the surface
19! SRSWDUV - downward SW ultraviolet/visible radiation at the surface
20! SRSWPAR - downward SW PAR radiation at the surface
21! SRSWUVB - downward UV-B radiation at the surface
22! SRSWPARC- downward clear-sky SW PAR radiation at the surface
23! SRSWTINC- TOA incident solar radiation
24
25REAL(KIND=JPRB),ALLOCATABLE :: EMTD(:,:,:)
26REAL(KIND=JPRB),ALLOCATABLE :: TRSW(:,:,:)
27REAL(KIND=JPRB),ALLOCATABLE :: EMTC(:,:,:)
28REAL(KIND=JPRB),ALLOCATABLE :: TRSC(:,:,:)
29REAL(KIND=JPRB),ALLOCATABLE :: EMTU(:,:,:)
30
31REAL(KIND=JPRB),ALLOCATABLE :: SRSWD(:,:)
32REAL(KIND=JPRB),ALLOCATABLE :: SRLWD(:,:)
33REAL(KIND=JPRB),ALLOCATABLE :: SRSWDCS(:,:)
34REAL(KIND=JPRB),ALLOCATABLE :: SRLWDCS(:,:)
35REAL(KIND=JPRB),ALLOCATABLE :: SRSWDV(:,:)
36REAL(KIND=JPRB),ALLOCATABLE :: SRSWDUV(:,:)
37REAL(KIND=JPRB),ALLOCATABLE :: EDRO(:,:)
38REAL(KIND=JPRB),ALLOCATABLE :: SRSWPAR(:,:)
39REAL(KIND=JPRB),ALLOCATABLE :: SRSWUVB(:,:)
40REAL(KIND=JPRB),ALLOCATABLE :: SRSWPARC(:,:)
41REAL(KIND=JPRB),ALLOCATABLE :: SRSWTINC(:,:)
42REAL(KIND=JPRB),ALLOCATABLE :: RMOON(:,:)
43
44END MODULE YOMRADF
Note: See TracBrowser for help on using the repository browser.