init_dvtype_0 Subroutine

private subroutine init_dvtype_0(dv, nspec)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(dens_vel_diagnostics), intent(inout) :: dv
integer, intent(in) :: nspec

Contents

Source Code

init_dvtype_0

Source Code

  subroutine init_dvtype_0 (dv, nspec)
    implicit none
    type (dens_vel_diagnostics), intent(in out) :: dv
    integer, intent (in) :: nspec

       allocate (dv % dvpar(nspec))
       allocate (dv % dvperp(nspec))    
       allocate (dv % dn(nspec))  

    call zero_dvtype (dv)

  end subroutine init_dvtype_0