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

Fix comments spelling etc

This commit is contained in:
Shahram Najm 2015-11-19 15:37:17 +00:00
parent a70173da8f
commit 5cd554b570
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
examples/F90/bufr_read_tropical_cyclone.f90
View File

@ -10,7 +10,7 @@
!
! FOTRAN 90 Implementation: bufr_read_tropical_cyclone
!
! Description: how to read data for a tropical cyclone BUFR messages.
! Description: how to read data for a tropical cyclone BUFR message.
!
program bufr_read_tropical_cyclone
@ -39,8 +39,8 @@ program bufr_read_tropical_cyclone
call codes_open_file(ifile,'../../data/bufr/tropical_cyclone.bufr','r')
! the first bufr message is loaded from file
! ibufr is the bufr id to be used in subsequent calls
! the first BUFR message is loaded from file.
! ibufr is the BUFR id to be used in subsequent calls
call codes_bufr_new_from_file(ifile,ibufr,iret)
do while (iret/=CODES_END_OF_FILE)
@ -239,8 +239,8 @@ program bufr_read_tropical_cyclone
endif
enddo
! free arrays is very important
! because the behaviour of the codes_get functions is as follows
! deallocating the arrays is very important
! because the behaviour of the codes_get functions is as follows:
! if the array is not allocated then allocate
! if the array is already allocated only copy the values
deallocate(values)
@ -259,10 +259,10 @@ program bufr_read_tropical_cyclone
deallocate(longitudeMaxWind0)
deallocate(windMaxWind0)
! release the bufr message
! release the BUFR message
call codes_release(ibufr)
! load the next bufr message
! load the next BUFR message
call codes_bufr_new_from_file(ifile,ibufr,iret)
count=count+1