source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yoeaersrc.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.8 KB
Line 
1MODULE YOEAERSRC
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOEAERSRC* - CONTROL OPTIONS FOR AEROSOLS' SOURCE
11!     ------------------------------------------------------------------
12INTEGER(KIND=JPIM) :: NMAXTAER
13INTEGER(KIND=JPIM) :: NTAER
14INTEGER(KIND=JPIM) :: NBINAER(9)
15INTEGER(KIND=JPIM) :: NINDAER(15), JKTYP(15), JKBIN(15)
16INTEGER(KIND=JPIM) :: NTYPAER(9)
17INTEGER(KIND=JPIM) :: NDDUST
18
19LOGICAL :: LEPAERO, LAEREXTR
20
21REAL(KIND=JPRB) :: RGELAV, RGEMUV, RDGLAV, RDGMUV
22REAL(KIND=JPRB) :: RCLONV, RSLONV, RDCLONV, RDSLONV
23REAL(KIND=JPRB) :: RLATVOL,RLONVOL
24
25REAL(KIND=JPRB) :: RSSFLX(3)
26
27!     ------------------------------------------------------------------
28! MMAXTAER   : MAXIMUM TOTAL NUMBER OF AEROSOLS
29! NTAER      : TOTAL NUMBER OF AEROSOLS
30! NTYPAER( ) : NBINAER( )
31!        (1) :         3 FOR SEA-SALT
32!        (2) :         3 FOR DESERT DUST
33!        (3) :         2 FOR ORGANIC MATTERS
34!        (4) :         2 FOR BLACK CARBON
35!        (5) :         1 FOR SULFATE
36!        (6) :         1 FOR FLY ASH
37!        (7) :         1 FOR PSEUDO-PROGNOSTIC STRATOSPHERIC AEROSOLS
38!        (8) :         1 FOR PROGNOSTIC STRATOSPHERIC AEROSOLS
39!        (9) :         1 FOR VOLCANIC AEROSOLS
40
41! RSSFLX     : sea salt flux for 3-size bins (in mg m-2 s-1) for a 1 m s-1
42!              wind speed, at 10 m height and 80% RH
43! Rlat/lonVOL: LAT/LON of a possible volcanic eruption
44! JDDUST     : 1 =LSCE, 2 =based on MODIS
45!     ------------------------------------------------------------------
46
47
48
49!$OMP THREADPRIVATE(jkbin,jktyp,laerextr,lepaero,nbinaer,nddust,nindaer)
50!$OMP THREADPRIVATE(nmaxtaer,ntaer,ntypaer,rclonv,rdclonv,rdglav,rdgmuv)
51!$OMP THREADPRIVATE(rdslonv,rgelav,rgemuv,rlatvol,rlonvol,rslonv,rssflx)
52
53END MODULE YOEAERSRC
54
Note: See TracBrowser for help on using the repository browser.