bufr2tac_buoy.c File Reference

file with the code to parse buoy FM-18 sequences More...

#include "bufr2tac.h"

Include dependency graph for bufr2tac_buoy.c:

Go to the source code of this file.

Functions
int	buoy_YYYYMMDDHHmm_to_JMMYYGGgg (struct buoy_chunks *b)
	Sets YYGG from YYYYMMDDHHmm extended group. More...
int	parse_subset_as_buoy (struct metreport *m, struct bufr2tac_subset_state *s, struct bufr_subset_sequence_data *sq, char *err)

Detailed Description

file with the code to parse buoy FM-18 sequences

Definition in file bufr2tac_buoy.c.

Function Documentation

buoy_YYYYMMDDHHmm_to_JMMYYGGgg()

int buoy_YYYYMMDDHHmm_to_JMMYYGGgg

(

struct buoy_chunks *

b

)

Sets YYGG from YYYYMMDDHHmm extended group.

Parameters

b	pointer to the target struct buoy_chunks

Definition at line 31 of file bufr2tac_buoy.c.

{
  char aux[20];
  time_t t;
  struct tm tim;
 
  if ( strlen ( b->e.YYYY ) &&
       strlen ( b->e.MM ) &&
       strlen ( b->e.DD ) &&
       strlen ( b->e.HH ) &&
       strlen ( b->e.MM ) )
    {
      sprintf ( aux,"%s%s%s%s%s", b->e.YYYY, b->e.MM, b->e.DD, b->e.HH, b->e.mm );
    }
 
  if ( strlen ( aux ) != 12 )
    {
      return 1;
    }
 
  memset ( &tim, 0, sizeof ( struct tm ) );
  strptime ( aux, "%Y%m%d%H%M", &tim );
 
  t = mktime ( &tim );
  gmtime_r ( &t, &tim );
  sprintf ( b->s0.YY, "%02d", tim.tm_mday );
  sprintf ( b->s0.GG, "%02d", tim.tm_hour );
  sprintf ( b->s0.MM, "%02d", (tim.tm_mon + 1) % 100 );
  sprintf ( b->s0.J, "%d", tim.tm_year % 10 );
  sprintf ( b->s0.gg, "%02d", tim.tm_min );
 
  return 0;
}

References report_date_ext::DD, buoy_chunks::e, buoy_sec0::GG, buoy_sec0::gg, report_date_ext::HH, buoy_sec0::J, buoy_sec0::MM, report_date_ext::MM, report_date_ext::mm, buoy_chunks::s0, buoy_sec0::YY, and report_date_ext::YYYY.

Referenced by parse_subset_as_buoy().

Here is the caller graph for this function:

parse_subset_as_buoy()

int parse_subset_as_buoy	(	struct metreport *	m,
		struct bufr2tac_subset_state *	s,
		struct bufr_subset_sequence_data *	sq,
		char *	err
	)

Definition at line 74 of file bufr2tac_buoy.c.

