bufr2tac_x08.c File Reference

decodes the descriptors with X = 08 (Significance Qualifiers) More...

#include "bufr2tac.h"

Include dependency graph for bufr2tac_x08.c:

Go to the source code of this file.

Functions
int	syn_parse_x08 (struct synop_chunks *syn, struct bufr2tac_subset_state *s)
	Parse a expanded descriptor with X = 08. More...
int	buoy_parse_x08 (struct buoy_chunks *b, struct bufr2tac_subset_state *s)
	Parse a expanded descriptor with X = 08. More...
int	climat_parse_x08 (struct climat_chunks *c, struct bufr2tac_subset_state *s)
	Parse a expanded descriptor with X = 08. More...
int	temp_parse_x08 (struct temp_chunks *t, struct bufr2tac_subset_state *s)
	Parse a expanded descriptor with X = 08. More...

Detailed Description

decodes the descriptors with X = 08 (Significance Qualifiers)

As there is no significance information in synop we use this descriptors as off/on interruptor.

Definition in file bufr2tac_x08.c.

Function Documentation

buoy_parse_x08()

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

Parse a expanded descriptor with X = 08.

Parameters

b	pointer to a struct buoy_chunks where to set the results
s	pointer 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 121 of file bufr2tac_x08.c.

{
  if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
    {
      return 0;
    }
 
  if ( b == NULL )
    {
      return 1;
    }
 
  switch ( s->a->desc.y )
    {
    case 22:  // 0 08 022 . Total number
    case 23:  // 0 08 023 . First-order statistics
    case 24:  // 0 08 024 . Difference statistics
      if ( s->isq )
        {
          s->isq = 0;
        }
      else
        {
          s->isq = 1;
        }
      break;
 
    default:
      if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 ) 
        bufr2tac_set_error ( s, 0, "buoy_parse_x08()", "Descriptor not parsed" );
      break;
    }
  return 0;
}

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, bufr2tac_subset_state::isq, bufr_atom_data::mask, 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_x08()

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

Parse a expanded descriptor with X = 08.

Parameters

c	pointer to a struct climat_chunks where to set the results
s	pointer 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 164 of file bufr2tac_x08.c.

