New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
grt_cir_dis_saa.h90 in branches/UKMO/dev_r5518_v3.6_asm_nemovar_community/NEMOGCM/NEMO/OPA_SRC/OBS – NEMO

source: branches/UKMO/dev_r5518_v3.6_asm_nemovar_community/NEMOGCM/NEMO/OPA_SRC/OBS/grt_cir_dis_saa.h90 @ 7730

Last change on this file since 7730 was 7730, checked in by dford, 7 years ago

Clear 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.