source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/blackl.F

Last change on this file was 222, checked in by ymipsl, 10 years ago

Creating temporary dynamico/lmdz/saturn branche

YM
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.