1 | MODULE obs_types |
---|
2 | !!===================================================================== |
---|
3 | !! *** MODULE obs_types *** |
---|
4 | !! Observation diagnostics: Observation type integer to character |
---|
5 | !! translation |
---|
6 | !!===================================================================== |
---|
7 | |
---|
8 | !!--------------------------------------------------------------------- |
---|
9 | !! |
---|
10 | !! The NetCDF variable CWMO_INST_TYP_COR is used to identify the |
---|
11 | !! different instrument types for coriolis data. |
---|
12 | !! |
---|
13 | !! WMO NEMOVAR TYPE DESCRIPTION |
---|
14 | !! --- ------- ---- -------------------------------------------- |
---|
15 | !! 800 0 MBT (1941-) mechanical bathythermograph data |
---|
16 | !! 401 1 XBT (1967-) expendable bathythermograph data |
---|
17 | !! 830 2 CTD (1967-) high resolution CTD data |
---|
18 | !! 820 3 MRB (1990-) moored buoy data |
---|
19 | !! 831 4 PFL (1994-) profiling float data |
---|
20 | !! 995 5 DRB (1998-) drifting buoy data |
---|
21 | !! 997 6 APB (1997-) autonomous pinniped bathythermograph |
---|
22 | !! 996 7 UOR (1992-) undulating oceanographic recorder |
---|
23 | !! 741 8 OSD (1800-) low resolution (bottle) CTD data |
---|
24 | !! |
---|
25 | !! History : |
---|
26 | !! ! 06-03 (K. Mogensen) Original code |
---|
27 | !! ! 06-10 (A. Weaver) Cleanup |
---|
28 | !!--------------------------------------------------------------------- |
---|
29 | |
---|
30 | IMPLICIT NONE |
---|
31 | |
---|
32 | !! * Routine accessibility |
---|
33 | PRIVATE |
---|
34 | |
---|
35 | !! * Shared Module variables |
---|
36 | |
---|
37 | INTEGER, PUBLIC, PARAMETER :: ntyp1770 = 1023 |
---|
38 | !RBbug useless ? CHARACTER(LEN=4), PUBLIC, DIMENSION(0:ntyp1770) :: cwmotyp1770 |
---|
39 | CHARACTER(LEN=80), PUBLIC, DIMENSION(0:ntyp1770) :: cwmonam1770 |
---|
40 | CHARACTER(LEN=3), PUBLIC, DIMENSION(0:ntyp1770) :: ctypshort |
---|
41 | |
---|
42 | INTEGER, PUBLIC, PARAMETER :: ntypalt = 8 |
---|
43 | CHARACTER(LEN=40), PUBLIC, DIMENSION(0:ntypalt) :: calttyp |
---|
44 | |
---|
45 | PUBLIC obs_typ_init |
---|
46 | PUBLIC obs_wmo_init |
---|
47 | PUBLIC obs_alt_typ_init |
---|
48 | |
---|
49 | !!---------------------------------------------------------------------- |
---|
50 | !! NEMO/OCE 4.0 , NEMO Consortium (2018) |
---|
51 | !! $Id$ |
---|
52 | !! Software governed by the CeCILL license (see ./LICENSE) |
---|
53 | !!---------------------------------------------------------------------- |
---|
54 | |
---|
55 | CONTAINS |
---|
56 | |
---|
57 | SUBROUTINE obs_typ_init |
---|
58 | !!--------------------------------------------------------------------- |
---|
59 | !! |
---|
60 | !! *** ROUTINE obs_wmo_init *** |
---|
61 | !! |
---|
62 | !! ** Purpose : Initialize code tables |
---|
63 | !! |
---|
64 | !! ** Method : |
---|
65 | !! |
---|
66 | !! ** Action : |
---|
67 | !! |
---|
68 | !! References : |
---|
69 | !! |
---|
70 | !! History : |
---|
71 | !! ! : 2007-06 (K. Mogensen) Original code |
---|
72 | !!---------------------------------------------------------------------- |
---|
73 | !! * Modules used |
---|
74 | |
---|
75 | !! * Arguments |
---|
76 | |
---|
77 | !! * Local declarations |
---|
78 | |
---|
79 | CALL obs_wmo_init |
---|
80 | |
---|
81 | CALL obs_alt_typ_init |
---|
82 | |
---|
83 | END SUBROUTINE obs_typ_init |
---|
84 | |
---|
85 | SUBROUTINE obs_wmo_init |
---|
86 | !!--------------------------------------------------------------------- |
---|
87 | !! |
---|
88 | !! *** ROUTINE obs_wmo_init *** |
---|
89 | !! |
---|
90 | !! ** Purpose : Initialize WMO code 1770 code tables |
---|
91 | !! |
---|
92 | !! ** Method : Direct initialisation of variables |
---|
93 | !! |
---|
94 | !! ** Action : |
---|
95 | !! |
---|
96 | !! References : WORLD METEOROLOGICAL ORGANIZATION |
---|
97 | !! Manual on Codes |
---|
98 | !! International Codes |
---|
99 | !! VOLUME I.1 (Annex II to WMO Technical Regulations) |
---|
100 | !! Part A -- Alphanumeric Codes |
---|
101 | !! 1995 edition |
---|
102 | !! WMO-No. 306 |
---|
103 | !! Secretariat of the World Meteorological Organization |
---|
104 | !! Geneva, Switzerland |
---|
105 | !! |
---|
106 | !! History : |
---|
107 | !! ! : 2007-04 (K. Mogensen) Original code |
---|
108 | !!---------------------------------------------------------------------- |
---|
109 | !! * Modules used |
---|
110 | |
---|
111 | !! * Arguments |
---|
112 | |
---|
113 | !! * Local declarations |
---|
114 | INTEGER :: ji |
---|
115 | |
---|
116 | DO ji = 0, ntyp1770 |
---|
117 | |
---|
118 | cwmonam1770(ji) = 'Not defined' |
---|
119 | ctypshort(ji) = '---' |
---|
120 | |
---|
121 | ! IF ( ji < 1000 ) THEN |
---|
122 | ! WRITE(cwmotyp1770(ji),'(1X,I3.3)') ji |
---|
123 | ! ELSE |
---|
124 | ! WRITE(cwmotyp1770(ji),'(I4.4)') ji |
---|
125 | ! ENDIF |
---|
126 | |
---|
127 | END DO |
---|
128 | |
---|
129 | cwmonam1770( 1) = 'Sippican T-4' |
---|
130 | cwmonam1770( 2) = 'Sippican T-4' |
---|
131 | cwmonam1770( 11) = 'Sippican T-5' |
---|
132 | cwmonam1770( 21) = 'Sippican Fast Deep' |
---|
133 | cwmonam1770( 31) = 'Sippican T-6' |
---|
134 | cwmonam1770( 32) = 'Sippican T-6' |
---|
135 | cwmonam1770( 41) = 'Sippican T-7' |
---|
136 | cwmonam1770( 42) = 'Sippican T-7' |
---|
137 | cwmonam1770( 51) = 'Sippican Deep Blue' |
---|
138 | cwmonam1770( 52) = 'Sippican Deep Blue' |
---|
139 | cwmonam1770( 61) = 'Sippican T-10' |
---|
140 | cwmonam1770( 71) = 'Sippican T-11' |
---|
141 | cwmonam1770( 201) = 'TSK T-4' |
---|
142 | cwmonam1770( 202) = 'TSK T-4' |
---|
143 | cwmonam1770( 211) = 'TSK T-6' |
---|
144 | cwmonam1770( 212) = 'TSK T-6' |
---|
145 | cwmonam1770( 221) = 'TSK T-7' |
---|
146 | cwmonam1770( 222) = 'TSK T-7' |
---|
147 | cwmonam1770( 231) = 'TSK T-5' |
---|
148 | cwmonam1770( 241) = 'TSK T-10' |
---|
149 | cwmonam1770( 251) = 'TSK Deep Blue' |
---|
150 | cwmonam1770( 252) = 'TSK Deep Blue' |
---|
151 | cwmonam1770( 261) = 'TSK AXBT ' |
---|
152 | cwmonam1770( 401) = 'Sparton XBT-1' |
---|
153 | cwmonam1770( 411) = 'Sparton XBT-3' |
---|
154 | cwmonam1770( 421) = 'Sparton XBT-4' |
---|
155 | cwmonam1770( 431) = 'Sparton XBT-5' |
---|
156 | cwmonam1770( 441) = 'Sparton XBT-5DB' |
---|
157 | cwmonam1770( 451) = 'Sparton XBT-6' |
---|
158 | cwmonam1770( 461) = 'Sparton XBT-7' |
---|
159 | cwmonam1770( 462) = 'Sparton XBT-7' |
---|
160 | cwmonam1770( 471) = 'Sparton XBT-7DB' |
---|
161 | cwmonam1770( 481) = 'Sparton XBT-10' |
---|
162 | cwmonam1770( 491) = 'Sparton XBT-20' |
---|
163 | cwmonam1770( 501) = 'Sparton XBT-20DB' |
---|
164 | cwmonam1770( 510) = 'Sparton 536 AXBT' |
---|
165 | cwmonam1770( 700) = 'Sippican XCTD standard' |
---|
166 | cwmonam1770( 710) = 'Sippican XCTD deep' |
---|
167 | cwmonam1770( 720) = 'Sippican AXCTD' |
---|
168 | cwmonam1770( 730) = 'Sippican SXCTD' |
---|
169 | cwmonam1770( 741) = 'TSK XCTD' |
---|
170 | cwmonam1770( 742) = 'TSK XCTD-2 ' |
---|
171 | cwmonam1770( 743) = 'TSK XCTD-2F ' |
---|
172 | cwmonam1770( 751) = 'TSK AXCTD ' |
---|
173 | cwmonam1770( 800) = 'Mechanical BT' |
---|
174 | cwmonam1770( 810) = 'Hydrocast' |
---|
175 | cwmonam1770( 820) = 'Thermistor Chain' |
---|
176 | cwmonam1770( 825) = 'Temperature (sonic) and pressure probes' |
---|
177 | cwmonam1770( 830) = 'CTD' |
---|
178 | cwmonam1770( 831) = 'CTD-P-ALACE float' |
---|
179 | cwmonam1770( 840) = 'PROVOR, No conductivity sensor ' |
---|
180 | cwmonam1770( 841) = 'PROVOR, Seabird conductivity sensor ' |
---|
181 | cwmonam1770( 842) = 'PROVOR, FSI conductivity sensor ' |
---|
182 | cwmonam1770( 845) = 'Web Research, No conductivity sensor ' |
---|
183 | cwmonam1770( 846) = 'Web Research, Seabird conductivity sensor ' |
---|
184 | cwmonam1770( 847) = 'Web Research. FSI conductivity sensor' |
---|
185 | cwmonam1770( 850) = 'SOLO, No conductivity sensor ' |
---|
186 | cwmonam1770( 851) = 'SOLO, Seabird conductivity sensor ' |
---|
187 | cwmonam1770( 852) = 'SOLO, FSI conductivity sensor' |
---|
188 | cwmonam1770( 855) = 'Profiling float, NINJA, no conductivity sensor' |
---|
189 | cwmonam1770( 856) = 'Profiling float, NINJA, SBE conductivity sensor' |
---|
190 | cwmonam1770( 857) = 'Profiling float, NINJA, FSI conductivity sensor' |
---|
191 | cwmonam1770( 858) = 'Profiling float, NINJA, TSK conductivity sensor' |
---|
192 | cwmonam1770( 900) = 'Sippican T-12 XBT' |
---|
193 | cwmonam1770(1023) = 'Missing value' |
---|
194 | |
---|
195 | DO ji = 853, 854 |
---|
196 | cwmonam1770(ji) = 'Reserved' |
---|
197 | END DO |
---|
198 | |
---|
199 | DO ji = 859, 899 |
---|
200 | cwmonam1770(ji) = 'Reserved' |
---|
201 | END DO |
---|
202 | |
---|
203 | DO ji = 901, 999 |
---|
204 | cwmonam1770(ji) = 'Reserved' |
---|
205 | END DO |
---|
206 | |
---|
207 | DO ji = 1000, 1022 |
---|
208 | cwmonam1770(ji) = 'Reserved' |
---|
209 | END DO |
---|
210 | |
---|
211 | ctypshort(800) = 'MBT' |
---|
212 | ctypshort(401) = 'XBT' |
---|
213 | ctypshort(830) = 'CTD' |
---|
214 | ctypshort(820) = 'MRB' |
---|
215 | ctypshort(831) = 'PFL' |
---|
216 | ctypshort(995) = 'DRB' |
---|
217 | ctypshort(997) = 'APB' |
---|
218 | ctypshort(996) = 'UOR' |
---|
219 | ctypshort(700:799) = 'OSD' |
---|
220 | |
---|
221 | END SUBROUTINE obs_wmo_init |
---|
222 | |
---|
223 | SUBROUTINE obs_alt_typ_init |
---|
224 | !!--------------------------------------------------------------------- |
---|
225 | !! |
---|
226 | !! *** ROUTINE obs_alt_typ_init *** |
---|
227 | !! |
---|
228 | !! ** Purpose : Initialize CLS altimeter code tables |
---|
229 | !! |
---|
230 | !! ** Method : Direct initialisation of variables |
---|
231 | !! |
---|
232 | !! ** Action : |
---|
233 | !! |
---|
234 | !! References : CLS |
---|
235 | !1 SSALTO/DUACS User Handbook |
---|
236 | !! (M)SLA and (M)ADT Near-Real Time and |
---|
237 | !! Delayed time products |
---|
238 | !! CLS-DOS-NT-06-034 |
---|
239 | !! 2006 |
---|
240 | !! CLS |
---|
241 | !! 8-10 Rue Hermes |
---|
242 | !! Parc Technologique du Canal |
---|
243 | !! 31526 Ramonville St-Agne |
---|
244 | !! France |
---|
245 | !! |
---|
246 | !! History : |
---|
247 | !! ! : 2007-06 (K. Mogensen) Original code |
---|
248 | !!---------------------------------------------------------------------- |
---|
249 | !! * Modules used |
---|
250 | |
---|
251 | !! * Arguments |
---|
252 | |
---|
253 | !! * Local declarations |
---|
254 | |
---|
255 | calttyp(0) = 'Unknown' |
---|
256 | calttyp(1) = 'ERS-1' |
---|
257 | calttyp(2) = 'ERS-2' |
---|
258 | calttyp(3) = 'Topex/Poseidon' |
---|
259 | calttyp(4) = 'Topex/Poseidon on its new orbit' |
---|
260 | calttyp(5) = 'GFO' |
---|
261 | calttyp(6) = 'Jason-1' |
---|
262 | calttyp(7) = 'Envisat' |
---|
263 | calttyp(8) = 'Jason-2' |
---|
264 | |
---|
265 | END SUBROUTINE obs_alt_typ_init |
---|
266 | |
---|
267 | END MODULE obs_types |
---|