source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomaer15.F90 @ 3847

Last change on this file since 3847 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.1 KB
Line 
1MODULE YOMAER15
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     -----------------------------------------------------------------
10!*    ** *YOMAER15* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
11!*                          FROZEN VERSION (CYCLE 15) OF YOEAER
12!     -----------------------------------------------------------------
13
14!        * E.C.M.W.F. PHYSICS PACKAGE *
15
16!        96-11: Ph. Dandin. Meteo-France
17!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
18!        04-06: F. Bouyssel. Initialisation done in suaer15
19!        05-09: A. Alias     Sulfate aerosol (Hu Ron Ming)
20
21!  NAME      TYPE     PURPOSE
22!  ----   :  ----   : -------
23!  TAUA15 :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
24!  RPIZA15:  REAL     S.W. SINGLE SCATTERING ALBEDO
25!  RCGA15 :  REAL     S.W. ASSYMETRY FACTOR
26!  RAER15 :  REAL     L.W. ABSORPTION COEFFICIENTS
27!     -----------------------------------------------------------------
28
29REAL(KIND=JPRB) :: TAUA15 (2,6)
30REAL(KIND=JPRB) :: RPIZA15(2,6)
31REAL(KIND=JPRB) :: RCGA15 (2,6)
32REAL(KIND=JPRB) :: RAER15 (5,6)
33
34!$OMP THREADPRIVATE(raer15,rcga15,rpiza15,taua15)
35END MODULE YOMAER15
Note: See TracBrowser for help on using the repository browser.