Last change
on this file since 87 was
87,
checked in by pinsard, 13 years ago
|
add missing tools for coare correction
|
-
Property svn:keywords set to
URL
|
File size:
404 bytes
|
Rev | Line | |
---|
[87] | 1 | ;-------------------------------------------------------- |
---|
| 2 | function qsee, sst,Ps |
---|
| 3 | ; |
---|
| 4 | ; Bulk sea surface humidity (g/kg) |
---|
| 5 | ; sst: SST (degC) |
---|
| 6 | ; Ps : surface pressure (mb) |
---|
| 7 | ;-------------------------------------------------------- |
---|
| 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 |
---|
| 16 | ;-------------------------------------------------------- |
---|
Note: See
TracBrowser
for help on using the repository browser.