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

Examples: Fix memory leaks and clean up comments

This commit is contained in:
Shahram Najm 2021-04-09 13:06:32 +01:00
parent fd549250dc
commit 539932f03d
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
examples/F90/bufr_read_tempf.f90
View File

@ -17,7 +17,7 @@
! below might not work directly for other types of TEMP messages than the one used in the ! below might not work directly for other types of TEMP messages than the one used in the
! example. It is advised to use bufr_dump first to understand the structure of these messages. ! example. It is advised to use bufr_dump first to understand the structure of these messages.
! !
program bufr_read_temp program bufr_read_tempf
use eccodes use eccodes
implicit none implicit none
integer :: ifile integer :: ifile
@ -44,11 +44,11 @@ program bufr_read_temp
call codes_open_file(ifile, '../../data/bufr/PraticaTemp.bufr', 'r') call codes_open_file(ifile, '../../data/bufr/PraticaTemp.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) ! loop through all messages in the file
do while (iret /= CODES_END_OF_FILE .AND. status_time == CODES_SUCCESS) do while (iret /= CODES_END_OF_FILE .AND. status_time == CODES_SUCCESS)
! we need to instruct ecCodes to expand all the descriptors ! we need to instruct ecCodes to expand all the descriptors
@ -57,7 +57,6 @@ program bufr_read_temp
! In our BUFR message verticalSoundingSignificance is always followed by ! In our BUFR message verticalSoundingSignificance is always followed by
! geopotential, airTemperature, dewpointTemperature, ! geopotential, airTemperature, dewpointTemperature,
! windDirection, windSpeed and pressure. ! windDirection, windSpeed and pressure.
!
count = count + 1 count = count + 1
llskip = .False. llskip = .False.
@ -157,21 +156,21 @@ program bufr_read_temp
wdirVal(i), wspVal(i), INT(vssVal(i)), Note wdirVal(i), wspVal(i), INT(vssVal(i)), Note
end do end do
! free arrays ! free allocated arrays
deallocate (dlatVal, dlonVal, vssVal) deallocate (dlatVal, dlonVal, vssVal)
deallocate (presVal, zVal, tVal, tdVal, wdirVal, wspVal) deallocate (presVal, zVal, tVal, tdVal, wdirVal, wspVal)
deallocate (lat, lon)
END IF END IF
IF (ALLOCATED(timeVal)) deallocate (timeVal) IF (ALLOCATED(timeVal)) deallocate (timeVal)
! 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)
end do end do
! close file
call codes_close_file(ifile) call codes_close_file(ifile)
end program bufr_read_temp end program bufr_read_tempf