SWDE Subroutine

subroutine SWDE(KIDIA, KFDIA, KLON, PGG, PREF, PRMUZ, PTO1, PW, PRE1, PRE2, PTR1, PTR2)

*** SWDE - DELTA-EDDINGTON IN A CLOUDY LAYER

• INTERFACE. ---------- SWDE IS CALLED BY SWR, SWNI

  0.1 ARGUMENTS ---------

   1.      DELTA-EDDINGTON CALCULATIONS
  
   1.2     WITHOUT REFLECTION FROM THE UNDERLYING LAYER
  
   1.3     WITH REFLECTION FROM THE UNDERLYING LAYER
  

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=JPIM),	intent(in)			::	KIDIA
integer(kind=JPIM),	intent(in)			::	KFDIA
integer(kind=JPIM),	intent(in)			::	KLON
real(kind=JPRB),	intent(in)			::	PGG(KLON)
real(kind=JPRB),	intent(in)			::	PREF(KLON)
real(kind=JPRB),	intent(in)			::	PRMUZ(KLON)
real(kind=JPRB),	intent(in)			::	PTO1(KLON)
real(kind=JPRB),	intent(in)			::	PW(KLON)
real(kind=JPRB),	intent(out)			::	PRE1(KLON)
real(kind=JPRB),	intent(out)			::	PRE2(KLON)
real(kind=JPRB),	intent(out)			::	PTR1(KLON)
real(kind=JPRB),	intent(out)			::	PTR2(KLON)

Contents