source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/yoeaersnk.F90 @ 5396

Last change on this file since 5396 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: 2.2 KB
Line 
1MODULE YOEAERSNK
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOEAERSNK* - CONTROL OPTIONS FOR AEROSOLS' SINKS
11!     ------------------------------------------------------------------
12REAL(KIND=JPRB) :: R_R, R_S
13REAL(KIND=JPRB) :: RALPHAR(15), RALPHAS(15)
14REAL(KIND=JPRB) :: RFRBC(2)
15REAL(KIND=JPRB) :: RFRIF
16REAL(KIND=JPRB) :: RFRDD(3), RFRSS(3)
17REAL(KIND=JPRB) :: RFROM(2)
18REAL(KIND=JPRB) :: RFRSO4
19REAL(KIND=JPRB) :: RFRAER, RFRGAS
20
21INTEGER(KIND=JPIM) :: NBRH
22REAL(KIND=JPRB) :: RRHMAX, RRHTAB(12), RRHO_SS(12), RSSGROW(12)
23REAL(KIND=JPRB) :: RMMD_SS(3)
24REAL(KIND=JPRB) :: RMMD_DD(3), RRHO_DD(3)
25REAL(KIND=JPRB) :: RHO_WAT, RHO_ICE
26
27REAL(KIND=JPRB) :: RVDPOCE(15), RVDPSIC(15), RVDPLND(15), RVDPLIC(15)
28REAL(KIND=JPRB) :: RVSEDOCE(15),RVSEDSIC(15),RVSEDLND(15),RVSEDLIC(15)
29!     ------------------------------------------------------------------
30! R_R        : mean radius for rain drops (m)
31! R_S        : mean radius for snow crystals (m)
32! RALPHAR    : impaction coefficients for rain
33! RALPHAS    : IMPACTION coefficients for snow
34! dissolution constants
35! RFRBCn     : for black carbon (BC1: hydrophobic, BC2: hydrophylic)
36! RFRDDn     : for dust     (3 bins: 0.03 - 0.55 - 0.9 - 20 um)
37! RFRIF      : for inorganic fraction (i.e., fly-ash)
38! RFROMn     : for organic matter (OM1: hydrophobic, OM2: hydrophylic)
39! RFRSSn     : for sea-salt (3 bins: 0.03 - 0.5 - 5 - 20 um)
40
41! re-evaporation constants
42! RFRAER     : for aerosols
43! RFRGAS     : for gases
44
45! RRHMAX     :
46! RRHTAB     :
47
48! dry deposition velocity
49! RVDPOCE    :
50! RVDPSIC    :
51! RVDPLND    :
52! RVDPLIC    :
53
54! sedimentation (gravitational settling) velocity
55! RVSEDOCE   : for ocean
56! RVSEDSIC   :
57! RVSEDLND   :
58! RVSEDLIC   :
59!     -----------------------------------------------------------------
60
61!$OMP THREADPRIVATE(nbrh,r_r,r_s,ralphar,ralphas,rfraer,rfrbc,rfrdd,rfrgas)
62!$OMP THREADPRIVATE(rfrif,rfrom,rfrso4,rfrss,rho_ice,rho_wat,rmmd_dd,rmmd_ss)
63!$OMP THREADPRIVATE(rrhmax,rrho_dd,rrho_ss,rrhtab,rssgrow,rvdplic,rvdplnd)
64!$OMP THREADPRIVATE(rvdpoce,rvdpsic,rvsedlic,rvsedlnd,rvsedoce,rvsedsic)
65
66END MODULE YOEAERSNK
67
Note: See TracBrowser for help on using the repository browser.