Skip to content

Commit

Permalink
Merge pull request #3260 from GEOS-ESM/bugfix/wdboggs/remove_comments…
Browse files Browse the repository at this point in the history
…_from_PR3258

Remove comments in UDSystem.F90
  • Loading branch information
darianboggs authored Dec 19, 2024
2 parents e1f18d4 + 6f34fe8 commit 84190d2
Showing 1 changed file with 3 additions and 4 deletions.
7 changes: 3 additions & 4 deletions udunits2f/UDSystem.F90
Original file line number Diff line number Diff line change
Expand Up @@ -151,7 +151,6 @@ function construct_converter(from_unit, to_unit) result(conv)
type(UDUnit), intent(in) :: from_unit
type(UDUnit), intent(in) :: to_unit
type(c_ptr) :: cvconverter1
! logical :: convertible !wdb fixme deleteme

! Must supply units that are initialized and convertible
if(from_unit%is_free() .or. to_unit%is_free()) return
Expand All @@ -178,7 +177,8 @@ subroutine get_converter(conv, from, to, rc)
conv = get_converter_function(from, to)
_ASSERT_RC(.not. conv%is_free(), 'Failed to get converter function', UTF_CONVERTER_NOT_INITIALIZED)
_RETURN(_SUCCESS)
_UNUSED_DUMMY(status) !wdb fixme deleteme add blank line after
_UNUSED_DUMMY(status)

end subroutine get_converter

! Get converter object
Expand Down Expand Up @@ -340,13 +340,13 @@ subroutine initialize_system(system, path, encoding, rc)
integer(ut_encoding), optional, intent(in) :: encoding
integer, optional, intent(out) :: rc
integer :: status
! type(c_ptr) :: utsystem !wdb fixme deleteme

! A system can be initialized only once.
_ASSERT_RC(system%is_free(), 'UDSystem is initialized already.', UTF_INITIALIZATION_FAILURE)
system = UDSystem(path, encoding)
_RETURN(_SUCCESS)
_UNUSED_DUMMY(status)

end subroutine initialize_system

! Is the instance of the unit system initialized?
Expand Down Expand Up @@ -377,7 +377,6 @@ end subroutine free_ut_unit
! Free memory for converter
subroutine free_cv_converter(this)
class(Converter), intent(in) :: this
! type(c_ptr) :: cvconverter1 !wdb fixme deleteme

if(this%is_free()) return
call cv_free(this%get_cptr())
Expand Down

0 comments on commit 84190d2

Please sign in to comment.