ocean_epbl_destroy Subroutine

private subroutine ocean_epbl_destroy(this)

Type Bound

ocean_epbl_t

Arguments

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

Calls

proc~~ocean_epbl_destroy~~CallsGraph proc~ocean_epbl_destroy ocean_epbl_t%ocean_epbl_destroy proc~scratch_3d_buffer_destroy scratch_3d_buffer_t%scratch_3d_buffer_destroy proc~ocean_epbl_destroy->proc~scratch_3d_buffer_destroy

Source Code

   subroutine ocean_epbl_destroy(this)
      class(ocean_epbl_t), intent(inout) :: this
      this%is_init = .false.
      if (allocated(this%f_centre)) deallocate (this%f_centre)
      if (allocated(this%mld)) deallocate (this%mld)
      if (allocated(this%b0)) deallocate (this%b0)
      if (allocated(this%kd_int)) deallocate (this%kd_int)
      if (allocated(this%la)) deallocate (this%la)
      if (allocated(this%tke_wind)) deallocate (this%tke_wind)
      if (allocated(this%tke_conv)) deallocate (this%tke_conv)
      if (allocated(this%tke_forcing)) deallocate (this%tke_forcing)
      if (allocated(this%tke_mixing)) deallocate (this%tke_mixing)
      if (allocated(this%tke_mech_decay)) deallocate (this%tke_mech_decay)
      if (allocated(this%tke_conv_decay)) deallocate (this%tke_conv_decay)
      call this%t0%destroy()
      call this%s0%destroy()
      call this%dpe_t%destroy()
      call this%dpe_s%destroy()
      call this%dcolht_t%destroy()
      call this%dcolht_s%destroy()
      call this%ctke_sw%destroy()
   end subroutine ocean_epbl_destroy