source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 3 years ago

Remove svn keywords

File size: 9.1 KB
Line 
1MODULE 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/OPA 3.3 , NEMO Consortium (2010)
51   !! $Id$
52   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
53   !!----------------------------------------------------------------------
54
55CONTAINS
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) = 'XBT'
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
267END MODULE obs_types
Note: See TracBrowser for help on using the repository browser.