coriolis_adv_destroy Subroutine

private subroutine coriolis_adv_destroy(this)

Type Bound

coriolis_adv_t

Arguments

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

Calls

proc~~coriolis_adv_destroy~~CallsGraph proc~coriolis_adv_destroy coriolis_adv_t%coriolis_adv_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~coriolis_adv_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine coriolis_adv_destroy(this)
      class(coriolis_adv_t), intent(inout) :: this
      this%is_init = .false.
      call this%q_corner%destroy()
      call this%ke_centre%destroy()
      call this%pv_flux_x%destroy()
      call this%pv_flux_y%destroy()
      call this%mass_flux_u%destroy()
      call this%mass_flux_v%destroy()
      if (allocated(this%f_corner)) deallocate (this%f_corner)
   end subroutine coriolis_adv_destroy