ocean_pressure_force_destroy Subroutine

private subroutine ocean_pressure_force_destroy(this)

Type Bound

ocean_pressure_force_t

Arguments

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

Calls

proc~~ocean_pressure_force_destroy~~CallsGraph proc~ocean_pressure_force_destroy ocean_pressure_force_t%ocean_pressure_force_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_pressure_force_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_pressure_force_destroy(this)
      class(ocean_pressure_force_t), intent(inout) :: this
      this%is_init = .false.
      call this%p_edge%destroy()
      call this%z_centre%destroy()
      call this%mont_M%destroy()
      call this%rho_insitu%destroy()
      call this%dpdx_face%destroy()
      call this%dpdy_face%destroy()
      call this%e_face%destroy()
      call this%pa%destroy()
      call this%intz_dpa%destroy()
      call this%intx_pa%destroy()
      call this%inty_pa%destroy()
      call this%intx_dpa%destroy()
      call this%inty_dpa%destroy()
      call this%conc_T%destroy()
      call this%conc_S%destroy()
      call this%recon_T_t%destroy()
      call this%recon_T_b%destroy()
      call this%recon_S_t%destroy()
      call this%recon_S_b%destroy()
      if (allocated(this%b)) deallocate (this%b)
   end subroutine ocean_pressure_force_destroy