80 |
INTEGER nuaer, ntraer |
INTEGER nuaer, ntraer |
81 |
! ------------------------------------------------------------------ |
! ------------------------------------------------------------------ |
82 |
! * COMPUTES PLANCK FUNCTIONS: |
! * COMPUTES PLANCK FUNCTIONS: |
83 |
CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, zgb, & |
CALL lwb(pdt0, ptave, ptl, zb, pbint, pbsui, zbsur, zbtop, zdbsl, zga, & |
84 |
zgasur, zgbsur, zgatop, zgbtop) |
zgb, zgasur, zgbsur, zgatop, zgbtop) |
85 |
! ------------------------------------------------------------------ |
! ------------------------------------------------------------------ |
86 |
! * PERFORMS THE VERTICAL INTEGRATION: |
! * PERFORMS THE VERTICAL INTEGRATION: |
87 |
nuaer = nua |
nuaer = nua |