source: branches/UKMO/r6232_tracer_advection/NEMOGCM/NEMO/OPA_SRC/OBS/obs_conv.F90 @ 9295

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

Remove svn keywords

File size: 1.7 KB
Line 
1MODULE obs_conv
2   !!=====================================================================
3   !!                       ***  MODULE  obs_conv  ***
4   !! Observation diagnostics: Various conversion functions
5   !!=====================================================================
6   !!
7   !!   potemp   : Compute potential temperature from insitu temperature,
8   !!              salinity and pressure
9   !!   fspott   : Compute potential temperature from insitu temperature,
10   !!              salinity and pressure
11   !!   atg      : Compute adiabatic temperature gradient deg c per decibar
12   !!   theta    : Compute potential temperature from insitu temperature,
13   !!              salinity and pressure
14   !!   depth    : Compute depth from pressure and latitude.
15   !!   p_to_dep : Compute depth from pressure and latitude
16   !!              (approximate version)
17   !!   dep_to_p : Compute pressure from depth and latitude
18   !!              (approximate version)
19   !!---------------------------------------------------------------------
20   !! * Modules used
21   USE par_kind, ONLY : & ! Precision variables
22      & wp   
23   IMPLICIT NONE
24 
25   !! * Function accessibility
26   PRIVATE
27   PUBLIC &
28      & potemp,   &
29      & fspott,   &
30      & atg,      &
31      & theta,    &
32      & depth,    &
33      & p_to_dep, &
34      & dep_to_p
35   
36   !!----------------------------------------------------------------------
37   !! NEMO/OPA 3.3 , NEMO Consortium (2010)
38   !! $Id$
39   !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
40   !!----------------------------------------------------------------------
41
42CONTAINS
43
44#include "obs_conv_functions.h90"
45
46END MODULE obs_conv
Note: See TracBrowser for help on using the repository browser.