LWBV Subroutine

subroutine LWBV(KIDIA, KFDIA, KLON, KLEV, KMODE, PDT0, PEMIS, PEMIW, PTL, PTAVE, PEMIT, PFLUC, PABCU, PBINT, PBSUI, PCNTRB)

*** LWBV - COMPUTE PLANCK FUNC., PERF. VERT. INTEGRATION

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

   2.    COMPUTES PLANCK FUNCTIONS
          -------------------------
  
   3.    PERFORMS THE VERTICAL INTEGRATION
          ---------------------------------
  

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)			::	PEMIS(KLON)
real(kind=JPRB),	intent(in)			::	PEMIW(KLON)
real(kind=JPRB),	intent(in)			::	PTL(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PTAVE(KLON,KLEV)
real(kind=JPRB),	intent(out)			::	PEMIT(KLON)
real(kind=JPRB),	intent(out)			::	PFLUC(KLON,2,KLEV+1)
real(kind=JPRB),	intent(in)			::	PABCU(KLON,NUA,3*KLEV+1)
real(kind=JPRB),	intent(inout)			::	PBINT(KLON,KLEV+1)
real(kind=JPRB),	intent(out)			::	PBSUI(KLON)
real(kind=JPRB),	intent(out)			::	PCNTRB(KLON,KLEV+1,KLEV+1)	0.1 ARGUMENTS ---------

Contents