bufr2synop 0.24.0
Functions
bufr2tac_x05.c File Reference

decodes the descriptors with X = 05 (Position-1) More...

#include "bufr2tac.h"
Include dependency graph for bufr2tac_x05.c:

Go to the source code of this file.

Functions

char * grad_to_D (char *D, double grad)
 Converts true direction in grads to D (code table 0700) More...
 
int syn_parse_x05 (struct synop_chunks *syn, struct bufr2tac_subset_state *s)
 Parse a expanded descriptor with X = 05. More...
 
int buoy_parse_x05 (struct buoy_chunks *b, struct bufr2tac_subset_state *s)
 Parse a expanded descriptor with X = 05. More...
 
int climat_parse_x05 (struct climat_chunks *c, struct bufr2tac_subset_state *s)
 Parse a expanded descriptor with X = 05. More...
 
int temp_parse_x05 (struct temp_chunks *t, struct bufr2tac_subset_state *s)
 

Detailed Description

decodes the descriptors with X = 05 (Position-1)

Definition in file bufr2tac_x05.c.

Function Documentation

◆ buoy_parse_x05()

int buoy_parse_x05 ( struct buoy_chunks *  b,
struct bufr2tac_subset_state *  s 
)

Parse a expanded descriptor with X = 05.

Parameters
bpointer to a struct buoy_chunks where to set the results
spointer to a struct bufr2tac_subset_state where is stored needed information in sequential analysis

It returns 0 if success, 1 if problems when processing. If a descriptor is not processed returns 0 anyway

Definition at line 134 of file bufr2tac_x05.c.

135{
136 int ia;
137
138 if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
139 return 0;
140
141 switch ( s->a->desc.y )
142 {
143 case 1: // 0 05 001 . Latitude (High accuracy)
144 case 2: // 0 05 002 . Latitude (Coarse accuracy)
145 if ( s->val < 0.0 )
146 s->mask |= SUBSET_MASK_LATITUDE_SOUTH; // Sign for latitude
147 s->mask |= SUBSET_MASK_HAVE_LATITUDE;
148 ia = ( int ) ( fabs ( s->val ) * 1000.0 + 0.5 );
149 sprintf ( b->s0.LaLaLaLaLa, "%05d",ia );
150 s->lat = s->val;
151 break;
152
153 default:
154 if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 )
155 bufr2tac_set_error ( s, 0, "buoy_parse_x05()", "Descriptor not parsed" );
156 break;
157 }
158
159 return 0;
160}
BUFR2TAC_DEBUG_LEVEL
int BUFR2TAC_DEBUG_LEVEL
Definition: bufr2tac.c:31
bufr2tac_set_error
int bufr2tac_set_error(struct bufr2tac_subset_state *s, int severity, char *origin, char *explanation)
Definition: bufr2tac_error.c:59
SUBSET_MASK_LATITUDE_SOUTH
#define SUBSET_MASK_LATITUDE_SOUTH
Bit mask to mark a struct bufr_subset_sequence_data with south latitude.
Definition: bufr2tac.h:74
SUBSET_MASK_HAVE_LATITUDE
#define SUBSET_MASK_HAVE_LATITUDE
Bit mask to mark a struct bufr_subset_sequence_data having latitude.
Definition: bufr2tac.h:110
DESCRIPTOR_VALUE_MISSING
#define DESCRIPTOR_VALUE_MISSING
Bit mask for a missing value in a struct bufr_atom_data.
Definition: bufrdeco.h:140
bufr2tac_subset_state::a
struct bufr_atom_data * a
Definition: bufr2tac.h:249
bufr2tac_subset_state::mask
int mask
Definition: bufr2tac.h:282
bufr2tac_subset_state::val
double val
Definition: bufr2tac.h:255
bufr2tac_subset_state::lat
double lat
Definition: bufr2tac.h:268
bufr_atom_data::mask
uint32_t mask
Definition: bufrdeco.h:437
bufr_atom_data::desc
struct bufr_descriptor desc
Definition: bufrdeco.h:436
bufr_descriptor::y
uint8_t y
Definition: bufrdeco.h:412
buoy_chunks::s0
struct buoy_sec0 s0
Definition: metbuoy.h:201
buoy_sec0::LaLaLaLaLa
char LaLaLaLaLa[8]
Definition: metbuoy.h:79

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, buoy_sec0::LaLaLaLaLa, bufr2tac_subset_state::lat, bufr_atom_data::mask, bufr2tac_subset_state::mask, buoy_chunks::s0, SUBSET_MASK_HAVE_LATITUDE, SUBSET_MASK_LATITUDE_SOUTH, bufr2tac_subset_state::val, and bufr_descriptor::y.

