scale_cubedsphere_coord_cnv::cubedspherecoordcnv_cs2localorthvec_alpha Interface Reference

Public Member Functions
subroutine	cubedspherecoordcnv_cs2localorthvec_alpha_0 (alpha, beta, radius, np, vecorth1, vecorth2)
subroutine	cubedspherecoordcnv_cs2localorthvec_alpha_1 (alpha, beta, radius, np, vecalpha, vecbeta, vecorth1, vecorth2)

Detailed Description

Definition at line 55 of file scale_cubedsphere_coord_cnv.F90.

Member Function/Subroutine Documentation

cubedspherecoordcnv_cs2localorthvec_alpha_0()

subroutine scale_cubedsphere_coord_cnv::cubedspherecoordcnv_cs2localorthvec_alpha::cubedspherecoordcnv_cs2localorthvec_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)	vecorth1,
		real(rp), dimension(np), intent(inout)	vecorth2 )

Definition at line 658 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) :: VecOrth1(Np)
    real(RP), intent(inout) :: VecOrth2(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, VecOrth1, VecOrth2)
    do p=1, np
      x1 = tan( alpha(p) )
      x2 = tan( beta(p) )
      del = sqrt(1.0_rp + x1**2 + x2**2)
      fac = radius(p) * sqrt(1.0_rp + x1**2) / del**2
 
      tmp = vecorth1(p)
      vecorth1(p) = fac * del * tmp
      vecorth2(p) = fac * ( - x1 * x2 * tmp + (1.0_rp + x2**2) * vecorth2(p) )
    end do
 
    return

cubedspherecoordcnv_cs2localorthvec_alpha_1()

subroutine scale_cubedsphere_coord_cnv::cubedspherecoordcnv_cs2localorthvec_alpha::cubedspherecoordcnv_cs2localorthvec_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)	vecalpha,
		real(rp), dimension (np), intent(in)	vecbeta,
		real(rp), dimension(np), intent(out)	vecorth1,
		real(rp), dimension(np), intent(out)	vecorth2 )

Definition at line 694 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) :: VecAlpha(Np)
    real(RP), intent(in) :: VecBeta (Np)
    real(RP), intent(out) :: VecOrth1(Np)
    real(RP), intent(out) :: VecOrth2(Np)
 
    integer :: p
    !-----------------------------------------------------------------------------
 
    !$omp parallel do
    !$acc parallel loop present(VecAlpha, VecBeta, VecOrth1, VecOrth2)
    do p=1, np
      vecorth1(p) = vecalpha(p)
      vecorth2(p) = vecbeta(p)
    end do
    !$omp end parallel do
 
    call cubedspherecoordcnv_cs2localorthvec_alpha_0( &
      alpha, beta, radius, np,                      & ! (in)
      vecorth1, vecorth2                            ) ! (inout)    
 
    return

---

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

• scale_cubedsphere_coord_cnv.F90