zero_dvtype_1 Subroutine

private subroutine zero_dvtype_1(dv)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(dens_vel_diagnostics), intent(inout), dimension(:) :: dv

Contents

Source Code

zero_dvtype_1

Source Code

  subroutine zero_dvtype_1 (dv)
    implicit none
    type (dens_vel_diagnostics), dimension(:), intent(in out) :: dv
    integer :: n, nmax

    nmax = size(dv)
    
    do n=1,nmax
       dv(n) % dvpar = 0. 
       dv(n) % dvperp = 0.  
       dv(n) % dn = 0.
    end do

  end subroutine zero_dvtype_1