New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
obs_types.F90 in branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90 @ 2281

Last change on this file since 2281 was 2281, checked in by smasson, 14 years ago

set proper svn properties to all files...
  • Property svn:keywords set to Id
File size: 8.8 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   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
49CONTAINS
50   
51   SUBROUTINE obs_typ_init
52      !!---------------------------------------------------------------------
53      !!
54      !!                   *** ROUTINE obs_wmo_init ***
55      !!
56      !! ** Purpose : Initialize code tables
57      !!
58      !! ** Method  :
59      !!
60      !! ** Action  :
61      !!
62      !! References :
63      !!
64      !! History : 
65      !!      ! :  2007-06 (K. Mogensen) Original code
66      !!----------------------------------------------------------------------
67      !! * Modules used
68     
69      !! * Arguments
70
71      !! * Local declarations
72
73      CALL obs_wmo_init
74
75      CALL obs_alt_typ_init
76
77   END SUBROUTINE obs_typ_init
78
79   SUBROUTINE obs_wmo_init
80      !!---------------------------------------------------------------------
81      !!
82      !!                   *** ROUTINE obs_wmo_init ***
83      !!
84      !! ** Purpose : Initialize WMO code 1770 code tables
85      !!
86      !! ** Method  : Direct initialisation of variables
87      !!
88      !! ** Action  :
89      !!
90      !! References : WORLD  METEOROLOGICAL  ORGANIZATION
91      !!              Manual on Codes
92      !!              International Codes
93      !!              VOLUME I.1 (Annex II to WMO Technical Regulations)
94      !!              Part A -- Alphanumeric Codes
95      !!              1995 edition
96      !!              WMO-No. 306
97      !!              Secretariat of the World Meteorological Organization
98      !!              Geneva, Switzerland
99      !!
100      !! History : 
101      !!      ! :  2007-04 (K. Mogensen) Original code
102      !!----------------------------------------------------------------------
103      !! * Modules used
104     
105      !! * Arguments
106
107      !! * Local declarations
108      INTEGER :: ji
109
110      DO ji = 0, ntyp1770
111
112         cwmonam1770(ji) = 'Not defined'
113         ctypshort(ji) = 'XBT'
114
115         IF ( ji < 1000 ) THEN
116            WRITE(cwmotyp1770(ji),'(1X,I3.3)') ji
117         ELSE
118            WRITE(cwmotyp1770(ji),'(I4.4)') ji
119         ENDIF
120
121      END DO
122
123      cwmonam1770(   1) = 'Sippican T-4'
124      cwmonam1770(   2) = 'Sippican T-4'
125      cwmonam1770(  11) = 'Sippican T-5'
126      cwmonam1770(  21) = 'Sippican Fast Deep'
127      cwmonam1770(  31) = 'Sippican T-6'
128      cwmonam1770(  32) = 'Sippican T-6'
129      cwmonam1770(  41) = 'Sippican T-7'
130      cwmonam1770(  42) = 'Sippican T-7'
131      cwmonam1770(  51) = 'Sippican Deep Blue'
132      cwmonam1770(  52) = 'Sippican Deep Blue'
133      cwmonam1770(  61) = 'Sippican T-10'
134      cwmonam1770(  71) = 'Sippican T-11'
135      cwmonam1770( 201) = 'TSK T-4'
136      cwmonam1770( 202) = 'TSK T-4'
137      cwmonam1770( 211) = 'TSK T-6'
138      cwmonam1770( 212) = 'TSK T-6'
139      cwmonam1770( 221) = 'TSK T-7'
140      cwmonam1770( 222) = 'TSK T-7'
141      cwmonam1770( 231) = 'TSK T-5'
142      cwmonam1770( 241) = 'TSK T-10'
143      cwmonam1770( 251) = 'TSK Deep Blue'
144      cwmonam1770( 252) = 'TSK Deep Blue'
145      cwmonam1770( 261) = 'TSK AXBT '
146      cwmonam1770( 401) = 'Sparton XBT-1'
147      cwmonam1770( 411) = 'Sparton XBT-3'
148      cwmonam1770( 421) = 'Sparton XBT-4'
149      cwmonam1770( 431) = 'Sparton XBT-5'
150      cwmonam1770( 441) = 'Sparton XBT-5DB'
151      cwmonam1770( 451) = 'Sparton XBT-6'
152      cwmonam1770( 461) = 'Sparton XBT-7'
153      cwmonam1770( 462) = 'Sparton XBT-7'
154      cwmonam1770( 471) = 'Sparton XBT-7DB'
155      cwmonam1770( 481) = 'Sparton XBT-10'
156      cwmonam1770( 491) = 'Sparton XBT-20'
157      cwmonam1770( 501) = 'Sparton XBT-20DB'
158      cwmonam1770( 510) = 'Sparton 536 AXBT'
159      cwmonam1770( 700) = 'Sippican XCTD standard'
160      cwmonam1770( 710) = 'Sippican XCTD deep'
161      cwmonam1770( 720) = 'Sippican AXCTD'
162      cwmonam1770( 730) = 'Sippican SXCTD'
163      cwmonam1770( 741) = 'TSK XCTD'
164      cwmonam1770( 742) = 'TSK XCTD-2 '
165      cwmonam1770( 743) = 'TSK XCTD-2F '
166      cwmonam1770( 751) = 'TSK AXCTD '
167      cwmonam1770( 800) = 'Mechanical BT'
168      cwmonam1770( 810) = 'Hydrocast'
169      cwmonam1770( 820) = 'Thermistor Chain'
170      cwmonam1770( 825) = 'Temperature (sonic) and pressure probes'
171      cwmonam1770( 830) = 'CTD'
172      cwmonam1770( 831) = 'CTD-P-ALACE float'
173      cwmonam1770( 840) = 'PROVOR, No conductivity sensor '
174      cwmonam1770( 841) = 'PROVOR, Seabird conductivity sensor '
175      cwmonam1770( 842) = 'PROVOR, FSI conductivity sensor '
176      cwmonam1770( 845) = 'Web Research, No conductivity sensor '
177      cwmonam1770( 846) = 'Web Research, Seabird conductivity sensor '
178      cwmonam1770( 847) = 'Web Research. FSI conductivity sensor'
179      cwmonam1770( 850) = 'SOLO, No conductivity sensor '
180      cwmonam1770( 851) = 'SOLO, Seabird conductivity sensor '
181      cwmonam1770( 852) = 'SOLO, FSI conductivity sensor'
182      cwmonam1770( 855) = 'Profiling float, NINJA, no conductivity sensor'
183      cwmonam1770( 856) = 'Profiling float, NINJA, SBE conductivity sensor'
184      cwmonam1770( 857) = 'Profiling float, NINJA, FSI conductivity sensor'
185      cwmonam1770( 858) = 'Profiling float, NINJA, TSK conductivity sensor'
186      cwmonam1770( 900) = 'Sippican T-12 XBT'
187      cwmonam1770(1023) = 'Missing value'
188
189      DO ji = 853, 854
190         cwmonam1770(ji) = 'Reserved'
191      END DO
192
193      DO ji = 859, 899
194         cwmonam1770(ji) = 'Reserved'
195      END DO
196
197      DO ji = 901, 999
198         cwmonam1770(ji) = 'Reserved'
199      END DO
200
201      DO ji = 1000, 1022
202         cwmonam1770(ji) = 'Reserved'
203      END DO
204
205      ctypshort(800) = 'MBT'
206      ctypshort(401) = 'XBT'
207      ctypshort(830) = 'CTD'
208      ctypshort(820) = 'MRB'
209      ctypshort(831) = 'PFL'
210      ctypshort(995) = 'DRB'
211      ctypshort(997) = 'APB'
212      ctypshort(996) = 'UOR'
213      ctypshort(700:799) = 'OSD'
214
215   END SUBROUTINE obs_wmo_init
216
217   SUBROUTINE obs_alt_typ_init
218      !!---------------------------------------------------------------------
219      !!
220      !!                   *** ROUTINE obs_alt_typ_init ***
221      !!
222      !! ** Purpose : Initialize CLS altimeter code tables
223      !!
224      !! ** Method  : Direct initialisation of variables
225      !!
226      !! ** Action  :
227      !!
228      !! References : CLS
229      !1              SSALTO/DUACS User Handbook
230      !!              (M)SLA and (M)ADT Near-Real Time and
231      !!              Delayed time products
232      !!              CLS-DOS-NT-06-034
233      !!              2006
234      !!              CLS
235      !!              8-10 Rue Hermes
236      !!              Parc Technologique du Canal
237      !!              31526 Ramonville St-Agne
238      !!              France
239      !!
240      !! History : 
241      !!      ! :  2007-06 (K. Mogensen) Original code
242      !!----------------------------------------------------------------------
243      !! * Modules used
244     
245      !! * Arguments
246
247      !! * Local declarations
248
249      calttyp(0) = 'Unknown'
250      calttyp(1) = 'ERS-1'
251      calttyp(2) = 'ERS-2'
252      calttyp(3) = 'Topex/Poseidon'
253      calttyp(4) = 'Topex/Poseidon on its new orbit'
254      calttyp(5) = 'GFO'
255      calttyp(6) = 'Jason-1'
256      calttyp(7) = 'Envisat'
257      calttyp(8) = 'Jason-2'
258
259   END SUBROUTINE obs_alt_typ_init
260
261END MODULE obs_types
Note: See TracBrowser for help on using the repository browser.