|
Last change
on this file since 27 was
27,
checked in by cbipsl, 17 years ago
|
|
validation creation appli extraction L1C
|
|
File size:
502 bytes
|
| Line | |
|---|
| 1 | !************************************************************ |
|---|
| 2 | !***Calcul des Tb a partir des B*** |
|---|
| 3 | |
|---|
| 4 | FUNCTION tbrillans(nu,b) |
|---|
| 5 | ! nu en cm-1 t en Kelvin b en Watt / ( m2 strd cm-1 ) |
|---|
| 6 | ! c en m/s h en J.s k en J/K |
|---|
| 7 | real nu,nu0,tbrillans,b |
|---|
| 8 | real c,h,k |
|---|
| 9 | c=2.998e+08 |
|---|
| 10 | k=1.381e-23 |
|---|
| 11 | h=6.6262e-34 |
|---|
| 12 | scale=100 |
|---|
| 13 | nu0=nu*scale |
|---|
| 14 | ! planck=scale*2.*h*c**2*nu0**3/(exp(h*c/k*nu0/t)-1) |
|---|
| 15 | tbrillans=h*c/k*nu0/log((scale*2.*h*c**2*nu0**3/b)+1) |
|---|
| 16 | return |
|---|
| 17 | |
|---|
| 18 | END |
|---|
| 19 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
