source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomaerd15.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: 3.0 KB
Line 
1MODULE YOMAERD15
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS
11!*                       FROZEN VERSION (CYCLE 15) OF YOEAERD
12!     ------------------------------------------------------------------
13
14REAL(KIND=JPRB),ALLOCATABLE:: CVDAES15(:)
15REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL15(:)
16REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU15(:)
17REAL(KIND=JPRB),ALLOCATABLE:: CVDAED15(:)
18REAL(KIND=JPRB),ALLOCATABLE:: CVDAEF15(:)
19
20REAL(KIND=JPRB) :: RCAEOPS15
21REAL(KIND=JPRB) :: RCAEOPL15
22REAL(KIND=JPRB) :: RCAEOPU15
23REAL(KIND=JPRB) :: RCAEOPD15
24REAL(KIND=JPRB) :: RCAEOPF15
25REAL(KIND=JPRB) :: RCTRBGA15
26REAL(KIND=JPRB) :: RCVOBGA15
27REAL(KIND=JPRB) :: RCSTBGA15
28REAL(KIND=JPRB) :: RCTRPT15
29REAL(KIND=JPRB) :: RCAEADM15
30REAL(KIND=JPRB) :: RCAEROS15
31
32REAL(KIND=JPRB) :: RAESC15(66)
33REAL(KIND=JPRB) :: RAESS15(55)
34REAL(KIND=JPRB) :: RAELC15(66)
35REAL(KIND=JPRB) :: RAELS15(55)
36REAL(KIND=JPRB) :: RAEUC15(66)
37REAL(KIND=JPRB) :: RAEUS15(55)
38REAL(KIND=JPRB) :: RAEDC15(66)
39REAL(KIND=JPRB) :: RAEDS15(55)
40REAL(KIND=JPRB) :: RCAEADK15(3)
41
42!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS.
43!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
44
45!        96-11: Ph. Dandin. Meteo-France
46!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
47!     R.G AND M.J        E.C.M.W.F.     29/11/82.
48!     A. Alias           29-09-05 Sulfate aerosols (Hu Ron Ming)
49
50!      NAME     TYPE      PURPOSE
51!      ----     ----      -------
52
53!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
54!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
55!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
56!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
57!     *CAEF_*   REAL      *REFERS TO *SULFATE AEROSOLS.
58!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
59!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
60!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
61!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
62!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
63!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
64!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
65!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
66!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUT. (NFLEVG+1)
67!     *RCTRPT15*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
68!     *RCAEADK15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
69!     *RCAEADM15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
70!     *RCAEROS15*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
71!     ------------------------------------------------------------------
72!$OMP THREADPRIVATE(raedc15,raeds15,raelc15,raels15,raesc15,raess15,raeuc15,raeus15,rcaeadk15,rcaeadm15)
73!$OMP THREADPRIVATE(rcaeopd15,rcaeopf15,rcaeopl15,rcaeops15,rcaeopu15,rcaeros15,rcstbga15,rctrbga15,rctrpt15,rcvobga15)
74!$OMP THREADPRIVATE(cvdaed15,cvdaef15,cvdael15,cvdaes15,cvdaeu15)
75END MODULE YOMAERD15
Note: See TracBrowser for help on using the repository browser.