| 1 | INTERFACE |
|---|
| 2 | SUBROUTINE RADLSW & |
|---|
| 3 | & ( KIDIA, KFDIA , KLON , KLEV , KMODE, KAER,& |
|---|
| 4 | & PRII0,& |
|---|
| 5 | & PAER , PALBD , PALBP, PAPH , PAP,& |
|---|
| 6 | & PCCNL, PCCNO,& |
|---|
| 7 | & PCCO2, PCLFR , PDP , PEMIS, PEMIW , PLSM , PMU0, POZON,& |
|---|
| 8 | & PQ , PQIWP , PQLWP, PQS , PQRAIN, PRAINT,& |
|---|
| 9 | & PTH , PT , PTS , PNBAS, PNTOP,& |
|---|
| 10 | & PREF_LIQ, PREF_ICE,& |
|---|
| 11 | & PEMIT, PFCT , PFLT , PFCS , PFLS,& |
|---|
| 12 | & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,& |
|---|
| 13 | & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,& |
|---|
| 14 | & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,& |
|---|
| 15 | & PTAU_LW,& |
|---|
| 16 | & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP, & |
|---|
| 17 | & PTOAB, PTOACB ) !FC |
|---|
| 18 | |
|---|
| 19 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
|---|
| 20 | USE YOERAD , ONLY : NLW, LRRTM ,LCCNL ,LCCNO, LDIFFC,& |
|---|
| 21 | & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,& |
|---|
| 22 | & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,& |
|---|
| 23 | & LEDBUG |
|---|
| 24 | ! Temporary fix waiting for cleaner interface (or not) |
|---|
| 25 | USE clesphys_mod_h, ONLY: NSW |
|---|
| 26 | !!include "clesphys.h" |
|---|
| 27 | INTEGER(KIND=JPIM),INTENT(IN) :: KLON |
|---|
| 28 | INTEGER(KIND=JPIM),INTENT(IN) :: KLEV |
|---|
| 29 | INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA |
|---|
| 30 | INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA |
|---|
| 31 | INTEGER(KIND=JPIM),INTENT(IN) :: KMODE |
|---|
| 32 | INTEGER(KIND=JPIM),INTENT(IN) :: KAER |
|---|
| 33 | REAL(KIND=JPRB) ,INTENT(IN) :: PRII0 |
|---|
| 34 | REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV) |
|---|
| 35 | REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW) |
|---|
| 36 | REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW) |
|---|
| 37 | REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1) |
|---|
| 38 | REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV) |
|---|
| 39 | REAL(KIND=JPRB) ,INTENT(IN) :: PCCNL(KLON) |
|---|
| 40 | REAL(KIND=JPRB) ,INTENT(IN) :: PCCNO(KLON) |
|---|
| 41 | REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2 |
|---|
| 42 | REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR(KLON,KLEV) |
|---|
| 43 | REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV) |
|---|
| 44 | REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON) |
|---|
| 45 | REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON) |
|---|
| 46 | REAL(KIND=JPRB) ,INTENT(IN) :: PLSM(KLON) |
|---|
| 47 | REAL(KIND=JPRB) ,INTENT(IN) :: PMU0(KLON) |
|---|
| 48 | REAL(KIND=JPRB) ,INTENT(IN) :: POZON(KLON,KLEV) |
|---|
| 49 | REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV) |
|---|
| 50 | REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP(KLON,KLEV) |
|---|
| 51 | REAL(KIND=JPRB) ,INTENT(IN) :: PQLWP(KLON,KLEV) |
|---|
| 52 | REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV) |
|---|
| 53 | REAL(KIND=JPRB) :: PQRAIN(KLON,KLEV) |
|---|
| 54 | REAL(KIND=JPRB) :: PRAINT(KLON,KLEV) |
|---|
| 55 | REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1) |
|---|
| 56 | REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV) |
|---|
| 57 | REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON) |
|---|
| 58 | REAL(KIND=JPRB) ,INTENT(IN) :: PNBAS(KLON) |
|---|
| 59 | REAL(KIND=JPRB) ,INTENT(IN) :: PNTOP(KLON) |
|---|
| 60 | REAL(KIND=JPRB) ,INTENT(IN) :: PREF_LIQ(KLON,KLEV) |
|---|
| 61 | REAL(KIND=JPRB) ,INTENT(IN) :: PREF_ICE(KLON,KLEV) |
|---|
| 62 | LOGICAL ,INTENT(IN) :: LRDUST |
|---|
| 63 | REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW) |
|---|
| 64 | REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW) |
|---|
| 65 | REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW) |
|---|
| 66 | !--C.Kleinschmitt |
|---|
| 67 | REAL(KIND=JPRB) ,INTENT(IN) :: PTAU_LW(KLON,KLEV,NLW) |
|---|
| 68 | !--end |
|---|
| 69 | REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON) |
|---|
| 70 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFCT(KLON,KLEV+1) |
|---|
| 71 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFLT(KLON,KLEV+1) |
|---|
| 72 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFCS(KLON,KLEV+1) |
|---|
| 73 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFLS(KLON,KLEV+1) |
|---|
| 74 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSOD(KLON) |
|---|
| 75 | REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON) |
|---|
| 76 | REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON) |
|---|
| 77 | REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON) |
|---|
| 78 | REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON), PTINCF(KLON) |
|---|
| 79 | REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIR(KLON,NSW) |
|---|
| 80 | REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIF(KLON,NSW) |
|---|
| 81 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNN(KLON) |
|---|
| 82 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNV(KLON) |
|---|
| 83 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down) |
|---|
| 84 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down) |
|---|
| 85 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDN(KLON,KLEV+1) ! SW total sky flux down |
|---|
| 86 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUP(KLON,KLEV+1) ! SW total sky flux up |
|---|
| 87 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCDN(KLON,KLEV+1) ! SW clear sky flux down |
|---|
| 88 | REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCUP(KLON,KLEV+1) ! SW clear sky flux up |
|---|
| 89 | !FC |
|---|
| 90 | REAL(KIND=JPRB) ,INTENT(OUT) :: PTOAB(KLON,NLW) ! LW band all sky flux up |
|---|
| 91 | REAL(KIND=JPRB) ,INTENT(OUT) :: PTOACB(KLON,NLW) ! LW band clear sky flux up |
|---|
| 92 | END SUBROUTINE RADLSW |
|---|
| 93 | END INTERFACE |
|---|
