core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
examples/C/bufr_read_scatterometer.c
View File

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

2
examples/F90/bufr_read_scatterometer.f90
View File

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

4032
examples/F90/bufr_read_scatterometer_f.ref
View File

File diff suppressed because it is too large Load Diff

4
examples/python/bufr_read_scatterometer.py
View File

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