mod_spherical::arcx Interface Reference

Public Member Functions
subroutine	arcx_flt (XX1, YY1, XX2, YY2, ARCX1)
subroutine	arcx_dbl (XX1, YY1, XX2, YY2, ARCX1)

Detailed Description

Definition at line 73 of file mod_spherical.f90.

Member Function/Subroutine Documentation

arcx_dbl()

subroutine mod_spherical::arcx::arcx_dbl	(	real(dp), intent(in)	XX1,
		real(dp), intent(in)	YY1,
		real(dp), intent(in)	XX2,
		real(dp), intent(in)	YY2,
		real(dp), intent(out)	ARCX1
	)

Definition at line 234 of file mod_spherical.f90.

    IMPLICIT NONE
    REAL(DP), INTENT(IN) :: XX1,YY1,XX2,YY2
    REAL(DP), INTENT(OUT)::ARCX1

    REAL(DP) :: X1,Y1,X2,Y2,TY
    REAL(DP) :: XTMP          

    IF(xx1 == xx2)THEN
       arcx1=0.0_dp
    ELSE
       x1=xx1*deg2rad
       y1=yy1*deg2rad

       x2=xx2*deg2rad
       y2=yy2*deg2rad

       xtmp  = x2-x1
       IF(xtmp >  pi)THEN
          xtmp = real(-2*pi,dp)+xtmp
       ELSE IF(xtmp < -pi)THEN
          xtmp =  real(2*pi,dp)+xtmp
       END IF

       ty=0.5_dp*(y2+y1)
       arcx1=rearth*dcos(ty)*xtmp
    END IF

    RETURN

arcx_flt()

subroutine mod_spherical::arcx::arcx_flt	(	real(spa), intent(in)	XX1,
		real(spa), intent(in)	YY1,
		real(spa), intent(in)	XX2,
		real(spa), intent(in)	YY2,
		real(spa), intent(out)	ARCX1
	)

Definition at line 307 of file mod_spherical.f90.

    IMPLICIT NONE
    REAL(SPA), INTENT(IN) :: XX1,YY1,XX2,YY2
    REAL(SPA), INTENT(OUT)::ARCX1
    
    REAL(DP) ::ARCX_DP

    CALL arcx_dbl(dble(xx1),dble(yy1),dble(xx2),dble(yy2),arcx_dp)
    arcx1 = arcx_dp

---

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

• FVCOMg01/mod_spherical.f90