LWV Subroutine

subroutine LWV(KIDIA, KFDIA, KLON, KLEV, KUAER, KTRAER, PABCU, PB, PBINT, PBSUR, PBTOP, PDBSL, PEMIS, PEMIW, PGA, PGB, PGASUR, PGBSUR, PGATOP, PGBTOP, PCNTRB, PFLUC)

*** LWV - LONGWAVE RADIATION, VERTICAL INTEGRATION

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

   1.    INITIALIZATION
          --------------
  
   1.1     INITIALIZE LAYER CONTRIBUTIONS
            ------------------------------
  
   2.      VERTICAL INTEGRATION
            --------------------
  
   2.1     CONTRIBUTION FROM ADJACENT LAYERS
            ---------------------------------
  
   2.2     CONTRIBUTION FROM DISTANT LAYERS
            ---------------------------------
  
   2.3     EXCHANGE WITH THE BOUNDARIES
            ----------------------------
  

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
integer(kind=JPIM),	intent(in)			::	KTRAER
real(kind=JPRB),	intent(in)			::	PABCU(KLON,NUA,3*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)			::	PDBSL(KLON,NSIL,KLEV*2)
real(kind=JPRB),	intent(in)			::	PEMIS(KLON)
real(kind=JPRB),	intent(in)			::	PEMIW(KLON)
real(kind=JPRB),	intent(in)			::	PGA(KLON,NIPD,2,KLEV)
real(kind=JPRB),	intent(in)			::	PGB(KLON,NIPD,2,KLEV)
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(out)			::	PCNTRB(KLON,KLEV+1,KLEV+1)
real(kind=JPRB),	intent(out)			::	PFLUC(KLON,2,KLEV+1)	0.1 ARGUMENTS ---------

Contents