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

removed debugging leftovers

This commit is contained in:
plesskem 2024-11-07 11:01:00 +00:00
parent 2010ae973f
commit 7b13509a69
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fortran/grib_f90_tail.f90
View File

@ -2838,7 +2838,7 @@
!> @param mess_len length of the message !> @param mess_len length of the message
!> @param status GRIB_SUCCESS if OK, integer value on error !> @param status GRIB_SUCCESS if OK, integer value on error
subroutine grib_get_message(gribid, message, mess_len, status) subroutine grib_get_message(gribid, message, mess_len, status)
USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_INT,C_PTR, C_CHAR, C_F_POINTER USE, INTRINSIC :: ISO_C_BINDING, ONLY: C_PTR, C_F_POINTER
implicit none implicit none
integer(kind=kindOfInt), intent(in) :: gribid integer(kind=kindOfInt), intent(in) :: gribid
integer(kind=kindOfInt), optional, intent(out) :: status integer(kind=kindOfInt), optional, intent(out) :: status
@ -2846,15 +2846,12 @@
character(len=1), pointer, intent(out) :: message(:) !data in handle is read in C with unsigned chars character(len=1), pointer, intent(out) :: message(:) !data in handle is read in C with unsigned chars
type(C_PTR) :: mess_ptr type(C_PTR) :: mess_ptr
integer(kind=kindOfInt), intent(out) :: mess_len integer(kind=kindOfInt), intent(out) :: mess_len
integer(C_INT) :: nbytes=0
mess_len = 0 iret = grib_f_get_message(gribid, mess_ptr, mess_len)
iret = grib_f_get_message(gribid, mess_ptr, nbytes) call C_F_POINTER(mess_ptr, message,(/mess_len/))
mess_len = nbytes !if(.not. associated(message)) then
call C_F_POINTER(mess_ptr, message,(/nbytes/)) ! write(0,*) 'ERROR: Pointer was not associated'
if(.not. associated(message)) then !endif
write(0,*) 'ERROR: Pointer was not associated'
endif
if (present(status)) then if (present(status)) then
status = iret status = iret
else else