{
  size_t is;
  char aux[32];
  struct buoy_chunks *b;
 
  //
  b = &m->buoy;
 
  // clean data
  bufr2tac_clean_buoy_chunks ( b );
 
  // reject if still not coded type
  if ( strcmp ( s->type_report,"ZZYY" ) )
    {
      sprintf ( err,"bufr2tac: '%s' report still not decoded in this software", s->type_report );
      return 1;
    }
 
  strcpy ( b->s0.MiMi, "ZZ" );
  strcpy ( b->s0.MjMj, "YY" );
 
  b->mask = BUOY_SEC0;
 
  /**** First pass, sequential analysis *****/
  for ( is = 0; is < sq->nd; is++ )
    {
      // check if is a significance qualifier
      if ( sq->sequence[is].desc.x == 8 )
        {
          s->i = is;
          s->a = &sq->sequence[is];
          buoy_parse_x08 ( b, s );
        }
 
      if ( sq->sequence[is].mask & DESCRIPTOR_VALUE_MISSING ||
           s->isq   // case of an significance qualifier
         )
        {
          continue;
        }
 
      s->i = is;
      s->ival = ( int ) sq->sequence[is].val;
      s->val = sq->sequence[is].val;
      s->a = &sq->sequence[is];
      if ( is > 0 )
        {
          s->a1 = &sq->sequence[is - 1];
        }
 
      switch ( sq->sequence[is].desc.x )
        {
 
        case 1: //localization descriptors
          buoy_parse_x01 ( b, s );
          break;
 
        case 2: //Date time descriptors
          buoy_parse_x02 ( b, s );
          break;
 
        case 4: //Date time descriptors
          buoy_parse_x04 ( b, s );
          break;
 
        case 5: //Position
          buoy_parse_x05 ( b, s );
          break;
 
        case 6: // Horizontal Position -2
          buoy_parse_x06 ( b, s );
          break;
 
        case 7: // Vertical Position
          buoy_parse_x07 ( b, s );
          break;
 
        case 10: // Air Pressure descriptors
          buoy_parse_x10 ( b, s );
          break;
 
        case 11: // wind  data
          buoy_parse_x11 ( b, s );
          break;
 
        case 12: //Temperature descriptors
          buoy_parse_x12 ( b, s );
          break;
 
        case 13: // Humidity and precipitation data
          buoy_parse_x13 ( b, s );
          break;
 
        case 14: // Radiation
          buoy_parse_x14 ( b, s );
          break;
 
        case 20: // Cloud data
          buoy_parse_x20 ( b, s );
          break;
 
        case 22: // Oceanographic data
          buoy_parse_x22 ( b, s );
          break;
 
        case 31: // Replicators
          buoy_parse_x31 ( b, s );
          break;
 
 
        case 33: // Quality data
          buoy_parse_x33 ( b, s );
          break;
 
 
        default:
          break;
        }
 
    }
 
  if ( ( ( s->mask & SUBSET_MASK_HAVE_LATITUDE ) == 0 ) ||
       ( ( s->mask & SUBSET_MASK_HAVE_LONGITUDE ) == 0 ) ||
       ( ( s->mask & SUBSET_MASK_HAVE_YEAR ) == 0 ) ||
       ( ( s->mask & SUBSET_MASK_HAVE_MONTH ) == 0 ) ||
       ( ( s->mask & SUBSET_MASK_HAVE_DAY ) == 0 ) ||
       ( ( s->mask & SUBSET_MASK_HAVE_HOUR ) == 0 ) )
    {
      sprintf ( err,"bufr2tac: parse_subset_as_buoy(): lack of mandatory descriptor in sequence" );
      return 1;
    }
 
  // copy WIGOS ID, if any 
  memcpy(&m->g.wid, &m->buoy.wid, sizeof (struct wigos_id) );
  
  /****** Second pass. Global results and consistence analysis ************/
 
  // adjust iw
  if ( b->s0.iw[0] == '/' && b->s1.ff[0] != '/' )
    {
      b->s0.iw[0] = '1';
    }
 
  // fill date fields YYYYMMDDHHmm
  buoy_YYYYMMDDHHmm_to_JMMYYGGgg ( b );
  b->mask |= BUOY_EXT;
 
  // Fill some metreport fields
  if ( s->mask & SUBSET_MASK_HAVE_LATITUDE )
    {
      if ( fabs ( s->lat ) <= 90.0 )
        {
          m->g.lat = s->lat;
        }
      else
        {
          return 1;  // Bad latitude. Fatal error
        }
    }
  if ( s->mask & SUBSET_MASK_HAVE_LONGITUDE )
    {
      if ( fabs ( s->lon ) <= 180.0 )
        {
          m->g.lon = s->lon;
        }
      else
        {
          return 1;  // bad longitude. Fatal error
        }
    }
  if ( s->mask & SUBSET_MASK_HAVE_ALTITUDE )
    {
      m->g.alt = s->alt;
    }
  if ( s->mask & SUBSET_MASK_HAVE_NAME )
    {
      strcpy ( m->g.name, s->name );
    }
  sprintf ( aux,"%s%s%s%s%s", b->e.YYYY, b->e.MM, b->e.DD, b->e.HH, b->e.mm );
  YYYYMMDDHHmm_to_met_datetime ( &m->t, aux );
 
  // Fill some metreport fields
  if ( b->s0.A1[0] && b->s0.bw[0] && b->s0.nbnbnb[0] )
    {
      sprintf ( m->g.index, "%s%s%s", b->s0.A1, b->s0.bw, b->s0.nbnbnb );
    }
 
  // check if set both LaLaLa and LoLoLoLo to set Qc
  if ( ( b->s0.Qc[0] == 0 ) && b->s0.LaLaLaLaLa[0] && b->s0.LoLoLoLoLoLo[0] )
    {
      if ( s->mask & SUBSET_MASK_LATITUDE_SOUTH )
        {
          if ( s->mask & SUBSET_MASK_LONGITUDE_WEST )
            {
              strcpy ( b->s0.Qc, "5" );
            }
          else
            {
              strcpy ( b->s0.Qc, "3" );
            }
        }
      else
        {
          if ( s->mask & SUBSET_MASK_LONGITUDE_WEST )
            {
              strcpy ( b->s0.Qc, "7" );
            }
          else
            {
              strcpy ( b->s0.Qc, "1" );
            }
        }
    }
 
  // check Qx
  if ( b->s2.Qd[0] ==  0 )
    {
      b->s2.Qd[0] = '0';
    }
  if ( b->s3.k2[0] == 0 )
    {
      b->s3.k2[0] = '0';
    }
  if ( b->s1.Qx[0] == 0 && b->s1.Qd[0] )
    {
      b->s1.Qx[0] = '9';
    }
  if ( b->s2.Qx[0] == 0 && b->s2.Qd[0] )
    {
      b->s2.Qx[0] = '9';
    }
 
  if ( b->s3.Qd1[0] ==  0 )
    {
      b->s3.Qd1[0] = '0';
    }
  if ( b->s3.Qd2[0] ==  0 )
    {
      b->s3.Qd2[0] = '0';
    }
 
  if ( b->s3.k3[0] == 0 )
    {
      b->s3.k3[0] = '/';
    }
  if ( b->s3.k6[0] == 0 )
    {
      b->s3.k6[0] = '/';
    }
 
  return 0;
}

