LWVN Subroutine

subroutine LWVN(KIDIA, KFDIA, KLON, KLEV, KUAER, PABCU, PDBSL, PGA, PGB, PADJD, PADJU, PCNTRB, PDBDT, PDWFSU)

*** LWVN - L.W., VERTICAL INTEGRATION, NEARBY LAYERS

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

   1.    INITIALIZATION
          --------------
  
   1.1     INITIALIZE LAYER CONTRIBUTIONS
            ------------------------------
  
   1.2     INITIALIZE TRANSMISSION FUNCTIONS
            ---------------------------------
  
   2.      VERTICAL INTEGRATION
            --------------------
  
   2.1     CONTRIBUTION FROM ADJACENT LAYERS
            ---------------------------------
  
   2.1.1   DOWNWARD LAYERS
            ---------------
  
   2.1.2   UPWARD LAYERS
            -------------
  

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)			::	PDBSL(KLON,NSIL,KLEV*2)
real(kind=JPRB),	intent(in)			::	PGA(KLON,NIPD,2,KLEV)
real(kind=JPRB),	intent(in)			::	PGB(KLON,NIPD,2,KLEV)
real(kind=JPRB),	intent(out)			::	PADJD(KLON,KLEV+1)
real(kind=JPRB),	intent(out)			::	PADJU(KLON,KLEV+1)
real(kind=JPRB),	intent(out)			::	PCNTRB(KLON,KLEV+1,KLEV+1)
real(kind=JPRB),	intent(out)			::	PDBDT(KLON,NSIL,KLEV)
real(kind=JPRB),	intent(inout)			::	PDWFSU(KLON,NSIL)	0.1 ARGUMENTS ---------

Contents