doxy_201512/html/rrtm__ecrt__140gp_8intfb_8h_source.html

 INTERFACE

 SUBROUTINE RRTM_ECRT_140GP &

  & ( K_IPLON, klon , klev, kcld,&

  & paer , paph , pap,&

  & pts  , pth  , pt,&

  & P_ZEMIS, P_ZEMIW,&

  & pq   , pcco2, pozn, pcldf, ptaucld, ptclear,&

  & P_CLDFRAC,P_TAUCLD,&

  & PTAU_LW,&

  & P_COLDRY,P_WKL,P_WX,&

  & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT )

 USE PARKIND1  ,ONLY : JPIM     ,JPRB

 USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&

  & JPINPX

 USE YOERAD   , ONLY : NLW      ,NOVLP

 USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12

 USE YOESW    , ONLY : RAER

 INTEGER(KIND=JPIM),INTENT(IN) :: KLON

 INTEGER(KIND=JPIM),INTENT(IN) :: KLEV

 INTEGER(KIND=JPIM),INTENT(IN) :: K_IPLON

 INTEGER(KIND=JPIM),INTENT(OUT) :: KCLD

 REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)

 REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)

 REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)

 REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)

 REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)

 REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)

 REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)

 REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)

 REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)

 REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2

 REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)

 REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)

 REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)

 !--C.Kleinschmitt

 REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_LW(KLON,KLEV,NLW) ! LW Optical depth of aerosols

 !--end

 REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_CLDFRAC(JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUCLD(JPLAY,JPBAND)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLDRY(JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_WKL(JPINPX,JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_WX(JPXSEC,JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUAERL(JPLAY,JPBAND)

 REAL(KIND=JPRB) ,INTENT(OUT) :: PAVEL(JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAVEL(JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: PZ(0:JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_TZ(0:JPLAY)

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_TBOUND

 INTEGER(KIND=JPIM),INTENT(OUT) :: K_NLAYERS

 REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISS(JPBAND)

 INTEGER(KIND=JPIM),INTENT(OUT) :: K_IREFLECT

 END SUBROUTINE RRTM_ECRT_140GP

 END INTERFACE

klon
INTERFACE SUBROUTINE RRTM_ECRT_140GP klon
Definition: rrtm_ecrt_140gp.intfb.h:3

pcco2
INTERFACE SUBROUTINE RRTM_ECRT_140GP pcco2
Definition: rrtm_ecrt_140gp.intfb.h:3

YOESW

PARRRTM

PAPH
INTERFACE SUBROUTINE RADLSW PAPH
Definition: radlsw.intfb.h:3

KLON
INTERFACE SUBROUTINE LW KLON
Definition: lw.intfb.h:3

P_ZEMIW
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_ZEMIW
Definition: rrtm_ecrt_140gp.intfb.h:3

pth
INTERFACE SUBROUTINE RRTM_ECRT_140GP pth
Definition: rrtm_ecrt_140gp.intfb.h:3

P_TBOUND
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TBOUND
Definition: rrtm_ecrt_140gp.intfb.h:3

JPBAND
INTERFACE SUBROUTINE JPRB USE JPBAND
Definition: rrtm_gasabs1a_140gp.intfb.h:6

RN2O
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE &&JPINPX USE NOVLP USE RN2O
Definition: rrtm_ecrt_140gp.intfb.h:3

RCFC11
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE &&JPINPX USE NOVLP USE RCFC11
Definition: rrtm_ecrt_140gp.intfb.h:3

REAL
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire REAL(kind=8) RCO2

P_COLDRY
INTERFACE SUBROUTINE RRTM_ECRT_140GP && P_COLDRY
Definition: rrtm_ecrt_140gp.intfb.h:3

P_SEMISS
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_SEMISS
Definition: rrtm_ecrt_140gp.intfb.h:3

PARKIND1

P_CLDFRAC
INTERFACE SUBROUTINE RRTM_ECRT_140GP && P_CLDFRAC
Definition: rrtm_ecrt_140gp.intfb.h:3

YOERDI

JPIM
ONLY JPIM
Definition: tsmbkind.h:5

INTEGER
INTERFACE SUBROUTINE JPRB INTEGER(KIND=JPIM)

P_WKL
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_WKL
Definition: rrtm_ecrt_140gp.intfb.h:3

KLEV
INTERFACE SUBROUTINE LW KLEV
Definition: lw.intfb.h:3

ONLY
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE ONLY
Definition: rrtm_ecrt_140gp.intfb.h:3

PTH
INTERFACE SUBROUTINE RADLSW && PTH
Definition: radlsw.intfb.h:3

P_TAUCLD
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TAUCLD
Definition: rrtm_ecrt_140gp.intfb.h:3

pozn
INTERFACE SUBROUTINE RRTM_ECRT_140GP pozn
Definition: rrtm_ecrt_140gp.intfb.h:3

PAER
INTERFACE SUBROUTINE LW && PAER
Definition: lw.intfb.h:3

RCH4
!$Id ok_orolf LOGICAL ok_limitvrai LOGICAL ok_all_xml INTEGER iflag_ener_conserv REAL solaire RCH4
Definition: clesphys.h:17

P_TZ
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TZ
Definition: rrtm_ecrt_140gp.intfb.h:3

POZN
INTERFACE SUBROUTINE RRTM_RRTM_140GP POZN
Definition: rrtm_rrtm_140gp.intfb.h:3

PAVEL
INTERFACE SUBROUTINE RRTM_ECRT_140GP PAVEL
Definition: rrtm_ecrt_140gp.intfb.h:3

K_NLAYERS
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_NLAYERS
Definition: rrtm_ecrt_140gp.intfb.h:3

JPXSEC
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE JPXSEC
Definition: rrtm_ecrt_140gp.intfb.h:3

ptclear
INTERFACE SUBROUTINE RRTM_ECRT_140GP ptclear
Definition: rrtm_ecrt_140gp.intfb.h:3

PTAUCLD
INTERFACE SUBROUTINE RRTM_RRTM_140GP PTAUCLD
Definition: rrtm_rrtm_140gp.intfb.h:3

PCCO2
INTERFACE SUBROUTINE LW && PCCO2
Definition: lw.intfb.h:3

P_WX
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_WX
Definition: rrtm_ecrt_140gp.intfb.h:3

NOVLP
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NOVLP
Definition: naerad.h:3

P_ZEMIS
INTERFACE SUBROUTINE RRTM_ECRT_140GP && P_ZEMIS
Definition: rrtm_ecrt_140gp.intfb.h:3

PZ
INTERFACE SUBROUTINE RRTM_ECRT_140GP PZ
Definition: rrtm_ecrt_140gp.intfb.h:3

JPRB
ONLY JPRB
Definition: tsmbkind.h:5

pcldf
INTERFACE SUBROUTINE RRTM_ECRT_140GP pcldf
Definition: rrtm_ecrt_140gp.intfb.h:3

PCLDF
INTERFACE SUBROUTINE RRTM_RRTM_140GP && PCLDF
Definition: rrtm_rrtm_140gp.intfb.h:3

P_TAVEL
INTERFACE SUBROUTINE RRTM_ECRT_140GP P_TAVEL
Definition: rrtm_ecrt_140gp.intfb.h:3

P_TAUAERL
INTERFACE SUBROUTINE RRTM_ECRT_140GP && P_TAUAERL
Definition: rrtm_ecrt_140gp.intfb.h:3

paph
INTERFACE SUBROUTINE RRTM_ECRT_140GP paph
Definition: rrtm_ecrt_140gp.intfb.h:3

YOERAD

klev
INTERFACE SUBROUTINE RRTM_ECRT_140GP klev
Definition: rrtm_ecrt_140gp.intfb.h:3

PT
INTERFACE SUBROUTINE RADLSW PT
Definition: radlsw.intfb.h:3

NLW
NAMELIST NAERAD LONEWSW LSRTM LNOTROAER LRADONDEM NRADLP NLAYINH NLW
Definition: naerad.h:3

PTAU_LW
INTERFACE SUBROUTINE RRTM_ECRT_140GP && PTAU_LW
Definition: rrtm_ecrt_140gp.intfb.h:3

PAP
INTERFACE SUBROUTINE RADLSW PAP
Definition: radlsw.intfb.h:3

PTS
INTERFACE SUBROUTINE RADLSW PTS
Definition: radlsw.intfb.h:3

kcld
INTERFACE SUBROUTINE RRTM_ECRT_140GP kcld
Definition: rrtm_ecrt_140gp.intfb.h:3

pt
INTERFACE SUBROUTINE RRTM_ECRT_140GP pt
Definition: rrtm_ecrt_140gp.intfb.h:3

ptaucld
INTERFACE SUBROUTINE RRTM_ECRT_140GP ptaucld
Definition: rrtm_ecrt_140gp.intfb.h:3

pap
INTERFACE SUBROUTINE RRTM_ECRT_140GP pap
Definition: rrtm_ecrt_140gp.intfb.h:3

paer
INTERFACE SUBROUTINE RRTM_ECRT_140GP && paer
Definition: rrtm_ecrt_140gp.intfb.h:3

pts
INTERFACE SUBROUTINE RRTM_ECRT_140GP && pts
Definition: rrtm_ecrt_140gp.intfb.h:3

PQ
INTERFACE SUBROUTINE RADLSW && PQ
Definition: radlsw.intfb.h:3

JPLAY
INTERFACE SUBROUTINE RRTM_ECRT_140GP K_IREFLECT USE JPRB USE JPLAY
Definition: rrtm_ecrt_140gp.intfb.h:3

K_IPLON
INTERFACE SUBROUTINE RRTM_ECRT_140GP && K_IPLON
Definition: rrtm_ecrt_140gp.intfb.h:3

pq
INTERFACE SUBROUTINE RRTM_ECRT_140GP && pq
Definition: rrtm_ecrt_140gp.intfb.h:3