source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/OBS/grt_cir_dis_saa.h90 @ 9295

Last change on this file since 9295 was 9295, checked in by jcastill, 3 years ago

Remove svn keywords

File size: 1.2 KB
Line 
1   !!----------------------------------------------------------------------
2   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
3   !! $Id$
4   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
5   !!----------------------------------------------------------------------
6
7   REAL(KIND=wp) FUNCTION grt_cir_dis_saa( pa, pb, pc )
8      !!----------------------------------------------------------------------
9      !!                     *** FUNCTION grt_cir_dis_saa ***
10      !!
11      !! ** Purpose : Great circle distance between pts (lat1,lon1)
12      !!               & (lat2,lon2) with a small-angle approximation
13      !!
14      !! ** Method  : Geometry
15      !!
16      !! ** Action  :
17      !!
18      !! History
19      !!      !  95-12 (G. Madec, E. Durand, A. Weaver, N. Daget) Original
20      !!      !  06-03 (A. Vidard) Migration to NEMOVAR
21      !!      !  06-10 (A. Weaver) Cleanup
22      !!----------------------------------------------------------------------
23     
24      !! * Arguments
25      REAL(KIND=wp) :: pa   !  lon1 - lon2
26      REAL(KIND=wp) :: pb   !  lat1 - lat2
27      REAL(KIND=wp) :: pc   !  cos(lat2)
28
29      grt_cir_dis_saa = SQRT( pa * pa + ( pb * pc )**2 )
30
31   END FUNCTION grt_cir_dis_saa
32 
Note: See TracBrowser for help on using the repository browser.