ECC-674: Examples: typo in bufr_read_scatterometer.f90

This commit is contained in:
Shahram Najm 2018-04-14 17:09:42 +01:00
parent e643b5cb51
commit b35532d6a3
4 changed files with 2023 additions and 2027 deletions

View File

@ -82,8 +82,7 @@ int main(int argc,char* argv[])
/* Check the size (including all the subsets) */
CODES_CHECK(codes_get_size(h,key_name,&len),0);
if(len != numObs)
{
if(len != numObs) {
printf("inconsistent number of %s values found!\n",key_name);
return 1;
}
@ -96,8 +95,7 @@ int main(int argc,char* argv[])
/* Check the size (including all the subsets) */
CODES_CHECK(codes_get_size(h,key_name,&len),0);
if(len != numObs)
{
if(len != numObs) {
printf("inconsistent number of %s values found!\n",key_name);
return 1;
}
@ -110,8 +108,7 @@ int main(int argc,char* argv[])
/* Check the size (including all the subsets) */
CODES_CHECK(codes_get_size(h,key_name,&len),0);
if(len != numObs)
{
if(len != numObs) {
printf("inconsistent number of %s values found!\n",key_name);
return 1;
}
@ -123,8 +120,7 @@ int main(int argc,char* argv[])
printf("pixel lat lon backscatter \n");
printf("-------------------------------\n");
for(i=0; i < numObs; i++)
{
for(i=0; i < numObs; i++) {
printf("%4d %.3f %.3f %.3f \n",
i+1,lat[i],lon[i],bscatter[i]);
}

View File

@ -58,7 +58,7 @@ real(kind=8), dimension(:), allocatable :: year
call codes_get(ibufr,'latitude',latVal);
! Get longitude (for all the subsets)
call codes_get(ibufr,'latitude',lonVal);
call codes_get(ibufr,'longitude',lonVal);
allocate(year(numObs))
call codes_get(ibufr,'year',year);

File diff suppressed because it is too large Load Diff

View File

@ -10,8 +10,8 @@
#
# Python implementation: bufr_read_scatterometer
#
# Description: how to read data for a given beam from scatterometer BUFR
# messages.
# Description: How to read data for a given beam from scatterometer BUFR
# messages.
#
# Please note that scatterometer data can be encoded in various ways in BUFR.
# Therefore the code below might not work directly for other types of messages