diff --git a/photochem/fortran/Atmosphere_wrapper.f90 b/photochem/fortran/Atmosphere_wrapper.f90
index 67855c7..a804df8 100644
--- a/photochem/fortran/Atmosphere_wrapper.f90
+++ b/photochem/fortran/Atmosphere_wrapper.f90
@@ -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