source:
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/config/ppsrc/phys/blackl.f
@
224
Last change on this file since 224 was 224, checked in by ymipsl, 10 years ago | |
---|---|
File size: 381 bytes |
Line | |
---|---|
1 | subroutine blackl(blalong,blat,blae) |
2 | |
3 | implicit double precision (a-h,o-z) |
4 | |
5 | ! physical constants |
6 | sigma=5.67032D-8 |
7 | pi=datan(1.d0)*4.d0 |
8 | c0=2.9979d+08 |
9 | h=6.6262d-34 |
10 | cbol=1.3806d-23 |
11 | rind=1.d0 |
12 | c=c0/rind |
13 | c1=h*(c**2) |
14 | c2=h*c/cbol |
15 | |
16 | |
17 | blae=2.d0*pi*c1/blalong**5/(dexp(c2/blalong/blat)-1.d0) |
18 | |
19 | |
20 | return |
21 | end |
Note: See TracBrowser
for help on using the repository browser.