LW Subroutine

subroutine LW(KIDIA, KFDIA, KLON, KLEV, KMODE, PCCO2, PCLDLD, PCLDLU, PDP, PDT0, PEMIS, PEMIW, PPMB, PQOF, PTL, PAER, PTAVE, PVIEW, PWV, PEMIT, PFLUX, PFLUC)

*** LW - ORGANIZES THE LONGWAVE CALCULATIONS

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

   1.    INITIALIZATION
          --------------
  
   1.1   COMPUTES ABSORBER AMOUNTS
          -------------------------
  
   2.    COMPUTES PLANCK FUNCTIONS
          -------------------------
          PERFORMS THE VERTICAL INTEGRATION
          ---------------------------------
  
   4.    INTRODUCES THE EFFECTS OF CLOUDS
          --------------------------------
  

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)			::	PCCO2
real(kind=JPRB),	intent(in)			::	PCLDLD(KLON,KLEV)
real(kind=JPRB),	intent(in)			::	PCLDLU(KLON,KLEV)
real(kind=JPRB),	intent(in)			::	PDP(KLON,KLEV)
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)			::	PPMB(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PQOF(KLON,KLEV)
real(kind=JPRB),	intent(in)			::	PTL(KLON,KLEV+1)
real(kind=JPRB),	intent(in)			::	PAER(KLON,6,KLEV)
real(kind=JPRB),	intent(in)			::	PTAVE(KLON,KLEV)
real(kind=JPRB),	intent(in)			::	PVIEW(KLON)
real(kind=JPRB),	intent(in)			::	PWV(KLON,KLEV)
real(kind=JPRB),	intent(inout)			::	PEMIT(KLON)
real(kind=JPRB),	intent(out)			::	PFLUX(KLON,2,KLEV+1)
real(kind=JPRB),	intent(inout)			::	PFLUC(KLON,2,KLEV+1)	0.1 ARGUMENTS ---------

Contents