LMDZ
parcma.F90
Go to the documentation of this file.
1 MODULE parcma
2 
3 
4 #include "tsmbkind.h"
5 
6 IMPLICIT NONE
7 
8 SAVE
9 
10 !* PARCMA - CMA VARIOUS PARAMETERS
11 
12 ! D. VASILJEVIC ECMWF 19/09/94
13 
14 
15 ! NAME MEANING
16 ! ---- -------
17 
18 ! CMA ARRAY/FILE PARAMETERS:
19 ! ---------------------
20 
21 ! JPMXGICL MAX. LEN. OF "GLOBAL" INTEGER CMA ARRAY
22 ! JPMXGRCL MAX. LEN. OF "GLOBAL" REAL CMA ARRAY
23 ! JPMXICRL MAX. LEN. OF INPUT CMA REPORT
24 ! JPMXICHL MAX. LEN. OF INPUT CMA REPORT HEADER
25 ! JPMXICBL MAX. LEN. OF INPUT CMA REPORT BODY ENTRY
26 ! JPMXICDL MAX. LEN. OF INPUT CMA DDR
27 ! JPMXOCRL MAX. LEN. OF OUTPUT CMA REPORT
28 ! JPMXOCHL MAX. LEN. OF OUTPUT CMA REPORT HEADER
29 ! JPMXOCBL MAX. LEN. OF OUTPUT CMA REPORT BODY ENTRY
30 ! JPMXOCDL MAX. LEN. OF OUTPUT CMA DDR
31 ! JPMXDEPL MAX. LEN. OF DEPARTURE LIST
32 
33 integer_m :: jpmxgicl
34 integer_m :: jpmxgrcl
35 integer_m :: jpmxicrl
36 integer_m :: jpmxichl
37 integer_m :: jpmxicbl
38 integer_m :: jpmxicdl
39 integer_m :: jpmxocrl
40 integer_m :: jpmxochl
41 integer_m :: jpmxocbl
42 integer_m :: jpmxocdl
43 integer_m :: jpmxdepl
44 parameter(jpmxgicl=1)
45 parameter(jpmxgrcl=2000000)
46 parameter(jpmxicrl=164811)
47 parameter(jpmxichl=581)
48 parameter(jpmxicbl=72)
49 parameter(jpmxicdl=3072)
50 parameter(jpmxocrl=164811)
51 parameter(jpmxochl=581)
52 parameter(jpmxocbl=72)
53 parameter(jpmxocdl=3072)
54 parameter(jpmxdepl=319)
55 
56 !-----------------------------------------------------------------------
57 
58 
59 ! CMA EVENTS, FLAGS, CODES ETC. PARAMETERS:
60 ! -----------------------------------------
61 
62 ! JPMXLID MAX. NO. OF LEVEL ID CODES
63 ! JPMXPCD MAX. NO. OF PRESSURE CODES
64 ! JPMXRE1 MAX. NO. REPORT (PART 1) EVENTS
65 ! JPMXRE2 MAX. NO. REPORT (PART 2) EVENTS
66 ! JPMXDE1 MAX. NO. DATUM (PART 1) EVENTS
67 ! JPMXDE2 MAX. NO. DATUM (PART 2) EVENTS
68 ! JPMXRBLE MAX. NO. REPORT BLACKLIST EVENTS
69 ! JPMXDBLE MAX. NO. DATUM BLACKLIST EVENTS
70 ! JPMXRDF MAX. NO. RDB REPORT FLAGS
71 ! JPMXDDF MAX. NO. RDB PRESSURE/VARIABLE FLAGS
72 ! JPMXADF MAX. NO. ANALYSIS VARIABLE FLAGS
73 ! JPMXSBI1 MAX. NO. OF SATOB I1 CODES
74 ! JPMXSBI2 MAX. NO. OF SATOB I2I2 CODES
75 ! JPMXSMI2 MAX. NO. OF SATEM I2 CODES
76 ! JPMXSMV MAX. NO. OF SATEM V CODES
77 ! JPMXSMW MAX. NO. OF SATEM W CODES
78 ! JPMXSMX MAX. NO. OF SATEM X CODES
79 ! JPMXSMY MAX. NO. OF SATEM Y CODES
80 ! JPMXSMA MAX. NO. OF SATEM A CODES
81 ! JPMXSMB MAX. NO. OF SATEM B CODES
82 ! JPMXSMC MAX. NO. OF SATEM C CODES
83 
84 integer_m :: jpmxlid
85 integer_m :: jpmxpcd
86 integer_m :: jpmxre1
87 integer_m :: jpmxre2
88 integer_m :: jpmxde1
89 integer_m :: jpmxde2
90 integer_m :: jpmxrble
91 integer_m :: jpmxdble
92 integer_m :: jpmxrdf
93 integer_m :: jpmxddf
94 integer_m :: jpmxadf
95 integer_m :: jpmxsbi2
96 integer_m :: jpmxsmi2
97 integer_m :: jpmxsmv
98 integer_m :: jpmxsmw
99 integer_m :: jpmxsmx
100 integer_m :: jpmxsmy
101 integer_m :: jpmxsma
102 integer_m :: jpmxsmb
103 integer_m :: jpmxsmc
104 integer_m :: jpmxsbi1
105 parameter(jpmxlid=9)
106 parameter(jpmxpcd=13)
107 parameter(jpmxre1=30)
108 parameter(jpmxre2=30)
109 parameter(jpmxde1=30)
110 parameter(jpmxde2=30)
111 parameter(jpmxrble=30)
112 parameter(jpmxdble=30)
113 parameter(jpmxrdf=5)
114 parameter(jpmxddf=7)
115 parameter(jpmxadf=7)
116 parameter(jpmxsbi2=5)
117 parameter(jpmxsmi2=4)
118 parameter(jpmxsmv=3)
119 parameter(jpmxsmw=3)
120 parameter(jpmxsmx=5)
121 parameter(jpmxsmy=7)
122 parameter(jpmxsma=3)
123 parameter(jpmxsmb=3)
124 parameter(jpmxsmc=3)
125 parameter(jpmxsbi1=5)
126 
127 !-----------------------------------------------------------------------
128 
129 ! CMA NO. OF OBS./CODE TYPES, UPDATES, ADD. DEP. ETC. PARAMETERS:
130 ! --------------------------------------------------------------
131 
132 ! JPMXOTP MAX. NO. OF OBS. TYPES
133 ! JPMXOCT MAX. NO. OF OBS. CODE TYPES
134 ! JPMXUP MAX. NO. UPDATES
135 ! JPMXAD MAX. NO. OF ADDITIONAL DEPARTURES
136 ! JPMXVAR MAX. NO. OF CMA VARIABLES
137 ! JPMXTOCH MAX. NO. TOVS CHANNELS
138 ! JPMXSSCH MAX. NO. SSMI CHANNELS
139 ! JPMXTRCH MAX. NO. TRMM CHANNELS
140 ! JPXSFPTS MAX. NO. OF SIM. OBS. FILES PER 6HR TIME SLOT
141 ! JPXTSL MAX. NO. OF OUTPUT/INPUT TIME SLOTS
142 ! JPXCMA MAX. NO. OF OUTPUT/INPUT CMA FILES
143 ! JPXSATS MAX. NO. OF SATELLITES
144 ! JPXSENSOR MAX. NO. OF SENSOR TYPES FOR 1C RADIANCES
145 ! JPSMETSND SENSOR INDICATOR FOR METEOSAT SOUNDER DATA
146 
147 integer_m :: jpmxotp
148 integer_m :: jpmxoct
149 integer_m :: jpmxup
150 integer_m :: jpmxad
151 integer_m :: jpmxvar
152 integer_m :: jpmxtoch
153 integer_m :: jpmxssch
154 integer_m :: jpmxtrch
155 integer_m :: jpxtsl
156 integer_m :: jpxcma
157 integer_m :: jpxsats
158 integer_m :: jpxsensor
159 integer_m :: jpsmetsnd
160 parameter(jpmxotp=10)
161 parameter(jpmxoct=11)
162 parameter(jpmxup=10)
163 parameter(jpmxad=20)
164 parameter(jpmxvar=70)
165 parameter(jpmxtoch=27)
166 parameter(jpmxssch=7)
167 parameter(jpmxtrch=9)
168 parameter(jpxtsl=25)
169 parameter(jpxcma=1)
170 parameter(jpxsats=6)
171 parameter(jpxsensor=30)
172 parameter(jpsmetsnd=20)
173 
174 !-----------------------------------------------------------------------
175 
176 END MODULE parcma
parameter
!$Header!integer nvarmx parameter(nfmx=10, imx=200, jmx=150, lmx=200, nvarmx=1000) real xd(imx
parcma
Definition: parcma.F90:1