mod_spherical::arc Interface Reference

Public Member Functions
subroutine	arc_flt (XX1, YY1, XX2, YY2, ARCL)
subroutine	arc_dbl (XX1, YY1, XX2, YY2, ARCL)

Detailed Description

Definition at line 58 of file mod_spherical.f90.

Member Function/Subroutine Documentation

arc_dbl()

subroutine mod_spherical::arc::arc_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)	ARCL
	)

Definition at line 94 of file mod_spherical.f90.

    !----------------------------------------------------------------------------
    !      function:
    !           calculate the arc lenth for given two point on the spherical plane
    !      input:
    !           xx1,yy1,xx2,yy2 :are longitude and latitude of two points
    !      output:
    !           arcl :  arc lenth of two points in spherical plane
    !-----------------------------------------------------------------------------       

    !  solve the arc length through the earth center
    IMPLICIT NONE
    REAL(DP) :: X1,Y1,X2,Y2,XA,YA,ZA,XB,YB,ZB,AB,AOB
    REAL(DP),INTENT(OUT) :: ARCL
    REAL(DP),INTENT(IN) :: XX1,YY1,XX2,YY2

    x1=xx1*deg2rad
    y1=yy1*deg2rad

    x2=xx2*deg2rad
    y2=yy2*deg2rad

    ! USE DOUBLE PRECISION COS AND SIN
    xa=dcos(y1)*dcos(x1)
    ya=dcos(y1)*dsin(x1)
    za=dsin(y1)

    xb=dcos(y2)*dcos(x2)
    yb=dcos(y2)*dsin(x2)
    zb=dsin(y2)

    ab=dsqrt((xb-xa)**2+(yb-ya)**2+(zb-za)**2)
    aob=(2.0_dp -ab*ab)/2.0_dp
    aob=dacos(aob)
    arcl=rearth*aob

    RETURN

arc_flt()

subroutine mod_spherical::arc::arc_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)	ARCL
	)

Definition at line 133 of file mod_spherical.f90.

    IMPLICIT NONE
    REAL(SPA), INTENT(IN) :: XX1,YY1,XX2,YY2
    REAL(SPA), INTENT(OUT) :: ARCL
    REAL(DP) ARCL_DP
    CALL arc_dbl(dble(xx1),dble(yy1),dble(xx2),dble(yy2),arcl_dp)
    arcl = arcl_dp

---

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

• FVCOMg01/mod_spherical.f90