{
  char caux[16];
  
  if ( c == NULL )
    {
      return 1;
    }
 
  switch ( s->a->desc.y )
    {
    case 20: // 0 08 020 . Total number of missing entities (days)
      if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
        {
          return 0;
        }
      if ( s->is_normal == 0 )
        {
          switch ( s->isq_val )
            {
            // days of missing data
            case 1: // pressure
              sprintf ( c->s1.mpmp, "%02d", s->ival );
              c->mask |= CLIMAT_SEC1;
              break;
            case 2: // temperature
              sprintf ( c->s1.mtmt, "%02d", s->ival );
              c->mask |= CLIMAT_SEC1;
              break;
            case 4: // vapour pressure
              sprintf ( c->s1.meme, "%02d", s->ival );
              c->mask |= CLIMAT_SEC1;
              break;
            case 5: // precipitation
              sprintf ( c->s1.mrmr, "%02d", s->ival );
              c->mask |= CLIMAT_SEC1;
              break;
            case 6: // sunshine duration
              sprintf ( c->s1.msms, "%02d", s->ival );
              c->mask |= CLIMAT_SEC1;
              break;
            case 7: // Maximum temperature
              if ( s->ival < 10 )
                {
                  sprintf ( caux, "%d", s->ival );
                  c->s1.mtx[0] = caux[0];
                  c->s1.mtx[1] = 0;
                }
              else
                {
                  c->s1.mtx[0] = '9';
                }
              c->mask |= CLIMAT_SEC1;
              break;
            case 8: // Minimum temperature
              if ( s->ival < 10 )
                {
                  sprintf ( caux, "%d", s->ival );
                  c->s1.mtn[0] = caux[0];
                  c->s1.mtn[1] = 0;
                }
              else
                {
                  c->s1.mtn[0] = '9';
                }
              c->mask |= CLIMAT_SEC1;
              break;
            default:
              break;
            }
        }
      else
        {
          switch ( s->isq_val )
            {
            // years of missing data
            case 1: // pressure
              sprintf ( c->s2.ypyp, "%02d", s->ival );
              c->mask |= CLIMAT_SEC2;
              break;
            case 2: // temperature
              sprintf ( c->s2.ytyt, "%02d", s->ival );
              c->mask |= CLIMAT_SEC2;
              break;
            case 3: // extreme temperature
              sprintf ( c->s2.ytxytx, "%02d", s->ival );
              c->mask |= CLIMAT_SEC2;
              break;
            case 4: // vapour pressure
              sprintf ( c->s2.yeye, "%02d", s->ival );
              c->mask |= CLIMAT_SEC2;
              break;
            case 5: // precipitation
              sprintf ( c->s2.yryr, "%02d", s->ival );
              c->mask |= CLIMAT_SEC2;
              break;
            case 6: // sunshine duration
              sprintf ( c->s2.ysys, "%02d", s->ival );
              c->mask |= CLIMAT_SEC2;
              break;
            default:
              break;
            }
        }
      break;
 
    case 22:
      if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
        {
          return 0;
        }
      switch ( s->isq_val )
        {
        case 0:
          sprintf ( c->s3.f10, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 1:
          sprintf ( c->s3.f20, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 2:
          sprintf ( c->s3.f30, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 3:
          sprintf ( c->s3.Tx0, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 4:
          sprintf ( c->s3.T25, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 5:
          sprintf ( c->s3.T30, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 6:
          sprintf ( c->s3.T35, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 7:
          sprintf ( c->s3.T40, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 8:
          sprintf ( c->s3.Tn0, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 10:
          sprintf ( c->s3.R01, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 11:
          sprintf ( c->s3.R05, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 12:
          sprintf ( c->s3.R10, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 13:
          sprintf ( c->s3.R50, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 14:
          sprintf ( c->s3.R100, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 15:
          sprintf ( c->s3.R150, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 16:
          sprintf ( c->s3.s00, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 17:
          sprintf ( c->s3.s01, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 18:
          sprintf ( c->s3.s10, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 19:
          sprintf ( c->s3.s50, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 20:
          sprintf ( c->s3.V1, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 21:
          sprintf ( c->s3.V2, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 22:
          sprintf ( c->s3.V3, "%02d", s->ival );
          c->mask |= CLIMAT_SEC3;
          break;
        case 23:
          sprintf ( c->s4.Dgr, "%02d", s->ival );
          c->mask |= CLIMAT_SEC4;
          break;
        case 24:
          sprintf ( c->s4.Dts, "%02d", s->ival );
          c->mask |= CLIMAT_SEC4;
          break;
        default:
          break;
        }
      break;
    
    case 23: // 0 08 023 . First-order statistics.
      if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
        {
          s->isq = 0;
          s->isq_val = 0;
        }
      else
        {
          s->isq = 1;
          s->isq_val = s->ival;
        }
      break;
 
    case 50: // 0 08 050 . Qualifier for number of missing values in calculation of statistic
    case 52: // 0 08 052 . Conditions for which number of days of occurrence follows
    case 53: // 0 08 053 . Day of occurrence qualifier (= 0; on 1 day only) (= 1; on 2 or more days)
      if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
        {
          s->isq = 0;
          s->isq_val = -1;
          return 0;
        }
      s->isq = 1;
      s->isq_val = s->ival;
      break;
 
    default:
      if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 ) 
        bufr2tac_set_error ( s, 0, "climat_parse_x08()", "Descriptor not parsed" );
      break;
    }
 
  return 0;
}

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), CLIMAT_SEC1, CLIMAT_SEC2, CLIMAT_SEC3, CLIMAT_SEC4, bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, climat_sec4::Dgr, climat_sec4::Dts, climat_sec3::f10, climat_sec3::f20, climat_sec3::f30, bufr2tac_subset_state::is_normal, bufr2tac_subset_state::isq, bufr2tac_subset_state::isq_val, bufr2tac_subset_state::ival, bufr_atom_data::mask, climat_chunks::mask, climat_sec1::meme, climat_sec1::mpmp, climat_sec1::mrmr, climat_sec1::msms, climat_sec1::mtmt, climat_sec1::mtn, climat_sec1::mtx, climat_sec3::R01, climat_sec3::R05, climat_sec3::R10, climat_sec3::R100, climat_sec3::R150, climat_sec3::R50, climat_sec3::s00, climat_sec3::s01, climat_chunks::s1, climat_sec3::s10, climat_chunks::s2, climat_chunks::s3, climat_chunks::s4, climat_sec3::s50, climat_sec3::T25, climat_sec3::T30, climat_sec3::T35, climat_sec3::T40, climat_sec3::Tn0, climat_sec3::Tx0, climat_sec3::V1, climat_sec3::V2, climat_sec3::V3, bufr_descriptor::y, climat_sec2::yeye, climat_sec2::ypyp, climat_sec2::yryr, climat_sec2::ysys, climat_sec2::ytxytx, and climat_sec2::ytyt.

Referenced by parse_subset_as_climat().

Here is the call graph for this function:

Here is the caller graph for this function:

syn_parse_x08()

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

Parse a expanded descriptor with X = 08.

Parameters

syn	pointer to a struct synop_chunks where to set the results
s	pointer 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 37 of file bufr2tac_x08.c.

{
  if ( syn == NULL )
    {
      return 1;
    }
 
  switch ( s->a->desc.y )
    {
    case 2: // 0 08 002 . Vertical significance (surface observations)
      if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
        {
          s->clayer = 0; // clean vertical significance;
          return 0;
        }
 
      if ( s->ival == 21 || s->ival == 1 )
        {
          s->clayer = 1;  // first cloud layer or first no CB layer
        }
      else if ( s->ival == 22 || s->ival == 2 )
        {
          s->clayer = 2;  // second cloud layer or second no CB layer
        }
      else if ( s->ival == 23 || s->ival == 3 )
        {
          s->clayer = 3;  // third cloud layer or third no CB layer
        }
      else if ( s->ival == 24 || s->ival == 4 )
        {
          s->clayer = 4;  // fourth cloud layer or CB layer
        }
      else if ( s->ival == 10 )
        {
          s->clayer = -1; // base of cloud layer below level station and top over level station
        }
      else if ( s->ival == 11 )
        {
          s->clayer = -2; // base and top of cloud layer below level station
        }
      else if ( s->ival <= 9 && s->ival >= 7 )
        {
          s->clayer = s->ival;
        }
      else if ( s->ival == 5 || s->ival == 62 )
        {
          // 5 should be used for N = 9 and 62 for N = 0
          s->clayer = s->ival;
        }
      break;
 
    case 22:  // 0 08 022 . Total number
    case 23:  // 0 08 023 . First-order statistics
    case 24:  // 0 08 024 . Difference statistics
      if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
        {
          return 0;
        }
      if ( s->isq )
        {
          s->isq = 0;
        }
      else
        {
          s->isq = 1;
        }
      break;
 
    default:
      if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 ) 
        bufr2tac_set_error ( s, 0, "syn_parse_x08()", "Descriptor not parsed" );
      break;
    }
  return 0;
}

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), bufr2tac_subset_state::clayer, bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, bufr2tac_subset_state::isq, bufr2tac_subset_state::ival, bufr_atom_data::mask, 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_x08()

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

Parse a expanded descriptor with X = 08.

Parameters

t	pointer to a struct temp_chunks where to set the results
s	pointer 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 421 of file bufr2tac_x08.c.

{
  if ( s->a->mask & DESCRIPTOR_VALUE_MISSING )
    {
      return 0;
    }
 
  if ( t == NULL )
    {
      return 1;
    }
 
  switch ( s->a->desc.y )
    {
    case 2: // 0 08 002.
      // this is to mark of the begining or end of cloud surface data
      if ( s->isq == 0 )
        {
          s->isq = 1;
        }
      else
        {
          s->isq = 0;
        }
      break;
 
    case 21: // 0 08 021. Time significance
      if ( s->ival != 18 )
        {
          return 1;  // it should be 18 (launch date/time)
        }
      break;
 
    case 42: // 0 08 042. Extended vertical sounding significance
      if ( s->rep > 0 && s->r->n > 0 )
        {
          s->r->raw[s->r->n - 1].flags = s->ival;
        }
      else if ( s->w->n > 0 )
        {
          // wind shear case
          s->w->raw[s->w->n - 1].flags = s->ival;
        }
      break;
 
    default:
      if ( BUFR2TAC_DEBUG_LEVEL > 1 && (s->a->mask & DESCRIPTOR_VALUE_MISSING) == 0 ) 
        bufr2tac_set_error ( s, 0, "temp_parse_x08()", "Descriptor not parsed" );
      break;
    }
  return 0;
}

References bufr2tac_subset_state::a, BUFR2TAC_DEBUG_LEVEL, bufr2tac_set_error(), bufr_atom_data::desc, DESCRIPTOR_VALUE_MISSING, temp_raw_point_data::flags, temp_raw_wind_shear_point::flags, bufr2tac_subset_state::isq, bufr2tac_subset_state::ival, bufr_atom_data::mask, temp_raw_data::n, temp_raw_wind_shear_data::n, bufr2tac_subset_state::r, temp_raw_data::raw, temp_raw_wind_shear_data::raw, bufr2tac_subset_state::rep, 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: