source: LMDZ5/branches/Cold_pool_death/libf/phymar/yomlun.F90 @ 4025

Last change on this file since 4025 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
File size: 6.7 KB
Line 
1MODULE YOMLUN
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10!     ------------------------------------------------------------------
11
12!*    Logical units used by code
13
14!     NULOUT :   output unit
15!     NULNAM :   unit number for namelist
16!     NORZUN :   UNIT NO. FOR TEMP HEIGHT ERROR CORRELATION
17!     NCMAFL :   UNIT NUMBERS FOR CMA FILES
18!     NULCL1 :   unit number for climatological fields (month before)
19!     NULCL2 :   unit number for climatological fields (month after)
20!     NTRJSH :   unit number for trajectory spectral data          WRTRA
21!     NTRJGG :   unit number for trajectory grid-point data        WRTRA
22!     NINMSH :   unit number for initial point of the minimization SUVAZX
23!     NINMGG :   unit number for initial point of the minimization SUVAZX
24!     NINISH :   unit number for initial spectral data             SUSPEC
25!     NINIGG :   unit number for initial grid-point data           SUSPEC
26!     NFGISH :   unit number for first-guess spectral data
27!     NFGIGG :   unit number for first-guess grid-point data
28!     NPOSSH :   output unit number (spectral fields)              CPREP1
29!     NPOSGG :   output unit number (grid point fields)            CPREP1
30!     NSPHMO :   unit number for conversion matrix (to normal mode space)
31!     NHOUMO :   unit number for conversion matrix (from normal mode space)
32!     NPINMI :   unit number for partially implicit NMI help arrays
33!     NFREQ2 :   unit number for freqencies arrays FREQ and FREQ2 (YOMNMI)
34!     NSAVSP :   unit number for saving spectral arrays           (CNMI)
35!     NTIDE  :   unit number for the LFI file containing the total tendencies
36!     NLTYPE :   unit number for LTYPGR, LTYPDB and LTYPTD arrays (YOMNMI)
37!     NPDIRL :   unit number for post-processing directory listing
38!     NPPPSH :   unit number for post-processed spherical harmonics WRPLPP
39!     NPPGG  :   unit number for post-processed grid-point fields   WRPLPP
40!     NFCER0 :   unit number for forecast errors on standard error grid
41!     NFCERZ :   unit number for horizontally interpolated forecast errors
42!                in field form.
43!     NFCERH :   unit number for horizontally interpolated forecast errors
44!                in line form.
45!     NFCEVC :   unit number for compressed error climatology file
46!     NFCSPG :   unit number for spectral first guess field
47
48!     NFFUNC :   unit number for Fspalt(1,jlev,jvar) and Fspsur(1,1) with the
49!                number of simulations.                             EVCOST
50!     NFSPNC :   unit number for Fspalt(jlev,jvar,jn) and Fspsur(1,jn)
51!                with the number of simulations.                    EVCOST
52!     NFDIT0 :   unit number for global distance at t0 with the
53!                number of simulations.                              SIM4D
54!     NFSPT0 :   unit number for distance at t0 (by field and wave number)
55!                at the begining and at the end of the minimisation COSTRA
56
57!     NULZDID:   unit number for zonal diagnostics of dynamics (ZODIA).
58!     NULZDIF:   unit number for zonal diagnostics of physical fluxes (ZODIA).
59
60!     NULDILA:   unit number for dilatation matrix (SUDIL,DILAT,SPDILA)
61!     NULCONT:   unit number for contraction matrix (SUDIL,DILAT,SPDILA)
62!     NULROTS:   unit number for lower troncature rotation matrix (SUROT,SPORTS)
63!     NULROTC:   unit number for upper troncature rotation matrix (SUROT,SPORTS)
64
65!     NULLEG :   unit number for Legendre polynomials
66!     NULCO  :   unit number for coupled fields (ICMCO)
67!     NPODDH :   unit number for mask diagnostic files (DDH)
68!     NULRCF :   unit number for restart control file
69!     NULHWF :   unit number for history witness file
70!     NBIAS  :   unit number for bias (dig. filt. guess - guess)
71
72!     NEFLS  :   unit number for coupling ALADIN file
73!     NEFLSS :   unit number for coupling ALADIN file (initialisation)
74
75!     NULUSR1:   unit numbers for user defined files
76!     NULDISP:   unit number for display file
77!     NULSTAT:   unit number for status  file
78
79!     NULASE :   unit number for CANARI statistics (forecast error s.d.)
80!     NULASS :   unit number for CANARI statistics (analysis error s.d.)
81
82!     NULUSR2
83!     NULUSR3
84!     NULUSR4
85!     NULUSR5
86!     NULTMP :   unit numbers for file opened and closed in the same routine
87
88!     NULFPxx    unit numbers for Full-POS output files
89!     NSCRTCH:   unit number for Full-POS scratch file (for in-line post-proc.)
90!     NULFPOS:   unit number for Full-POS control file (end of post-processing
91!                in conf. 001 ; auxilary namelist file in conf. 927)
92!     NULDIA :   unit number for error diagnostics
93!     NULERR :   unit number for comparison with reference run
94!     NULREF :   unit number for storing reference run
95!     NULTIM :   unit number for storing timing information for DM run
96!     NULRAD :   unit number for writing radiation diagnostics
97!     NUO3CH1:   unit number for reading ozone chemistry file 1
98!     NUO3CH2:   unit number for reading ozone chemistry file 2
99!     NTCSR  :   unit number for fields of radiation coefficients
100INTEGER_M :: NULOUT
101INTEGER_M :: NULNAM
102INTEGER_M :: NCMAFL(26)
103INTEGER_M :: NPOSSH
104INTEGER_M :: NPOSGG
105INTEGER_M :: NSPHMO
106INTEGER_M :: NHOUMO
107INTEGER_M :: NPINMI
108INTEGER_M :: NFREQ2
109INTEGER_M :: NLTYPE
110INTEGER_M :: NTIDE
111INTEGER_M :: NTRJSH
112INTEGER_M :: NTRJGG
113INTEGER_M :: NINMSH
114INTEGER_M :: NINMGG
115INTEGER_M :: NINISH
116INTEGER_M :: NINIGG
117INTEGER_M :: NFGISH
118INTEGER_M :: NFGIGG
119INTEGER_M :: NPPPSH
120INTEGER_M :: NPPGG
121INTEGER_M :: NULTMP
122INTEGER_M :: NFCER0
123INTEGER_M :: NFCERZ
124INTEGER_M :: NFCERH
125INTEGER_M :: NFCEVC
126INTEGER_M :: NFCSPG
127INTEGER_M :: NPODDH
128INTEGER_M :: NULLEG
129INTEGER_M :: NORZUN
130INTEGER_M :: NSAVSP
131INTEGER_M :: NFFUNC
132INTEGER_M :: NFSPNC
133INTEGER_M :: NFDIT0
134INTEGER_M :: NFSPT0
135INTEGER_M :: NULZDID
136INTEGER_M :: NULZDIF
137INTEGER_M :: NULCL1
138INTEGER_M :: NULCL2
139INTEGER_M :: NULASE
140INTEGER_M :: NULASS
141INTEGER_M :: NULDILA
142INTEGER_M :: NULCONT
143INTEGER_M :: NULROTS
144INTEGER_M :: NULROTC
145INTEGER_M :: NULRCF
146INTEGER_M :: NULHWF
147INTEGER_M :: NULUSR1
148INTEGER_M :: NULUSR2
149INTEGER_M :: NULUSR3
150INTEGER_M :: NULUSR4
151INTEGER_M :: NULUSR5
152INTEGER_M :: NULCO
153INTEGER_M :: NEFLS
154INTEGER_M :: NEFLSS
155INTEGER_M :: NBIAS
156INTEGER_M :: NPDIRL
157INTEGER_M :: NULDISP
158INTEGER_M :: NULSTAT
159INTEGER_M :: NULFP01
160INTEGER_M :: NULFP02
161INTEGER_M :: NULFP03
162INTEGER_M :: NULFP04
163INTEGER_M :: NULFP05
164INTEGER_M :: NULFP06
165INTEGER_M :: NULFP07
166INTEGER_M :: NULFP08
167INTEGER_M :: NULFP09
168INTEGER_M :: NULFP10
169INTEGER_M :: NULFP11
170INTEGER_M :: NULFP12
171INTEGER_M :: NULFP13
172INTEGER_M :: NULFP14
173INTEGER_M :: NULFP15
174INTEGER_M :: NULFPOS
175INTEGER_M :: NSCRTCH
176INTEGER_M :: NULDIA
177INTEGER_M :: NULERR
178INTEGER_M :: NULREF
179INTEGER_M :: NULTIM
180INTEGER_M :: NULRAD
181INTEGER_M :: NUO3CH1
182INTEGER_M :: NUO3CH2
183INTEGER_M :: NTCSR
184!     ------------------------------------------------------------------
185END MODULE YOMLUN
Note: See TracBrowser for help on using the repository browser.