| 1234567891011121314151617181920212223242526272829303132 |
- !!----------------------------------------------------------------------
- !! NEMO/OPA 3.3 , NEMO Consortium (2010)
- !! $Id: grt_cir_dis_saa.h90 2287 2010-10-18 07:53:52Z smasson $
- !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
- !!----------------------------------------------------------------------
- REAL(KIND=wp) FUNCTION grt_cir_dis_saa( pa, pb, pc )
- !!----------------------------------------------------------------------
- !! *** FUNCTION grt_cir_dis_saa ***
- !!
- !! ** Purpose : Great circle distance between pts (lat1,lon1)
- !! & (lat2,lon2) with a small-angle approximation
- !!
- !! ** Method : Geometry
- !!
- !! ** Action :
- !!
- !! History
- !! ! 95-12 (G. Madec, E. Durand, A. Weaver, N. Daget) Original
- !! ! 06-03 (A. Vidard) Migration to NEMOVAR
- !! ! 06-10 (A. Weaver) Cleanup
- !!----------------------------------------------------------------------
-
- !! * Arguments
- REAL(KIND=wp) :: pa ! lon1 - lon2
- REAL(KIND=wp) :: pb ! lat1 - lat2
- REAL(KIND=wp) :: pc ! cos(lat2)
- grt_cir_dis_saa = SQRT( pa * pa + ( pb * pc )**2 )
- END FUNCTION grt_cir_dis_saa
-
|
