do_write_omega Subroutine

private subroutine do_write_omega(it, ik)

Uses

Write instantaneous growth rate and frequency to out_unit for an individual point

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: it

- and -indices

integer, intent(in) :: ik

- and -indices


Contents

Source Code


Source Code

  subroutine do_write_omega(it,ik)
    use gs2_time, only: tunits, woutunits
    implicit none
    !> \(k_y\)- and \(\theta\)-indices
    integer, intent(in) :: it, ik
    if (.not. write_ascii) return
    write (out_unit,&
         fmt='(" omega= (",1p,e12.4,",",1p,e12.4,")",t45,"omega/(vt/a)= (",1p,e12.4,",",1p,e12.4,")")') &
         omega(it,ik)/tunits(ik), omega(it,ik)*woutunits(ik)
  end subroutine do_write_omega