source: trunk/SRC/ToBeReviewed/CALCULS/fsfzpt.pro @ 430

Last change on this file since 430 was 430, checked in by pinsard, 14 years ago

indent shell scripts
  • Property svn:keywords set to Id
File size: 1.1 KB
Line 
1;+
2;
3; Ice freezing point
4; ==================
5;  fsfzpt: freezing point of seawater in degrees celsius
6;       units : salinity        pfs       (ipss-78)
7;               pressure        pfp      decibars
8;               temperature     fszfpt   degrees celsius
9;               freezing pt
10;       reference : unesco tech. papers in the marine science no 28 1978
11;               eigth report jpots
12;               annex 6 freezing point of seawater F.J.Millero pp.29-35
13;       checkvalue: fsfzpt=-2.588567 deg.c,for s=40.0,p=500 decibars
14;
15;
16; @categories
17;
18; @param PFS {in}{required}
19; salinity
20;
21; @param PFP {in}{required}
22; pressure decibars
23;
24; @examples
25;
26; IDL> pfs=40.0
27; IDL> pfp=500
28; IDL> result=fsfzpt( pfs, pfp)
29; IDL> print,result
30;     -2.58857
31;
32; @returns
33; temperature freezing pt degrees celsius
34;
35; @uses
36;
37; @restrictions
38;
39; @examples
40;
41; @history
42;
43; - fplod 20091208T163045Z zeus.locean-ipsl.upmc.fr (Linux)
44;
45;   * add example
46;
47;
48; @version
49; $Id$
50;
51; @todo seb
52;
53;-
54FUNCTION fsfzpt, pfs, pfp
55;
56  compile_opt idl2, strictarrsubs
57;
58  RETURN, ( -0.0575 + 1.710523e-3 * sqrt(pfs) - 2.154996e-4 * pfs  ) * pfs - 7.53e-4 * pfp
59END
Note: See TracBrowser for help on using the repository browser.