source: LMDZ5/branches/testing/libf/phylmd/rrtm/yoeaerd.F90 @ 5403

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

Merged trunk changes r1997:2055 into testing branch

  • 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: 2.6 KB
Line 
1MODULE YOEAERD
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS
11!     ------------------------------------------------------------------
12
13REAL(KIND=JPRB),ALLOCATABLE:: CVDAES(:)
14REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL(:)
15REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU(:)
16REAL(KIND=JPRB),ALLOCATABLE:: CVDAED(:)
17
18REAL(KIND=JPRB) :: RAESC(66)
19REAL(KIND=JPRB) :: RAESS(55)
20REAL(KIND=JPRB) :: RAELC(66)
21REAL(KIND=JPRB) :: RAELS(55)
22REAL(KIND=JPRB) :: RAEUC(66)
23REAL(KIND=JPRB) :: RAEUS(55)
24REAL(KIND=JPRB) :: RAEDC(66)
25REAL(KIND=JPRB) :: RAEDS(55)
26
27REAL(KIND=JPRB) :: RCAEOPS
28REAL(KIND=JPRB) :: RCAEOPL
29REAL(KIND=JPRB) :: RCAEOPU
30REAL(KIND=JPRB) :: RCAEOPD
31REAL(KIND=JPRB) :: RCTRBGA
32REAL(KIND=JPRB) :: RCVOBGA
33REAL(KIND=JPRB) :: RCSTBGA
34REAL(KIND=JPRB) :: RCTRPT
35REAL(KIND=JPRB) :: RCAEADK(3)
36REAL(KIND=JPRB) :: RCAEADM
37REAL(KIND=JPRB) :: RCAEROS
38
39!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS.
40!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
41
42!     R.G AND M.J        E.C.M.W.F.     29/11/82.
43!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
44
45!      NAME     TYPE      PURPOSE
46!      ----     ----      -------
47
48!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
49!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
50!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
51!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
52!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
53!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
54!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
55!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
56!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
57!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
58!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
59!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
60!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.(NFLEVG+1)
61!     *RCTRPT*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
62!     *RCAEADK*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
63!     *RCAEADM*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
64!     *RCAEROS*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
65
66!     ------------------------------------------------------------------
67
68!$OMP THREADPRIVATE(raedc,raeds,raelc,raels,raesc,raess,raeuc,raeus)
69!$OMP THREADPRIVATE(rcaeadk,rcaeadm,rcaeopd,rcaeopl,rcaeops,rcaeopu)
70!$OMP THREADPRIVATE(rcaeros,rcstbga,rctrbga,rctrpt,rcvobga)
71
72!$OMP THREADPRIVATE(cvdaed,cvdael,cvdaes,cvdaeu)
73
74END MODULE YOEAERD
Note: See TracBrowser for help on using the repository browser.