planck.F [SRC] [CPP] [JOB] [SCAN]
SOURCES / FUNCTIONSTOOLS/COMMON/FUNCTIONS [=]


   1 | include(dom.inc)
   2 | 
   3 |       FUNCTION planck(temp)
   4 | 
   5 |         IMPLICIT NONE
   6 | 
   7 |         include 'dom_constants.h'
   8 | 
   9 |         DOM_REAL, INTENT(IN) :: temp
  10 |         DOM_REAL             :: planck, T4
  11 | 
  12 |         T4     = temp*temp*temp*temp
  13 |         planck = sigma*T4/pi
  14 | 
  15 |       END FUNCTION  planck

planck.F could be called by:
deri_kappa.F [SOURCES/SCHEMES] - 26 - 38
emissiv.F [SOURCES/MODEL] - 31 - 54 - 69
fsck_case.F [TOOLS/COMMON/MODEL] - 32
fsk_case.F [TOOLS/COMMON/MODEL] - 20
Makefile [TOOLS/RAY] - 62
Makefile [SOURCES] - 87
Makefile [TOOLS/TABFSK] - 59
planck.F [TOOLS/COMMON/FUNCTIONS] - 10 - 12
planck.F [SOURCES/FUNCTIONS] - 10 - 13
ray.F [TOOLS/RAY/SRC] - 23 - 250 - 256 - 345 - 390 - 392 - 393
slave.F [SOURCES/MAIN/SLAVE] - 516
tabfsk.F [TOOLS/TABFSK/SRC] - 23 - 142
tab_case.F [TOOLS/RAY/SRC] - 27
wsgg_case.F [TOOLS/COMMON/MODEL] - 13 - 70