planck.F [SRC] [CPP] [JOB] [SCAN]
SOURCES / FUNCTIONSSEQCODE/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] - 19 - 31
emissiv.F [SEQCODE/MODEL] - 14 - 24 - 31
emissiv.F [SOURCES/MODEL] - 30 - 50 - 60
fsck_case.F [SEQCODE/MODEL] - 32
fsck_case.F [SOURCES/MODEL] - 40
fsk_case.F [SEQCODE/MODEL] - 20
fsk_case.F [SOURCES/MODEL] - 35
fulldomasium.f90 [SEQCODE/FULLDOMASIUM] - 1467 - 1491 - 1496 - 1510 - 1514 - 2229
Makefile [TOOLS/RAY] - 62
Makefile [SEQCODE] - 59
Makefile [SOURCES] - 87
Makefile [TOOLS/TABFSK] - 59
planck.F [SEQCODE/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] - 502
tabfsk.F [TOOLS/TABFSK/SRC] - 23 - 142
tab_case.F [TOOLS/RAY/SRC] - 27
tfsck_case.F [SOURCES/MODEL] - 36
tfsk_case.F [SOURCES/MODEL] - 34
wsgg_case.F [SEQCODE/MODEL] - 13 - 70
wsgg_case.F [SOURCES/MODEL] - 37