source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomgc.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.8 KB
Line 
1MODULE YOMGC
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    Grid point boundaries
11
12! RCORI      : Coriolis parameter "f = 2 Omega sin(theta)".
13! RCORIC     : 2 Omega cos(theta).
14! GEMU       : sine of geographic latitude "sin(theta)".
15! GSQM2      : cosine of geographic latitude "cos(theta)".
16! GELAM      : geographic longitude "lambda".
17! GELAT      : geographic latitude "theta".
18! GECLO      : cosine of geographic longitude "cos(lambda)".
19! GESLO      : sine of geographic longitude "sin(lambda)".
20! GM         : mapping factor "M".
21! GOMVRL     : zonal component of vector "2 vec(Omega) wedge a vec(k)".
22! GOMVRM     : meridian component of vector "2 vec(Omega) wedge a vec(k)".
23! GNORDL     : zonal component "gnordl" of unit vector directed towards
24!              the geographic Northern pole.
25! GNORDM     : meridian component "gnordm" of unit vector directed towards
26!              the geographic Northern pole.
27! GNORDLCL   : zonal component of vector "rssavnabla gnordl".
28! GNORDMCL   : zonal component of vector "rssavnabla gnordm".
29! GNORDMCM   : meridian component of vector "rssavnabla gnordm".
30! OROG       : grid-point surface orography "Phi_s".
31! OROGL      : zonal component of "vnabla' Phi_s".
32! OROGM      : zonal component of "vnabla' Phi_s".
33! OROGLL,OROGMM,OROGLM: second-order reduced derivatives of surface orography.
34! GAW        : Gaussian weight.
35! NGPLAT     : DM-global number of the Gaussian grid latitude.
36! NUNIQUEGP  : pointer array (see computation in sugem2.F90).
37
38REAL(KIND=JPRB),ALLOCATABLE:: RCORI(:)
39REAL(KIND=JPRB),ALLOCATABLE:: RCORIC(:)
40REAL(KIND=JPRB),ALLOCATABLE:: GEMU(:)
41REAL(KIND=JPRB),ALLOCATABLE:: GSQM2(:)
42REAL(KIND=JPRB),ALLOCATABLE:: GELAM(:)
43REAL(KIND=JPRB),ALLOCATABLE:: GELAT(:)
44REAL(KIND=JPRB),ALLOCATABLE:: GECLO(:)
45REAL(KIND=JPRB),ALLOCATABLE:: GESLO(:)
46REAL(KIND=JPRB),ALLOCATABLE:: GM(:)
47REAL(KIND=JPRB),ALLOCATABLE:: GOMVRL(:)
48REAL(KIND=JPRB),ALLOCATABLE:: GOMVRM(:)
49REAL(KIND=JPRB),ALLOCATABLE:: GNORDL(:)
50REAL(KIND=JPRB),ALLOCATABLE:: GNORDM(:)
51REAL(KIND=JPRB),ALLOCATABLE:: GNORDLCL(:)
52REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCL(:)
53REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCM(:)
54REAL(KIND=JPRB),ALLOCATABLE:: OROG(:)
55REAL(KIND=JPRB),ALLOCATABLE:: OROGL(:)
56REAL(KIND=JPRB),ALLOCATABLE:: OROGM(:)
57REAL(KIND=JPRB),ALLOCATABLE:: OROGLL(:)
58REAL(KIND=JPRB),ALLOCATABLE:: OROGMM(:)
59REAL(KIND=JPRB),ALLOCATABLE:: OROGLM(:)
60REAL(KIND=JPRB),ALLOCATABLE:: GAW(:)
61INTEGER(KIND=JPIM),ALLOCATABLE:: NGPLAT(:)
62INTEGER(KIND=JPIM),ALLOCATABLE:: NUNIQUEGP(:)
63
64!      ----------------------------------------------------------------
65
66!$OMP THREADPRIVATE(gaw,geclo,gelam,gelat,gemu,geslo,gm,gnordl,gnordlcl,gnordm,gnordmcl,gnordmcm,gomvrl)
67!$OMP THREADPRIVATE(gomvrm,gsqm2,ngplat,nuniquegp,orog,orogl,orogll,oroglm,orogm,orogmm,rcori,rcoric)
68END MODULE YOMGC
Note: See TracBrowser for help on using the repository browser.