LWTTM Subroutine

subroutine LWTTM(KIDIA, KFDIA, KLON, PGA, PGB, PUU1, PUU2, PTT)

*** LWTTM - LONGWAVE TRANSMISSION FUNCTIONS

• INTERFACE. ---------- LWTTM IS CALLED FROM LWVD

   2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
           ---------------------------------------------------
  

CH4 IN INTERVAL 800-970 + 1110-1250 CM-1

N2O IN INTERVAL 800-970 + 1110-1250 CM-1

CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1

N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1

CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1

CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1

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)			::	PGA(KLON,8,2)
real(kind=JPRB),	intent(in)			::	PGB(KLON,8,2)
real(kind=JPRB),	intent(in)			::	PUU1(KLON,NUA)
real(kind=JPRB),	intent(in)			::	PUU2(KLON,NUA)
real(kind=JPRB),	intent(out)			::	PTT(KLON,NTRA)	0.1 ARGUMENTS ---------

Contents