scale_cubedsphere_coord_cnv::cubedspherecoordcnv_localorth2csvec_alpha Interface Reference

Public Member Functions
subroutine	cubedspherecoordcnv_localorth2csvec_alpha_0 (alpha, beta, radius, np, vecalpha, vecbeta)
subroutine	cubedspherecoordcnv_localorth2csvec_alpha_1 (alpha, beta, radius, np, vecorth1, vecorth2, vecalpha, vecbeta)

Detailed Description

Definition at line 61 of file scale_cubedsphere_coord_cnv.F90.

Member Function/Subroutine Documentation

cubedspherecoordcnv_localorth2csvec_alpha_0()

subroutine scale_cubedsphere_coord_cnv::cubedspherecoordcnv_localorth2csvec_alpha::cubedspherecoordcnv_localorth2csvec_alpha_0	(	real(rp), dimension(np), intent(in)	alpha,
		real(rp), dimension (np), intent(in)	beta,
		real(rp), dimension(np), intent(in)	radius,
		integer, intent(in)	np,
		real(rp), dimension(np), intent(inout)	vecalpha,
		real(rp), dimension (np), intent(inout)	vecbeta )

Definition at line 729 of file scale_cubedsphere_coord_cnv.F90.

 
    implicit none
    
    integer, intent(in) :: Np
    real(RP), intent(in) :: alpha(Np)
    real(RP), intent(in) :: beta (Np)
    real(RP), intent(in) :: radius(Np)
    real(RP), intent(inout) :: VecAlpha(Np)
    real(RP), intent(inout) :: VecBeta (Np)    
 
    integer :: p
    real(RP) :: x1, x2, del
    real(RP) :: fac
    real(RP) :: tmp
    !-----------------------------------------------------------------------------
 
    !$omp parallel do private(x1, x2, del, fac, tmp)
    !$acc parallel loop present(alpha, beta, radius, VecAlpha, VecBeta)
    do p=1, np
      x1 = tan( alpha(p) )
      x2 = tan( beta(p) )
      del = sqrt(1.0_rp + x1**2 + x2**2)
      fac = del / ( radius(p) * ( 1.0_rp + x2**2 ) * sqrt( 1.0_rp + x1**2 ) )
 
      tmp = vecalpha(p)
      vecalpha(p) = fac * ( 1.0_rp + x2**2 ) * tmp
      vecbeta(p) = fac * ( x1 * x2 * tmp + del * vecbeta(p) )
    end do
 
    return

cubedspherecoordcnv_localorth2csvec_alpha_1()

subroutine scale_cubedsphere_coord_cnv::cubedspherecoordcnv_localorth2csvec_alpha::cubedspherecoordcnv_localorth2csvec_alpha_1	(	real(rp), dimension(np), intent(in)	alpha,
		real(rp), dimension (np), intent(in)	beta,
		real(rp), dimension(np), intent(in)	radius,
		integer, intent(in)	np,
		real(rp), dimension(np), intent(in)	vecorth1,
		real(rp), dimension(np), intent(in)	vecorth2,
		real(rp), dimension(np), intent(out)	vecalpha,
		real(rp), dimension (np), intent(out)	vecbeta )

Definition at line 765 of file scale_cubedsphere_coord_cnv.F90.

    implicit none
    integer, intent(in) :: Np
    real(RP), intent(in) :: alpha(Np)
    real(RP), intent(in) :: beta (Np)
    real(RP), intent(in) :: radius(Np)
    real(RP), intent(in) :: VecOrth1(Np)
    real(RP), intent(in) :: VecOrth2(Np)
    real(RP), intent(out) :: VecAlpha(Np)
    real(RP), intent(out) :: VecBeta (Np)    
 
    integer :: p
    !-----------------------------------------------------------------------------
 
    !$omp parallel do
    !$acc parallel loop present(VecOrth1, VecOrth2, VecAlpha, VecBeta)
    do p=1, np
      vecalpha(p) = vecorth1(p)
      vecbeta(p) = vecorth2(p)
    end do
    !$omp end parallel do
 
    call cubedspherecoordcnv_localorth2csvec_alpha_0( &
      alpha, beta, radius, np,                        & ! (in)
      vecalpha, vecbeta                               ) ! (inout)    
 
    return

---

The documentation for this interface was generated from the following file:

• scale_cubedsphere_coord_cnv.F90