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/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/2011/dev_r2802_LOCEAN10_agrif_lim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_types.F90 @ 2815

Last change on this file since 2815 was 2815, checked in by rblod, 13 years ago

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