LWB Subroutine

subroutine LWB(KIDIA, KFDIA, KLON, KLEV, KMODE, PDT0, PTAVE, PTL, PB, PBINT, PBSUR, PBTOP, PDBSL, PGA, PGB, PGASUR, PGBSUR, PGATOP, PGBTOP)

*** LWB - COMPUTES BLACK-BODY FUNCTIONS FOR LONGWAVE CALCULATIONS

• INTERFACE. ----------

   1.1   LEVELS FROM SURFACE TO KLEV
          ----------------------------
  
   1.2   TOP OF THE ATMOSPHERE AND SURFACE
          ---------------------------------
  
   1.3   GRADIENTS IN SUB-LAYERS
          -----------------------
  
   2.0   CHOOSE THE RELEVANT SETS OF PADE APPROXIMANTS
          ---------------------------------------------
  

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=JPIM),	intent(in)			::	KIDIA
integer(kind=JPIM),	intent(in)			::	KFDIA
integer(kind=JPIM),	intent(in)			::	KLON
integer(kind=JPIM),	intent(in)			::	KLEV
integer(kind=JPIM),	intent(in)			::	KMODE
real(kind=JPRB),	intent(in)			::	PDT0(KLON)
real(kind=JPRB),	intent(in)			::	PTAVE(KLON,KLEV)
real(kind=JPRB),	intent(in)			::	PTL(KLON,KLEV+1)
real(kind=JPRB),	intent(out)			::	PB(KLON,NSIL,KLEV+1)
real(kind=JPRB),	intent(out)			::	PBINT(KLON,KLEV+1)
real(kind=JPRB),	intent(out)			::	PBSUR(KLON,NSIL)
real(kind=JPRB),	intent(out)			::	PBTOP(KLON,NSIL)
real(kind=JPRB),	intent(out)			::	PDBSL(KLON,NSIL,KLEV*2)
real(kind=JPRB),	intent(out)			::	PGA(KLON,NIPD,2,KLEV)
real(kind=JPRB),	intent(out)			::	PGB(KLON,NIPD,2,KLEV)
real(kind=JPRB),	intent(out)			::	PGASUR(KLON,NIPD,2)
real(kind=JPRB),	intent(out)			::	PGBSUR(KLON,NIPD,2)
real(kind=JPRB),	intent(out)			::	PGATOP(KLON,NIPD,2)
real(kind=JPRB),	intent(out)			::	PGBTOP(KLON,NIPD,2)	0.1 ARGUMENTS ---------

Contents