source: trunk/src/qsee.pro

Last change on this file was 204, checked in by pinsard, 10 years ago

fix thanks to coding rules; typo

  • Property svn:keywords set to Id URL
File size: 445 bytes
Line 
1;+
2;
3; ========
4; qsee.pro
5; ========
6;
7; .. function:: qsee(zet)
8;
9; DESCRIPTION
10; ===========
11;
12; Bulk sea surface humidity (g/kg)
13; sst: SST (degC)
14; Ps : surface pressure (mb)
15;
16; EVOLUTIONS
17; ==========
18;
19; $Id$
20;
21; $URL$
22;
23; - fplod 20120319
24;
25;   * minimal header
26;
27;-
28function qsee, sst,Ps
29;
30x=sst
31p=Ps
32es=6.112*exp(17.502*x/(x+240.97))*.98*(1.0007+3.46e-6*p)
33s=es*621.97/(p-.378*es)
34
35return, s
36
37end
Note: See TracBrowser for help on using the repository browser.