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