Last change
on this file since 468 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.