del_htype_0 Subroutine

private subroutine del_htype_0(h)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(heating_diagnostics), intent(inout) :: h

Contents

Source Code

del_htype_0

Source Code

  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