Referenced by parse_subset_as_buoy().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ climat_parse_x05()

int climat_parse_x05 ( struct climat_chunks *  c,
struct bufr2tac_subset_state *  s 
)

Parse a expanded descriptor with X = 05.

Parameters
cpointer to a struct climat_chunks where to set the results
spointer to a struct bufr2tac_subset_state where is stored needed information in sequential analysis

It returns 0 if success, 1 if problems when processing. If a descriptor is not processed returns 0 anyway

Definition at line 170 of file bufr2tac_x05.c.

171{
172 if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
173 return 0;
174
175 // this is to avoid warning
176 if ( c == NULL )
177 return 1;
178
179 switch ( s->a->desc.y )
180 {
181 case 1: // 0 05 001 . Latitude (High accuracy)
182 case 2: // 0 05 002 . Latitude (Coarse accuracy)
183 if ( s->val < 0.0 )
184 s->mask |= SUBSET_MASK_LATITUDE_SOUTH; // Sign for latitude
185 s->mask |= SUBSET_MASK_HAVE_LATITUDE;
186 s->lat = s->val;
187 break;
188 default:
189 if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 )
190 bufr2tac_set_error ( s, 0, "climat_parse_x05()", "Descriptor not parsed" );
191 break;
192 }
193 return 0;
194}

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, bufr2tac_subset_state::lat, bufr_atom_data::mask, bufr2tac_subset_state::mask, SUBSET_MASK_HAVE_LATITUDE, SUBSET_MASK_LATITUDE_SOUTH, bufr2tac_subset_state::val, and bufr_descriptor::y.

Referenced by parse_subset_as_climat().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ grad_to_D()

char * grad_to_D ( char *  D,
double  grad 
)

Converts true direction in grads to D (code table 0700)

Parameters
gradthe true direction (degrees)
Dthe resulting code

Definition at line 32 of file bufr2tac_x05.c.

33{
34 if ( grad >= 22.5 && grad < 67.5 )
35 strcpy ( D, "1" );
36 else if ( grad >= 67.5 && grad < 112.5 )
37 strcpy ( D, "2" );
38 else if ( grad >= 112.5 && grad < 157.5 )
39 strcpy ( D, "3" );
40 else if ( grad >= 157.5 && grad < 202.5 )
41 strcpy ( D, "4" );
42 else if ( grad >= 202.5 && grad < 247.5 )
43 strcpy ( D, "5" );
44 else if ( grad >= 247.5 && grad < 292.5 )
45 strcpy ( D, "6" );
46 else if ( grad >= 292.5 && grad < 337.5 )
47 strcpy ( D, "7" );
48 else if ( ( grad >= 337.5 && grad <= 360.0 ) ||
49 ( grad >0.0 && grad < 22.5 ) )
50 strcpy ( D, "8" );
51 else if ( grad == 0.0 )
52 strcpy ( D, "0" );
53 else
54 strcpy ( D, "9" );
55 return D;
56}

Referenced by syn_parse_x05(), and syn_parse_x20().

Here is the caller graph for this function:

◆ syn_parse_x05()

int syn_parse_x05 ( struct synop_chunks *  syn,
struct bufr2tac_subset_state *  s 
)

Parse a expanded descriptor with X = 05.

Parameters
synpointer to a struct synop_chunks where to set the results
spointer to a struct bufr2tac_subset_state where is stored needed information in sequential analysis

It returns 0 if success, 1 if problems when processing. If a descriptor is not processed returns 0 anyway

