Ztgrid Subroutine

private subroutine Ztgrid(rgrid, theta, Zoftheta)

Calculates the vertical height, Z, on the theta grid

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension(-ntgrid:) :: rgrid
real, intent(in), dimension(-ntgrid:) :: theta
real, intent(out), dimension(-ntgrid:) :: Zoftheta

Contents

Source Code

Ztgrid

Source Code

  subroutine Ztgrid(rgrid, theta, Zoftheta)
    implicit none
    real, dimension(-ntgrid:), intent(in) :: rgrid, theta
    real, dimension(-ntgrid:), intent(out) :: Zoftheta
    integer :: i
    do i = -nth, nth
       Zoftheta(i) = geom%Zpos(rgrid(i), theta(i))
    end do
  end subroutine Ztgrid