Skip to content

Commit

Permalink
deallocated error bug.
Browse files Browse the repository at this point in the history
  • Loading branch information
Nicholaswogan committed Oct 27, 2022
1 parent 7ffb1ea commit a11a4d7
Showing 1 changed file with 0 additions and 2 deletions.
2 changes: 0 additions & 2 deletions photochem/fortran/Atmosphere_wrapper.f90
Original file line number Diff line number Diff line change
Expand Up @@ -31,9 +31,7 @@ subroutine deallocate_atmosphere(ptr) bind(c)
type(c_ptr), intent(in) :: ptr
type(Atmosphere), pointer :: pc
character(:), allocatable :: err_f

call c_f_pointer(ptr, pc)
call pc%destroy_stepper(err_f)
deallocate(pc)
end subroutine

Expand Down

0 comments on commit a11a4d7

Please sign in to comment.