mod_spherical::arcc Interface Reference

Public Member Functions
subroutine	arcc_flt (XX1, YY1, XX2, YY2, XXC, YYC)
subroutine	arcc_dbl (XX1, YY1, XX2, YY2, XXC, YYC)

Detailed Description

Definition at line 63 of file mod_spherical.f90.

Member Function/Subroutine Documentation

arcc_dbl()

subroutine mod_spherical::arcc::arcc_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)	XXC,
		real(dp), intent(out)	YYC
	)

Definition at line 191 of file mod_spherical.f90.

    IMPLICIT NONE
    REAL(DP), INTENT(OUT) :: XXC,YYC
    REAL(DP), INTENT(IN) :: XX1,YY1,XX2,YY2
    REAL(DP) :: X1,Y1,X2,Y2

    x1=xx1*deg2rad
    y1=yy1*deg2rad

    x2=xx2*deg2rad
    y2=yy2*deg2rad

    xxc=dcos(y1)*dsin(x1)+dcos(y2)*dsin(x2)
    !   XXC=XXC/(COS(Y1)*COS(X1)+COS(Y2)*COS(X2))
    !   XXC=ATAN(XXC)
    xxc=datan2(xxc,(dcos(y1)*dcos(x1)+dcos(y2)*dcos(x2)))
    xxc=xxc/deg2rad

    !   IF(XXC .LT. 0.0) XXC=180.0+XXC
    IF(xxc < 0.0_dp) xxc=360.0_dp+xxc

    yyc=dcos(y1)*dcos(y1)+dcos(y2)*dcos(y2)+2.0_dp*dcos(y1)*dcos(y2)*dcos(x1-x2)
    !   YYC=SQRT(YYC)/(SIN(Y1)+SIN(Y2))
    yyc=datan2(dsqrt(yyc),(dsin(y1)+dsin(y2)))
    !   YYC=ATAN(YYC)
    yyc=90.0_dp-yyc/deg2rad

    RETURN

arcc_flt()

subroutine mod_spherical::arcc::arcc_flt	(	real(spa)	XX1,
		real(spa)	YY1,
		real(spa)	XX2,
		real(spa)	YY2,
		real(spa)	XXC,
		real(spa)	YYC
	)

Definition at line 221 of file mod_spherical.f90.

    IMPLICIT NONE
    REAL(SPA) :: XX1,YY1,XX2,YY2
    REAL(SPA) :: XXC,YYC
    REAL(DP) :: XXC_DP,YYC_DP

    CALL arcc_dbl(dble(xx1),dble(yy1),dble(xx2),dble(yy2),xxc_dp,yyc_dp)
    xxc = xxc_dp
    yyc = yyc_dp

---

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

• FVCOMg01/mod_spherical.f90