Context Navigation

grt_cir_dis_saa.h90 @ 9580

Last change on this file since 9580 was 9570, checked in by nicolasmartin, 6 years ago

Global renaming for core routines (./NEMO)

Folders
- LIM_SRC_3 -> ICE_SRC
- OPA_SRC -> OCE_SRC
CPP key: key_lim3 -> key_si3
Modules, (sub)routines and variables names
- MPI: mpi_comm_opa -> mpi_comm_oce, MPI_COMM_OPA -> MPI_COMM_OCE, mpi_init_opa -> mpi_init_oce
- AGRIF: agrif_opa_* -> agrif_oce_*, agrif_lim3_* -> agrif_si3_* and few more
- TOP-PISCES: p.zlim -> p.zice, namp.zlim -> namp.zice
Comments
- NEMO/OPA -> NEMO/OCE
- ESIM|LIM3 -> SI3

File size: 1.2 KB

Line
1	!!----------------------------------------------------------------------
2	!! NEMO/OCE 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.