source: LMDZ6/branches/LMDZ-COSP/libf/phylmd/rrtm/yomlun.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: 5.8 KB
Line 
1MODULE YOMLUN
2
3USE PARKIND1  ,ONLY : JPIM
4USE YOMLUN_IFSAUX, ONLY : NULOUT, NULERR
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11
12!*    Logical units used by code
13
14!     NULOUT :   output unit (now from YOMLUN_IFSAUX)
15!     NULNAM :   unit number for namelist
16!     NCMAFL :   UNIT NUMBERS FOR OCEAN COUPLER FILES
17!     NULCL1 :   unit number for climatological fields (month before)
18!     NULCL2 :   unit number for climatological fields (month after)
19!     NTRJSH :   unit number for trajectory spectral data          WRTRA
20!     NINMSH :   unit number for initial point of the minimization SUVAZX
21!     NINISH :   unit number for initial spectral data             SUSPEC
22!     NINIGG :   unit number for initial grid-point data           SUSPEC
23!     NFGISH :   unit number for first-guess spectral data
24!     NFGIGG :   unit number for first-guess grid-point data
25!     NPOSSH :   output unit number (spectral fields)              CPREP1
26!     NTIDE  :   unit number for the LFI file containing the total tendencies
27!     NPDIRL :   unit number for post-processing directory listing
28!     NPPPSH :   unit number for post-processed spherical harmonics WRPLPP
29
30!     NULDILA:   unit number for dilatation matrix (SUDIL,DILAT,SPDILA)
31!     NULCONT:   unit number for contraction matrix (SUDIL,DILAT,SPDILA)
32!     NULROTC:   unit number for upper troncature rotation matrix (SUROT,SPORTS)
33
34!     NULCO  :   unit number for coupled fields (ICMCO)
35!     NPODDH :   unit number for mask diagnostic files (DDH)
36!     NULRCF :   unit number for restart control file
37!     NULHWF :   unit number for history witness file
38!     NBIAS  :   unit number for bias (dig. filt. guess - guess)
39
40!     NEFLS  :   unit number for coupling ALADIN file
41!     NEFLSS :   unit number for coupling ALADIN file (initialisation)
42
43!     NULUSR1:   unit numbers for user defined files
44!     NULSTAT:   unit number for status  file
45
46!     NULASE :   unit number for CANARI statistics (forecast error s.d.)
47!     NULASS :   unit number for CANARI statistics (analysis error s.d.)
48
49!     NULUSR2
50!     NULUSR3
51!     NULUSR4
52!     NULUSR5
53!     NULTMP :   unit numbers for file opened and closed in the same routine
54
55!     NULFPxx    unit numbers for Full-POS output files
56!     NSCRTCH:   unit number for Full-POS scratch file (for in-line post-proc.)
57!     NULFPOS:   unit number for Full-POS control file (end of post-processing
58!                in conf. 001 ; auxilary namelist file in conf. 927)
59!     NULERR :   unit number for comparison with reference run (now from YOMLUN_IFSAUX)
60!     NULREF :   unit number for storing reference run
61!     NULRAD :   unit number for writing radiation diagnostics
62!     NULRTL :   unit number for reading RTLIMB coefficient files
63!     NUO3CH1:   unit number for reading ozone chemistry file 1
64!     NUO3CH2:   unit number for reading ozone chemistry file 2
65!     NTCSR  :   unit number for fields of radiation coefficients
66!     NSCATAB    SCAT. SIGMA0 TABLE
67!     NSCASIG    SCAT. SIGMA0 BIAS CORRECTION
68!     NSCASPE    SCAT. SPEED BIAS CORRECTION
69!     NEGASH     UNIT NUMBER FOR JK INPUT
70
71!     NULTRAJHR: unit number for high resolution trajectory (option LTRAJHR)
72!     NULTRAJBG: unit number for background (option LBACKGR)
73
74!!INTEGER(KIND=JPIM) :: NULOUT
75! Ce qui concerne NULNAM commente par MPL le 15.04.09
76!INTEGER(KIND=JPIM) :: NULNAM
77INTEGER(KIND=JPIM) :: NCMAFL(10)
78INTEGER(KIND=JPIM) :: NPOSSH
79INTEGER(KIND=JPIM) :: NTIDE
80INTEGER(KIND=JPIM) :: NTRJSH
81INTEGER(KIND=JPIM) :: NINMSH
82INTEGER(KIND=JPIM) :: NINISH
83INTEGER(KIND=JPIM) :: NINIGG
84INTEGER(KIND=JPIM) :: NFGISH
85INTEGER(KIND=JPIM) :: NFGIGG
86INTEGER(KIND=JPIM) :: NPPPSH
87INTEGER(KIND=JPIM) :: NULTMP
88INTEGER(KIND=JPIM) :: NPODDH
89INTEGER(KIND=JPIM) :: NULCL1
90INTEGER(KIND=JPIM) :: NULCL2
91INTEGER(KIND=JPIM) :: NULASE
92INTEGER(KIND=JPIM) :: NULASS
93INTEGER(KIND=JPIM) :: NULDILA
94INTEGER(KIND=JPIM) :: NULCONT
95INTEGER(KIND=JPIM) :: NULROTC
96INTEGER(KIND=JPIM) :: NULRCF
97INTEGER(KIND=JPIM) :: NULHWF
98INTEGER(KIND=JPIM) :: NULUSR1
99INTEGER(KIND=JPIM) :: NULUSR2
100INTEGER(KIND=JPIM) :: NULUSR3
101INTEGER(KIND=JPIM) :: NULUSR4
102INTEGER(KIND=JPIM) :: NULUSR5
103INTEGER(KIND=JPIM) :: NULCO
104INTEGER(KIND=JPIM) :: NEFLS
105INTEGER(KIND=JPIM) :: NEFLSS
106INTEGER(KIND=JPIM) :: NBIAS
107INTEGER(KIND=JPIM) :: NPDIRL
108INTEGER(KIND=JPIM) :: NULSTAT
109INTEGER(KIND=JPIM) :: NULFP01
110INTEGER(KIND=JPIM) :: NULFP02
111INTEGER(KIND=JPIM) :: NULFP03
112INTEGER(KIND=JPIM) :: NULFP04
113INTEGER(KIND=JPIM) :: NULFP05
114INTEGER(KIND=JPIM) :: NULFP06
115INTEGER(KIND=JPIM) :: NULFP07
116INTEGER(KIND=JPIM) :: NULFP08
117INTEGER(KIND=JPIM) :: NULFP09
118INTEGER(KIND=JPIM) :: NULFP10
119INTEGER(KIND=JPIM) :: NULFP11
120INTEGER(KIND=JPIM) :: NULFP12
121INTEGER(KIND=JPIM) :: NULFP13
122INTEGER(KIND=JPIM) :: NULFP14
123INTEGER(KIND=JPIM) :: NULFP15
124INTEGER(KIND=JPIM) :: NULFPOS
125INTEGER(KIND=JPIM) :: NSCRTCH
126!!INTEGER(KIND=JPIM) :: NULERR
127INTEGER(KIND=JPIM) :: NULREF
128INTEGER(KIND=JPIM) :: NULRAD
129INTEGER(KIND=JPIM) :: NULRTL
130INTEGER(KIND=JPIM) :: NUO3CH1
131INTEGER(KIND=JPIM) :: NUO3CH2
132INTEGER(KIND=JPIM) :: NTCSR
133INTEGER(KIND=JPIM) :: NSCATAB
134INTEGER(KIND=JPIM) :: NSCASIG
135INTEGER(KIND=JPIM) :: NSCASPE
136INTEGER(KIND=JPIM) :: NEGASH
137INTEGER(KIND=JPIM) :: NULTRAJHR
138INTEGER(KIND=JPIM) :: NULTRAJBG
139!     ------------------------------------------------------------------
140!$OMP THREADPRIVATE(nbias,ncmafl,nefls,neflss,negash,nfgigg,nfgish,ninigg,ninish,ninmsh,npdirl,npoddh,npossh)
141!$OMP THREADPRIVATE(npppsh,nscasig,nscaspe,nscatab,nscrtch,ntcsr,ntide,ntrjsh,nulase,nulass,nulcl1,nulcl2,nulco)
142!$OMP THREADPRIVATE(nulcont,nuldila,nulfp01,nulfp02,nulfp03,nulfp04,nulfp05,nulfp06,nulfp07,nulfp08,nulfp09)
143!$OMP THREADPRIVATE(nulfp10,nulfp11,nulfp12,nulfp13,nulfp14,nulfp15,nulfpos,nulhwf,nulrad,nulrcf,nulref,nulrotc)
144!$OMP THREADPRIVATE(nulrtl,nulstat,nultmp,nultrajbg,nultrajhr,nulusr1,nulusr2,nulusr3,nulusr4,nulusr5,nuo3ch1,nuo3ch2)
145END MODULE YOMLUN
Note: See TracBrowser for help on using the repository browser.