References bufr2tac_subset_state::a, bufr2tac_subset_state::a1, buoy_sec0::A1, bufr2tac_subset_state::alt, met_geo::alt, bufr2tac_clean_buoy_chunks(), metreport::buoy, BUOY_EXT, buoy_parse_x01(), buoy_parse_x02(), buoy_parse_x04(), buoy_parse_x05(), buoy_parse_x06(), buoy_parse_x07(), buoy_parse_x08(), buoy_parse_x10(), buoy_parse_x11(), buoy_parse_x12(), buoy_parse_x13(), buoy_parse_x14(), buoy_parse_x20(), buoy_parse_x22(), buoy_parse_x31(), buoy_parse_x33(), BUOY_SEC0, buoy_YYYYMMDDHHmm_to_JMMYYGGgg(), buoy_sec0::bw, report_date_ext::DD, DESCRIPTOR_VALUE_MISSING, buoy_chunks::e, buoy_sec1::ff, metreport::g, report_date_ext::HH, bufr2tac_subset_state::i, met_geo::index, bufr2tac_subset_state::isq, bufr2tac_subset_state::ival, buoy_sec0::iw, buoy_sec3::k2, buoy_sec3::k3, buoy_sec3::k6, buoy_sec0::LaLaLaLaLa, bufr2tac_subset_state::lat, met_geo::lat, buoy_sec0::LoLoLoLoLoLo, bufr2tac_subset_state::lon, met_geo::lon, bufr2tac_subset_state::mask, buoy_chunks::mask, buoy_sec0::MiMi, buoy_sec0::MjMj, report_date_ext::MM, report_date_ext::mm, bufr2tac_subset_state::name, met_geo::name, buoy_sec0::nbnbnb, buoy_sec0::Qc, buoy_sec1::Qd, buoy_sec2::Qd, buoy_sec3::Qd1, buoy_sec3::Qd2, buoy_sec1::Qx, buoy_sec2::Qx, buoy_chunks::s0, buoy_chunks::s1, buoy_chunks::s2, buoy_chunks::s3, SUBSET_MASK_HAVE_ALTITUDE, SUBSET_MASK_HAVE_DAY, SUBSET_MASK_HAVE_HOUR, SUBSET_MASK_HAVE_LATITUDE, SUBSET_MASK_HAVE_LONGITUDE, SUBSET_MASK_HAVE_MONTH, SUBSET_MASK_HAVE_NAME, SUBSET_MASK_HAVE_YEAR, SUBSET_MASK_LATITUDE_SOUTH, SUBSET_MASK_LONGITUDE_WEST, metreport::t, bufr2tac_subset_state::type_report, bufr2tac_subset_state::val, met_geo::wid, buoy_chunks::wid, report_date_ext::YYYY, and YYYYMMDDHHmm_to_met_datetime().

Referenced by parse_subset_sequence().

Here is the call graph for this function:

Here is the caller graph for this function: