blae.F | [SRC] [CPP] [JOB] [SCAN] |
SOURCES / FUNCTIONS | SEQCODE/FUNCTIONS [=] |
1 | include(dom.inc) 2 | 3 | DOM_REAL FUNCTION BLAE(nu,T) 4 | 5 | ! ----------------------------------------------------------------! 6 | ! les erreurs due a une temperature proche de zero ne sont pas ! 7 | ! evitees. le probleme ne s'est jamais pose: amaury le 1999 II 22 ! 8 | ! ----------------------------------------------------------------! 9 | 10 | IMPLICIT NONE 11 | 12 | include 'dom_constants.h' 13 | 14 | ! IN 15 | DOM_REAL, INTENT(IN) :: nu, T 16 | 17 | ! LOCAL 18 | DOM_REAL:: rind, c, c1, c2, nu3 19 | 20 | !--- Refraction index 'rind' to be entered as input ! 21 | rind=1. 22 | 23 | c=c0/rind 24 | 25 | c1 = Planckcst * (c*c) 26 | c2 = Planckcst * c / Boltzmann 27 | nu3 = nu*nu*nu 28 | 29 | IF (T.eq.0.) THEN 30 | blae = 0. 31 | ELSE 32 | blae= 2.*pi*c1*nu3 / ( exp(c2*nu/T) - 1. ) 33 | ENDIF 34 | 35 | RETURN 36 | END FUNCTION BLAE
blae.F | [SEQCODE/FUNCTIONS] | - 3 - 21 - 23 |
blae.F | [SOURCES/FUNCTIONS] | - 3 - 30 - 32 |
ck_case.F | [SEQCODE/MODEL] | - 28 |
ck_case.F | [SOURCES/MODEL] | - 33 |
deri_kappa_snb.F | [SOURCES/SCHEMES] | - 20 - 51 |
emissiv_snb.F | [SEQCODE/MODEL] | - 15 - 29 - 37 |
emissiv_snb.F | [SOURCES/MODEL] | - 32 - 52 - 62 |
fsck_case.F | [SEQCODE/MODEL] | - 32 - 70 - 150 |
fsck_case.F | [SOURCES/MODEL] | - 40 - 77 - 162 - 251 |
fsk_case.F | [SEQCODE/MODEL] | - 20 - 84 |
fsk_case.F | [SOURCES/MODEL] | - 35 - 99 |
fulldomasium.f90 | [SEQCODE/FULLDOMASIUM] | - 1558 - 1570 - 1575 - 1621 - 1635 - 1640 - 1695 - 1716 - 1722 - 2148 - 2165 - 2167 |
Makefile | [TOOLS/RAY] | - 61 |
Makefile | [SEQCODE] | - 58 |
Makefile | [SOURCES] | - 86 |
Makefile | [TOOLS/TABFSK] | - 58 |
ray.F | [TOOLS/RAY/SRC] | - 23 - 264 - 311 - 343 - 358 - 373 |
tab_case.F | [TOOLS/RAY/SRC] | - 27 - 55 |
tfsck_case.F | [SOURCES/MODEL] | - 36 - 73 - 153 - 217 |
tfsk_case.F | [SOURCES/MODEL] | - 34 - 73 |
wsgg_case.F | [SEQCODE/MODEL] | - 13 - 41 |
wsgg_case.F | [SOURCES/MODEL] | - 37 - 71 |