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

Last change on this file was 2010, checked in by Laurent Fairhead, 11 years ago

Modifications pour OpenMP


OpenMP modifications

  • 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.7 KB
RevLine 
[1989]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
[2010]44
45!$OMP THREADPRIVATE(edro,emtc,emtd,emtu,rmoon,srlwd,srlwdcs,srswd,srswdcs,srswduv)
46!$OMP THREADPRIVATE(srswdv,srswpar,srswparc,srswtinc,srswuvb,trsc,trsw)
[1989]47END MODULE YOMRADF
Note: See TracBrowser for help on using the repository browser.