source: LMDZ6/branches/Optimisation_LMDZ/libf/phylmd/rrtm/yoerrtftr.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: 1000 bytes
Line 
1MODULE YOERRTFTR
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5USE PARRRTM
6
7IMPLICIT NONE
8
9SAVE
10
11!    -------------------------------------------------------------------
12
13!    -------------------------------------------------------------------
14
15INTEGER(KIND=JPIM) :: NGC(JPBAND)
16INTEGER(KIND=JPIM) :: NGS(JPBAND)
17INTEGER(KIND=JPIM) :: NGN(JPGPT)
18INTEGER(KIND=JPIM) :: NGB(JPGPT)
19
20INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
21REAL(KIND=JPRB) ::    WT(JPG)
22
23!     -----------------------------------------------------------------
24!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
25
26!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
27
28!  NAME     TYPE     PURPOSE
29!  ----  :  ----   : ---------------------------------------------------
30!  NGC   : INTEGER :
31!  NGS   : INTEGER :
32!  NGN   : INTEGER :
33!  NGB   : INTEGER :
34!  NGM   : INTEGER :
35!  WT    : REAL    :
36!    -------------------------------------------------------------------
37
38!$OMP THREADPRIVATE(ngb,ngc,ngm,ngn,ngs,wt)
39
40END MODULE YOERRTFTR
41
Note: See TracBrowser for help on using the repository browser.