source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomsc2.F90 @ 3847

Last change on this file since 3847 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 YOMSC2
2
3USE PARKIND1  ,ONLY : JPIM
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10
11! NSLWIDE    : NUMBER OF "ROWS" THE MODEL LAGGED PART RUNS BEHIND
12! NOBWIDE    : NUMBER OF "ROWS" FOR OBSERVATION HALO
13! NRIWIDEN   : NUMBER OF "ROWS" FOR RADIATION INPUT NORTH (MODEL GRID)
14! NRIWIDES   : NUMBER OF "ROWS" FOR RADIATION INPUT SOUTH (MODEL GRID)
15! NRIWIDEW   : NUMBER OF "ROWS" FOR RADIATION INPUT WEST  (MODEL GRID)
16! NRIWIDEE   : NUMBER OF "ROWS" FOR RADIATION INPUT EAST  (MODEL GRID)
17! NROWIDEN   : NUMBER OF "ROWS" FOR RADIATION OUTPUT NORTH (RADIATION GRID)
18! NROWIDES   : NUMBER OF "ROWS" FOR RADIATION OUTPUT SOUTH (RADIATION GRID)
19! NROWIDEW   : NUMBER OF "ROWS" FOR RADIATION OUTPUT WEST  (RADIATION GRID)
20! NROWIDEE   : NUMBER OF "ROWS" FOR RADIATION OUTPUT EAST  (RADIATION GRID)
21! NFLDSLB1   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 1
22! NFLDSLB2   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 2
23! NFLDOBB1   : NUMBER OF FIELDS IN OBSERVATION BUFFER 1
24! NFLDSLB15  : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 15 (TL and adjoint)
25! NDIST      : START ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
26! NDIEND     : END   ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
27! NCIST      : START ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
28! NCIEND     : END   ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
29
30INTEGER(KIND=JPIM),ALLOCATABLE:: NDIST(:)
31INTEGER(KIND=JPIM),ALLOCATABLE:: NDIEND(:)
32INTEGER(KIND=JPIM),ALLOCATABLE:: NCIST(:)
33INTEGER(KIND=JPIM),ALLOCATABLE:: NCIEND(:)
34
35INTEGER(KIND=JPIM) :: NSLWIDE
36INTEGER(KIND=JPIM) :: NFLDSLB1
37INTEGER(KIND=JPIM) :: NFLDSLB2
38INTEGER(KIND=JPIM) :: NFLDOBB1
39INTEGER(KIND=JPIM) :: NFLDSLB15
40INTEGER(KIND=JPIM) :: NOBWIDE
41INTEGER(KIND=JPIM) :: NRIWIDEN
42INTEGER(KIND=JPIM) :: NRIWIDES
43INTEGER(KIND=JPIM) :: NRIWIDEW
44INTEGER(KIND=JPIM) :: NRIWIDEE
45INTEGER(KIND=JPIM) :: NROWIDEN
46INTEGER(KIND=JPIM) :: NROWIDES
47INTEGER(KIND=JPIM) :: NROWIDEW
48INTEGER(KIND=JPIM) :: NROWIDEE
49
50!-----------------------------------------------------------------------
51!$OMP THREADPRIVATE(nfldobb1,nfldslb1,nfldslb15,nfldslb2,nobwide,nriwidee,nriwiden,nriwides)
52!$OMP THREADPRIVATE(nriwidew,nrowidee,nrowiden,nrowides,nrowidew,nslwide)
53!$OMP THREADPRIVATE(nciend,ncist,ndiend,ndist)
54END MODULE YOMSC2
Note: See TracBrowser for help on using the repository browser.