Definition at line 66 of file bufr2tac_x05.c.

67{
68 int ia;
69
70 if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
71 return 0;
72
73 switch ( s->a->desc.y )
74 {
75 case 1: // 0 05 001 . Latitude (High accuracy)
76 case 2: // 0 05 002 . Latitude (Coarse accuracy)
77 if ( s->val < 0.0 )
78 s->mask |= SUBSET_MASK_LATITUDE_SOUTH; // Sign for latitude
79 s->mask |= SUBSET_MASK_HAVE_LATITUDE;
80 ia = ( int ) ( fabs ( s->val ) * 10.0 + 0.5 );
81 if (ia > 999 || ia < 0)
82 return 1;
83 sprintf ( syn->s0.LaLaLa, "%03d", ia );
84 syn->s0.Ula[0] = syn->s0.LaLaLa[1];
85 s->lat = s->val;
86 break;
87
88 case 21: // 0 05 021 . Bearing or azimut
89 grad_to_D ( syn->s3.Da, s->val );
90 syn->mask |= SYNOP_SEC3;
91 break;
92 default:
93 if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 )
94 bufr2tac_set_error ( s, 0, "syn_parse_x05()", "Descriptor not parsed" );
95 break;
96 }
97
98 // check if set both LaLaLa and LoLoLoLo to set Qc
99 if ( ( syn->s0.Qc[0] == 0 ) && syn->s0.LaLaLa[0] && syn->s0.LoLoLoLo[0] )
100 {
101 if ( s->mask & SUBSET_MASK_LATITUDE_SOUTH )
102 {
103 if ( s->mask & SUBSET_MASK_LONGITUDE_WEST )
104 strcpy ( syn->s0.Qc, "5" );
105 else
106 strcpy ( syn->s0.Qc, "3" );
107 }
108 else
109 {
110 if ( s->mask & SUBSET_MASK_LONGITUDE_WEST )
111 strcpy ( syn->s0.Qc, "7" );
112 else
113 strcpy ( syn->s0.Qc, "1" );
114 }
115 }
116
117 // check about Mardsen square
118 if ( ( syn->s0.MMM[0] == 0 ) && syn->s0.LaLaLa[0] && syn->s0.LoLoLoLo[0] )
119 {
120 latlon_to_MMM ( syn->s0.MMM, s->lat, s->lon ); // compute it
121 }
122
123 return 0;
124}
SUBSET_MASK_LONGITUDE_WEST
#define SUBSET_MASK_LONGITUDE_WEST
Bit mask to mark a struct bufr_subset_sequence_data with west longitude.
Definition: bufr2tac.h:80
latlon_to_MMM
char * latlon_to_MMM(char *target, double lat, double lon)
convert latitude and longitude to a MMM string
Definition: bufr2tac_x06.c:34
grad_to_D
char * grad_to_D(char *D, double grad)
Converts true direction in grads to D (code table 0700)
Definition: bufr2tac_x05.c:32
SYNOP_SEC3
#define SYNOP_SEC3
mask bit meaning section 3 or synop is solicited to or parsed with success
Definition: metsynop.h:49
bufr2tac_subset_state::lon
double lon
Definition: bufr2tac.h:269
synop_chunks::s3
struct synop_sec3 s3
Definition: metsynop.h:300
synop_chunks::mask
int mask
Definition: metsynop.h:294
synop_chunks::s0
struct synop_sec0 s0
Definition: metsynop.h:297
synop_sec0::LaLaLa
char LaLaLa[4]
Definition: metsynop.h:105
synop_sec0::Qc
char Qc[2]
Definition: metsynop.h:106
synop_sec0::LoLoLoLo
char LoLoLoLo[6]
Definition: metsynop.h:107
synop_sec0::Ula
char Ula[2]
Definition: metsynop.h:109
synop_sec0::MMM
char MMM[4]
Definition: metsynop.h:108
synop_sec3::Da
char Da[2]
Definition: metsynop.h:251

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), synop_sec3::Da, bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, grad_to_D(), synop_sec0::LaLaLa, bufr2tac_subset_state::lat, latlon_to_MMM(), synop_sec0::LoLoLoLo, bufr2tac_subset_state::lon, bufr_atom_data::mask, bufr2tac_subset_state::mask, synop_chunks::mask, synop_sec0::MMM, synop_sec0::Qc, synop_chunks::s0, synop_chunks::s3, SUBSET_MASK_HAVE_LATITUDE, SUBSET_MASK_LATITUDE_SOUTH, SUBSET_MASK_LONGITUDE_WEST, SYNOP_SEC3, synop_sec0::Ula, bufr2tac_subset_state::val, and bufr_descriptor::y.

