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/dev_1784_OBS/NEMO/OPA_SRC/OBS – NEMO

source: branches/dev_1784_OBS/NEMO/OPA_SRC/OBS/obs_types.F90 @ 2001

Last change on this file since 2001 was 2001, checked in by djlea, 14 years ago

Adding observation operator code
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 = 7
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 :: &
109         & ji
110
111      DO ji = 0, ntyp1770
112
113         cwmonam1770(ji) = 'Not defined'
114         ctypshort(ji) = 'XBT'
115
116         IF ( ji < 1000 ) THEN
117            WRITE(cwmotyp1770(ji),'(1X,I3.3)') ji
118         ELSE
119            WRITE(cwmotyp1770(ji),'(I4.4)') ji
120         ENDIF
121
122      END DO
123
124      cwmonam1770(   1) = 'Sippican T-4'
125      cwmonam1770(   2) = 'Sippican T-4'
126      cwmonam1770(  11) = 'Sippican T-5'
127      cwmonam1770(  21) = 'Sippican Fast Deep'
128      cwmonam1770(  31) = 'Sippican T-6'
129      cwmonam1770(  32) = 'Sippican T-6'
130      cwmonam1770(  41) = 'Sippican T-7'
131      cwmonam1770(  42) = 'Sippican T-7'
132      cwmonam1770(  51) = 'Sippican Deep Blue'
133      cwmonam1770(  52) = 'Sippican Deep Blue'
134      cwmonam1770(  61) = 'Sippican T-10'
135      cwmonam1770(  71) = 'Sippican T-11'
136      cwmonam1770( 201) = 'TSK T-4'
137      cwmonam1770( 202) = 'TSK T-4'
138      cwmonam1770( 211) = 'TSK T-6'
139      cwmonam1770( 212) = 'TSK T-6'
140      cwmonam1770( 221) = 'TSK T-7'
141      cwmonam1770( 222) = 'TSK T-7'
142      cwmonam1770( 231) = 'TSK T-5'
143      cwmonam1770( 241) = 'TSK T-10'
144      cwmonam1770( 251) = 'TSK Deep Blue'
145      cwmonam1770( 252) = 'TSK Deep Blue'
146      cwmonam1770( 261) = 'TSK AXBT '
147      cwmonam1770( 401) = 'Sparton XBT-1'
148      cwmonam1770( 411) = 'Sparton XBT-3'
149      cwmonam1770( 421) = 'Sparton XBT-4'
150      cwmonam1770( 431) = 'Sparton XBT-5'
151      cwmonam1770( 441) = 'Sparton XBT-5DB'
152      cwmonam1770( 451) = 'Sparton XBT-6'
153      cwmonam1770( 461) = 'Sparton XBT-7'
154      cwmonam1770( 462) = 'Sparton XBT-7'
155      cwmonam1770( 471) = 'Sparton XBT-7DB'
156      cwmonam1770( 481) = 'Sparton XBT-10'
157      cwmonam1770( 491) = 'Sparton XBT-20'
158      cwmonam1770( 501) = 'Sparton XBT-20DB'
159      cwmonam1770( 510) = 'Sparton 536 AXBT'
160      cwmonam1770( 700) = 'Sippican XCTD standard'
161      cwmonam1770( 710) = 'Sippican XCTD deep'
162      cwmonam1770( 720) = 'Sippican AXCTD'
163      cwmonam1770( 730) = 'Sippican SXCTD'
164      cwmonam1770( 741) = 'TSK XCTD'
165      cwmonam1770( 742) = 'TSK XCTD-2 '
166      cwmonam1770( 743) = 'TSK XCTD-2F '
167      cwmonam1770( 751) = 'TSK AXCTD '
168      cwmonam1770( 800) = 'Mechanical BT'
169      cwmonam1770( 810) = 'Hydrocast'
170      cwmonam1770( 820) = 'Thermistor Chain'
171      cwmonam1770( 825) = 'Temperature (sonic) and pressure probes'
172      cwmonam1770( 830) = 'CTD'
173      cwmonam1770( 831) = 'CTD-P-ALACE float'
174      cwmonam1770( 840) = 'PROVOR, No conductivity sensor '
175      cwmonam1770( 841) = 'PROVOR, Seabird conductivity sensor '
176      cwmonam1770( 842) = 'PROVOR, FSI conductivity sensor '
177      cwmonam1770( 845) = 'Web Research, No conductivity sensor '
178      cwmonam1770( 846) = 'Web Research, Seabird conductivity sensor '
179      cwmonam1770( 847) = 'Web Research. FSI conductivity sensor'
180      cwmonam1770( 850) = 'SOLO, No conductivity sensor '
181      cwmonam1770( 851) = 'SOLO, Seabird conductivity sensor '
182      cwmonam1770( 852) = 'SOLO, FSI conductivity sensor'
183      cwmonam1770( 855) = 'Profiling float, NINJA, no conductivity sensor'
184      cwmonam1770( 856) = 'Profiling float, NINJA, SBE conductivity sensor'
185      cwmonam1770( 857) = 'Profiling float, NINJA, FSI conductivity sensor'
186      cwmonam1770( 858) = 'Profiling float, NINJA, TSK conductivity sensor'
187      cwmonam1770( 900) = 'Sippican T-12 XBT'
188      cwmonam1770(1023) = 'Missing value'
189
190      DO ji = 853, 854
191         cwmonam1770(ji) = 'Reserved'
192      ENDDO
193
194      DO ji = 859, 899
195         cwmonam1770(ji) = 'Reserved'
196      ENDDO
197
198      DO ji = 901, 999
199         cwmonam1770(ji) = 'Reserved'
200      ENDDO
201
202      DO ji = 1000, 1022
203         cwmonam1770(ji) = 'Reserved'
204      ENDDO
205
206      ctypshort(800) = 'MBT'
207      ctypshort(401) = 'XBT'
208      ctypshort(830) = 'CTD'
209      ctypshort(820) = 'MRB'
210      ctypshort(831) = 'PFL'
211      ctypshort(995) = 'DRB'
212      ctypshort(997) = 'APB'
213      ctypshort(996) = 'UOR'
214      ctypshort(700:799) = 'OSD'
215
216   END SUBROUTINE obs_wmo_init
217
218   SUBROUTINE obs_alt_typ_init
219      !!---------------------------------------------------------------------
220      !!
221      !!                   *** ROUTINE obs_alt_typ_init ***
222      !!
223      !! ** Purpose : Initialize CLS altimeter code tables
224      !!
225      !! ** Method  : Direct initialisation of variables
226      !!
227      !! ** Action  :
228      !!
229      !! References : CLS
230      !1              SSALTO/DUACS User Handbook
231      !!              (M)SLA and (M)ADT Near-Real Time and
232      !!              Delayed time products
233      !!              CLS-DOS-NT-06-034
234      !!              2006
235      !!              CLS
236      !!              8-10 Rue Hermes
237      !!              Parc Technologique du Canal
238      !!              31526 Ramonville St-Agne
239      !!              France
240      !!
241      !! History : 
242      !!      ! :  2007-06 (K. Mogensen) Original code
243      !!----------------------------------------------------------------------
244      !! * Modules used
245     
246      !! * Arguments
247
248      !! * Local declarations
249
250      calttyp(0) = 'Unknown'
251      calttyp(1) = 'ERS-1'
252      calttyp(2) = 'ERS-2'
253      calttyp(3) = 'Topex/Poseidon'
254      calttyp(4) = 'Topex/Poseidon on its new orbit'
255      calttyp(5) = 'GFO'
256      calttyp(6) = 'Jason-1'
257      calttyp(7) = 'Envisat'
258     
259   END SUBROUTINE obs_alt_typ_init
260
261END MODULE obs_types
Note: See TracBrowser for help on using the repository browser.