LWVB Subroutine

subroutine LWVB(KIDIA, KFDIA, KLON, KLEV, KUAER, PABCU, PADJD, PADJU, PB, PBINT, PBSUR, PBTOP, PDISD, PDISU, PEMIS, PEMIW, PGASUR, PGBSUR, PGATOP, PGBTOP, PDWFSU, PFLUC)

*** LWVB - L.W., VERTICAL INTEGRATION, EXCHANGE WITH BOUNDARIES

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

   1.    INITIALIZATION
          --------------
  
   1.2     INITIALIZE TRANSMISSION FUNCTIONS
            ---------------------------------
  
   2.      VERTICAL INTEGRATION
            --------------------
  
   2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE
            -----------------------------------
  
   2.5     EXCHANGE WITH LOWER LIMIT
            -------------------------
  

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)			::	KUAER
real(kind=JPRB),	intent(in)			::	PABCU(KLON,NUA,3*KLEV+1)
real(kind=JPRB),	intent(in)			::	PADJD(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PADJU(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PB(KLON,NSIL,KLEV+1)
real(kind=JPRB),	intent(in)			::	PBINT(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PBSUR(KLON,NSIL)
real(kind=JPRB),	intent(in)			::	PBTOP(KLON,NSIL)
real(kind=JPRB),	intent(in)			::	PDISD(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PDISU(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PEMIS(KLON)
real(kind=JPRB),	intent(in)			::	PEMIW(KLON)
real(kind=JPRB),	intent(in)			::	PGASUR(KLON,NIPD,2)
real(kind=JPRB),	intent(in)			::	PGBSUR(KLON,NIPD,2)
real(kind=JPRB),	intent(in)			::	PGATOP(KLON,NIPD,2)
real(kind=JPRB),	intent(in)			::	PGBTOP(KLON,NIPD,2)
real(kind=JPRB),	intent(inout)			::	PDWFSU(KLON,NSIL)
real(kind=JPRB),	intent(out)			::	PFLUC(KLON,2,KLEV+1)	0.1 ARGUMENTS ---------

Contents