Referenced by parse_subset_as_synop().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ temp_parse_x05()

int temp_parse_x05 ( struct temp_chunks *  t,
struct bufr2tac_subset_state *  s 
)

Definition at line 204 of file bufr2tac_x05.c.

205{
206 int ia;
207
208 if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
209 return 0;
210
211 // this is to avoid warning
212 if ( t == NULL )
213 return 1;
214
215 switch ( s->a->desc.y )
216 {
217 case 1: // 0 05 001 . Latitude (High accuracy)
218 case 2: // 0 05 002 . Latitude (Coarse accuracy)
219 if ( s->val < 0.0 )
220 s->mask |= SUBSET_MASK_LATITUDE_SOUTH; // Sign for latitude
221 s->mask |= SUBSET_MASK_HAVE_LATITUDE;
222 s->lat = s->val;
223 ia = ( int ) ( fabs ( s->val ) * 10.0 + 0.5 );
224 sprintf ( t->a.s1.LaLaLa, "%03d",ia );
225 sprintf ( t->b.s1.LaLaLa, "%03d",ia );
226 sprintf ( t->c.s1.LaLaLa, "%03d",ia );
227 sprintf ( t->d.s1.LaLaLa, "%03d",ia );
228 t->a.s1.Ula[0] = t->a.s1.LaLaLa[1];
229 t->b.s1.Ula[0] = t->b.s1.LaLaLa[1];
230 t->c.s1.Ula[0] = t->c.s1.LaLaLa[1];
231 t->d.s1.Ula[0] = t->d.s1.LaLaLa[1];
232
233 // check if set both LaLaLa and LoLoLoLo to set Qc
234 if ( ( t->a.s1.Qc[0] == 0 ) && t->a.s1.LaLaLa[0] && t->a.s1.LoLoLoLo[0] )
235 {
236 if ( s->mask & SUBSET_MASK_LATITUDE_SOUTH )
237 {
238 if ( s->mask & SUBSET_MASK_LONGITUDE_WEST )
239 strcpy ( t->a.s1.Qc, "5" );
240 else
241 strcpy ( t->a.s1.Qc, "3" );
242 }
243 else
244 {
245 if ( s->mask & SUBSET_MASK_LONGITUDE_WEST )
246 strcpy ( t->a.s1.Qc, "7" );
247 else
248 strcpy ( t->a.s1.Qc, "1" );
249 }
250 strcpy ( t->b.s1.Qc, t->a.s1.Qc );
251 strcpy ( t->c.s1.Qc, t->a.s1.Qc );
252 strcpy ( t->d.s1.Qc, t->a.s1.Qc );
253 }
254
255 // check if about MMM
256 if ( ( t->a.s1.MMM[0] == 0 ) && t->a.s1.LaLaLa[0] && t->a.s1.LoLoLoLo[0] )
257 {
258 latlon_to_MMM ( t->a.s1.MMM, s->lat, s->lon );
259 strcpy ( t->b.s1.MMM, t->a.s1.MMM );
260 strcpy ( t->c.s1.MMM, t->a.s1.MMM );
261 strcpy ( t->d.s1.MMM, t->a.s1.MMM );
262 }
263 break;
264
265 case 15: // 0 05 015. Latitude displacement since launch site (high accuracy)
266 if ( s->rep > 0 && s->r->n > 0 )
267 {
268 s->r->raw[s->r->n - 1].dlat = s->val;
269 }
270 else if ( s->w->n > 0 )
271 {
272 s->w->raw[s->w->n - 1].dlat = s->val;
273 }
274 break;
275
276 default:
277 if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 )
278 bufr2tac_set_error ( s, 0, "temp_parse_x05()", "Descriptor not parsed" );
279 break;
280 }
281
282 return 0;
283}
bufr2tac_subset_state::w
struct temp_raw_wind_shear_data * w
Definition: bufr2tac.h:286
bufr2tac_subset_state::r
struct temp_raw_data * r
Definition: bufr2tac.h:285
bufr2tac_subset_state::rep
int rep
Definition: bufr2tac.h:252
temp_a::s1
struct temp_acd_sec1 s1
Definition: mettemp.h:455
temp_acd_sec1::LoLoLoLo
char LoLoLoLo[6]
Definition: mettemp.h:323
temp_acd_sec1::MMM
char MMM[4]
Definition: mettemp.h:324
temp_acd_sec1::LaLaLa
char LaLaLa[4]
Definition: mettemp.h:321
temp_acd_sec1::Qc
char Qc[2]
Definition: mettemp.h:322
temp_acd_sec1::Ula
char Ula[2]
Definition: mettemp.h:325
temp_b_sec1::Qc
char Qc[2]
Definition: mettemp.h:349
temp_b_sec1::MMM
char MMM[4]
Definition: mettemp.h:351
temp_b_sec1::LaLaLa
char LaLaLa[4]
Definition: mettemp.h:348
temp_b_sec1::Ula
char Ula[2]
Definition: mettemp.h:352
temp_b::s1
struct temp_b_sec1 s1
Definition: mettemp.h:470
temp_c::s1
struct temp_acd_sec1 s1
Definition: mettemp.h:485
temp_chunks::c
struct temp_c c
Definition: mettemp.h:517
temp_chunks::d
struct temp_d d
Definition: mettemp.h:518
temp_chunks::b
struct temp_b b
Definition: mettemp.h:516
temp_chunks::a
struct temp_a a
Definition: mettemp.h:515
temp_d::s1
struct temp_acd_sec1 s1
Definition: mettemp.h:500
temp_raw_data::raw
struct temp_raw_point_data raw[TEMP_NMAX_POINTS *4]
Definition: mettemp.h:215
temp_raw_data::n
size_t n
Definition: mettemp.h:214
temp_raw_point_data::dlat
double dlat
Definition: mettemp.h:200
temp_raw_wind_shear_data::raw
struct temp_raw_wind_shear_point raw[TEMP_NMAX_POINTS]
Definition: mettemp.h:240
temp_raw_wind_shear_data::n
size_t n
Definition: mettemp.h:239
temp_raw_wind_shear_point::dlat
double dlat
Definition: mettemp.h:227

