[2128] | 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 |
---|
[2358] | 38 | !RBbug useless ? CHARACTER(LEN=4), PUBLIC, DIMENSION(0:ntyp1770) :: cwmotyp1770 |
---|
[2128] | 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 | |
---|
[2287] | 49 | !!---------------------------------------------------------------------- |
---|
| 50 | !! NEMO/OPA 3.3 , NEMO Consortium (2010) |
---|
| 51 | !! $Id$ |
---|
| 52 | !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) |
---|
| 53 | !!---------------------------------------------------------------------- |
---|
| 54 | |
---|
[2128] | 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) = 'XBT' |
---|
| 120 | |
---|
[2358] | 121 | ! IF ( ji < 1000 ) THEN |
---|
| 122 | ! WRITE(cwmotyp1770(ji),'(1X,I3.3)') ji |
---|
| 123 | ! ELSE |
---|
| 124 | ! WRITE(cwmotyp1770(ji),'(I4.4)') ji |
---|
| 125 | ! ENDIF |
---|
[2128] | 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 |
---|