source:
trunk/src/qsee.pro
@
103
Last change on this file since 103 was 88, checked in by pinsard, 13 years ago | |
---|---|
|
|
File size: 235 bytes |
Line | |
---|---|
1 | ;+ |
2 | ;- |
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.