source:
branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_conv.F90
@
2576
Last change on this file since 2576 was 2287, checked in by smasson, 14 years ago | |
---|---|
|
|
File size: 1.7 KB |
Line | |
---|---|
1 | MODULE 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 | |
42 | CONTAINS |
43 | |
44 | #include "obs_conv_functions.h90" |
45 | |
46 | END MODULE obs_conv |
Note: See TracBrowser
for help on using the repository browser.