source: LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/rrtm/yoeaeratm.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: 2.0 KB
Line 
1MODULE YOEAERATM
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOEAERATM* - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE
11!     ------------------------------------------------------------------
12
13INTEGER(KIND=JPIM) :: INDBG
14INTEGER(KIND=JPIM) :: NDD1, NSS1
15
16REAL(KIND=JPRB) :: RMFMIN
17REAL(KIND=JPRB) :: RMASSE(15)
18
19REAL(KIND=JPRB) :: REPSCAER
20
21LOGICAL :: LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERGBUD
22LOGICAL :: LAERNGAT , LAERPRNT , LAERSCAV , LAERSEDIM, LAERSURF, LAER6SDIA
23
24!     ------------------------------------------------------------------
25! NDD1       : location of first bin for desert dust
26! NSS1       : location of first bin for sea-salt
27! RMFMIN     : minimum mass flux for convective aerosol transport
28! RMASSE     : Molar mass: N.B.: either g/mol or Avogadro number
29!
30! REPSCAER   : security on aerosol concentration: always >= 1.E-15
31!
32! LAERCLIMG  : .T. to start prognostic aerosols with geographical monthly
33!                  mean climatology
34! LAERCLIMZ  : .T. to start prognostic aerosols with zonal annual mean
35!                  climatology
36! LAERCLIST  : .T. to start prognostic aerosols with geographical monthly
37!                  mean climatology for background stratospheric only
38! LAERDRYDP  : .T. dry deposition is active
39! LAERGBUD   : .T. "clean" global budget for aerosols
40! LAERNGAT   : .T. prevents negative aerosol concentrations
41! LAERPRNT   : .T. for on-line prints of aerosol physical processes (NSTEP<=1)
42! LAERSCAV   : .T. in-cloud and below cloud scavenging is active
43! LAERSEDIM  : .T. sedimentation is active
44! LAERSURF   : .T. if surface emissions
45! LAER6SDIA  : .T. if radiance diagnostics with 6S
46!     ------------------------------------------------------------------
47
48
49!$OMP THREADPRIVATE(indbg,laer6sdia,laerclimg,laerclimz,laerclist,laerdrydp)
50!$OMP THREADPRIVATE(laergbud,laerngat,laerprnt,laerscav,laersedim,laersurf)
51!$OMP THREADPRIVATE(ndd1,nss1,repscaer,rmasse,rmfmin)
52
53END MODULE YOEAERATM
54
Note: See TracBrowser for help on using the repository browser.