source:
trunk/src/qsee.pro
@
132
Last change on this file since 132 was 88, checked in by pinsard, 13 years ago | |
---|---|
|
|
File size: 235 bytes |
Rev | Line | |
---|---|---|
[88] | 1 | ;+ |
2 | ;- | |
[87] | 3 | function qsee, sst,Ps |
4 | ; | |
5 | ; Bulk sea surface humidity (g/kg) | |
6 | ; sst: SST (degC) | |
7 | ; Ps : surface pressure (mb) | |
8 | x=sst | |
9 | p=Ps | |
10 | es=6.112*exp(17.502*x/(x+240.97))*.98*(1.0007+3.46e-6*p) | |
11 | s=es*621.97/(p-.378*es) | |
12 | ||
13 | return, s | |
14 | ||
15 | end |
Note: See TracBrowser
for help on using the repository browser.