References bufr2tac_subset_state::a, temp_chunks::a, temp_chunks::b, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), temp_chunks::c, temp_chunks::d, bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, temp_raw_point_data::dlat, temp_raw_wind_shear_point::dlat, temp_acd_sec1::LaLaLa, temp_b_sec1::LaLaLa, bufr2tac_subset_state::lat, latlon_to_MMM(), temp_acd_sec1::LoLoLoLo, bufr2tac_subset_state::lon, bufr_atom_data::mask, bufr2tac_subset_state::mask, temp_acd_sec1::MMM, temp_b_sec1::MMM, temp_raw_data::n, temp_raw_wind_shear_data::n, temp_acd_sec1::Qc, temp_b_sec1::Qc, bufr2tac_subset_state::r, temp_raw_data::raw, temp_raw_wind_shear_data::raw, bufr2tac_subset_state::rep, temp_a::s1, temp_b::s1, temp_c::s1, temp_d::s1, SUBSET_MASK_HAVE_LATITUDE, SUBSET_MASK_LATITUDE_SOUTH, SUBSET_MASK_LONGITUDE_WEST, temp_acd_sec1::Ula, temp_b_sec1::Ula, bufr2tac_subset_state::val, bufr2tac_subset_state::w, and bufr_descriptor::y.

Referenced by parse_subset_as_temp().

Here is the call graph for this function:
Here is the caller graph for this function:
Generated by doxygen 1.9.5