mod_spherical::arcy Interface Reference

Public Member Functions
subroutine	arcy_flt (XX1, YY1, XX2, YY2, ARCY1)
subroutine	arcy_dbl (XX1, YY1, XX2, YY2, ARCY1)

Detailed Description

Definition at line 78 of file mod_spherical.f90.

Member Function/Subroutine Documentation

arcy_dbl()

subroutine mod_spherical::arcy::arcy_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)	ARCY1
	)

Definition at line 265 of file mod_spherical.f90.

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

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

    IF(yy1 == yy2)THEN
       arcy1=0.0_dp
    ELSE
       x1=xx1*deg2rad
       y1=yy1*deg2rad

       x2=xx2*deg2rad
       y2=yy2*deg2rad

       ytmp  = y2-y1
       IF(ytmp >  pi)THEN
          ytmp = real(-2*pi,dp)+ytmp
       ELSE IF(ytmp < -pi)THEN
          ytmp =  real(2*pi,dp)+ytmp
       END IF

       arcy1=rearth*ytmp
    END IF

    RETURN

arcy_flt()

subroutine mod_spherical::arcy::arcy_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)	ARCY1
	)

Definition at line 295 of file mod_spherical.f90.

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

    CALL arcy_dbl(dble(xx1),dble(yy1),dble(xx2),dble(yy2),arcy_dp)
    arcy1 = arcy_dp

---

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

• FVCOMg01/mod_spherical.f90