continuity_destroy Subroutine

private subroutine continuity_destroy(this)

Type Bound

continuity_t

Arguments

Type IntentOptional Attributes Name
class(continuity_t), intent(inout) :: this

Calls

proc~~continuity_destroy~~CallsGraph proc~continuity_destroy continuity_t%continuity_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~continuity_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine continuity_destroy(this)
      class(continuity_t), intent(inout) :: this
      this%is_init = .false.
      call this%h_face_left_x%destroy()
      call this%h_face_right_x%destroy()
      call this%h_face_left_y%destroy()
      call this%h_face_right_y%destroy()
      call this%mt_h_new%destroy()
      call this%mt_grounded%destroy()
      call this%pd_theta%destroy()
      if (allocated(this%uhtr)) deallocate (this%uhtr)
      if (allocated(this%vhtr)) deallocate (this%vhtr)
      if (allocated(this%hprev_work)) deallocate (this%hprev_work)
      if (allocated(this%h_win_start)) deallocate (this%h_win_start)
      if (allocated(this%uhr_x)) deallocate (this%uhr_x)
      if (allocated(this%uhr_y)) deallocate (this%uhr_y)
      if (allocated(this%uhh_x)) deallocate (this%uhh_x)
      if (allocated(this%uhh_y)) deallocate (this%uhh_y)
      if (allocated(this%tr_flux_x)) deallocate (this%tr_flux_x)
      if (allocated(this%tr_flux_y)) deallocate (this%tr_flux_y)
      if (allocated(this%tr_work)) deallocate (this%tr_work)
      if (allocated(this%pal)) deallocate (this%pal)
      if (allocated(this%par)) deallocate (this%par)
      if (allocated(this%pa6)) deallocate (this%pa6)
   end subroutine continuity_destroy