FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(heating_diagnostics), | intent(inout), | dimension(:,:,:) | :: | h |
subroutine zero_htype_3 (h)
implicit none
type (heating_diagnostics), dimension(:,:,:), intent(in out) :: h
integer :: n, nmax, m, mmax, l, lmax
lmax = size(h, 1)
mmax = size(h, 2)
nmax = size(h, 3)
h % energy = 0.
h % energy_dot = 0.
h % antenna = 0.
h % eapar = 0.
h % ebpar = 0.
do n=1,nmax
do m=1,mmax
do l=1,lmax
h(l,m,n) % delfs2 = 0.
h(l,m,n) % hs2 = 0.
h(l,m,n) % phis2 = 0.
h(l,m,n) % hypervisc = 0.
h(l,m,n) % hyperres = 0.
h(l,m,n) % hypercoll = 0.
h(l,m,n) % collisions = 0.
h(l,m,n) % imp_colls = 0.
h(l,m,n) % gradients = 0.
! h(l,m,n) % curvature = 0.
h(l,m,n) % heating = 0.
end do
end do
end do
end subroutine zero_htype_3