Ignore:
Timestamp:
Aug 2, 2011, 11:13:07 AM (13 years ago)
Author:
emillour
Message:

Generic GCM

  • Massive update to version 0.7

EM+RW

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/blackl.F

    r135 r253  
    11      subroutine blackl(blalong,blat,blae)
    2 c.......................................................................
     2
    33      implicit double precision (a-h,o-z)
    4 c.......................................................................
    5 c.....donnees de fond
     4
     5      ! physical constants
    66      sigma=5.6693d-08
    77      pi=datan(1.d0)*4.d0
    … …  
    1313      c1=h*(c**2)
    1414      c2=h*c/cbol
    15 c.....fin de donnees de fond
    16 c.......................................................................
     15
     16
    1717      blae=2.d0*pi*c1/blalong**5/(dexp(c2/blalong/blat)-1.d0)
    18 c.......................................................................
     18
     19
    1920      return
    2021      end
Note: See TracChangeset for help on using the changeset viewer.