FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(heating_diagnostics), | intent(inout) | :: | h |
subroutine del_htype_0 (h)
implicit none
type (heating_diagnostics), intent(in out) :: h
deallocate (h % delfs2)
deallocate (h % hs2)
deallocate (h % phis2)
deallocate (h % hypervisc)
deallocate (h % hyperres)
deallocate (h % hypercoll)
deallocate (h % collisions)
deallocate (h % imp_colls)
deallocate (h % gradients)
! deallocate (h % curvature)
deallocate (h % heating)
end subroutine del_htype_0