mod_spherical::area Interface Reference

Public Member Functions
subroutine	area_flt (SIDE1, SIDE2, SIDE3, AREA1)
subroutine	area_dbl (SIDEA, SIDEB, SIDEC, AREA1)

Detailed Description

Definition at line 68 of file mod_spherical.f90.

Member Function/Subroutine Documentation

area_dbl()

subroutine mod_spherical::area::area_dbl	(	real(dp), intent(in)	SIDEA,
		real(dp), intent(in)	SIDEB,
		real(dp), intent(in)	SIDEC,
		real(dp), intent(out)	AREA1
	)

Definition at line 143 of file mod_spherical.f90.

    !--------------------------------------------------------------------
    !      function:
    !           calculate the area of a triangle on a spherical plane
    !      input:
    !           side1,side2 and side3: are 3 arc lenth for one triangle
    !      output:
    !           areal: is area of a triangle on a spherical plane
    !--------------------------------------------------------------------
    IMPLICIT NONE
    REAL(DP), INTENT(IN) :: SIDEA,SIDEB,SIDEC
    REAL(DP), INTENT(OUT) :: AREA1
    REAL(DP) :: SIDE1,SIDE2,SIDE3
    REAL(DP) :: PSUM,PM,QMJC

    side1=sidea/rearth
    side2=sideb/rearth
    side3=sidec/rearth

    ! SLOWER TO CHECK THEN TO CALCULATE
    !   IF(SIDE1 == 0.0_DP .OR. SIDE2 == 0.0_DP .OR. SIDE3 == 0.0_DP)THEN
    !     AREA1=0.0_DP
    !   ELSE

    psum=0.5_dp*(side1+side2+side3)
    pm=dsin(psum)*dsin(psum-side1)*dsin(psum-side2)*dsin(psum-side3)
    pm=dsqrt(pm)/(2.0_dp*dcos(side1*0.5_dp)*dcos(side2*0.5_dp)*dcos(side3*0.5_dp))
    qmjc = 2.0_dp*dasin(pm)

    area1=rearth*rearth*qmjc

    !   END IF

    RETURN

area_flt()

subroutine mod_spherical::area::area_flt	(	real(spa), intent(in)	SIDE1,
		real(spa), intent(in)	SIDE2,
		real(spa), intent(in)	SIDE3,
		real(spa), intent(out)	AREA1
	)

Definition at line 179 of file mod_spherical.f90.

    IMPLICIT NONE
    REAL(SPA), INTENT(IN) :: SIDE1,SIDE2,SIDE3
    REAL(SPA), INTENT(OUT) :: AREA1
    REAL(DP) :: AREA_DP

    CALL area_dbl(dble(side1),dble(side2),dble(side3),area_dp)
    area1=area_dp

---

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

• FVCOMg01/mod_spherical.f90