LWVD Subroutine

subroutine LWVD(KIDIA, KFDIA, KLON, KLEV, KTRAER, PABCU, PDBDT, PGA, PGB, PCNTRB, PDISD, PDISU, PDWFSU)

*** LWVD - L.W., VERTICAL INTEGRATION, DISTANT LAYERS

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

   1.    INITIALIZATION
          --------------
  
   1.1     INITIALIZE LAYER CONTRIBUTIONS
            ------------------------------
  
   1.2     INITIALIZE TRANSMISSION FUNCTIONS
            ---------------------------------
  
   2.      VERTICAL INTEGRATION
            --------------------
  
   2.2     CONTRIBUTION FROM DISTANT LAYERS
            ---------------------------------
  
   2.2.1   DISTANT AND ABOVE LAYERS
            ------------------------
  
   2.2.2   FIRST UPPER LEVEL
            -----------------
  
   2.2.3   HIGHER UP
            ---------
  
   2.2.4   DISTANT AND BELOW LAYERS
            ------------------------
  
   2.2.5   FIRST LOWER LEVEL
            -----------------
  
   2.2.6   DOWN BELOW
            ----------
  

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)			::	KTRAER
real(kind=JPRB),	intent(in)			::	PABCU(KLON,NUA,3*KLEV+1)
real(kind=JPRB),	intent(in)			::	PDBDT(KLON,NSIL,KLEV)
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)			::	PCNTRB(KLON,KLEV+1,KLEV+1)
real(kind=JPRB),	intent(out)			::	PDISD(KLON,KLEV+1)
real(kind=JPRB),	intent(out)			::	PDISU(KLON,KLEV+1)
real(kind=JPRB),	intent(inout)			::	PDWFSU(KLON,NSIL)	0.1 ARGUMENTS ---------

Contents