| 1 | interface |
|---|
| 2 | SUBROUTINE RADIATION_SCHEME & |
|---|
| 3 | & (YRADIATION,KIDIA, KFDIA, KLON, KLEV, KAEROSOL, & |
|---|
| 4 | & PSOLAR_IRRADIANCE, & |
|---|
| 5 | & PMU0, PTEMPERATURE_SKIN, PALBEDO_DIF, PALBEDO_DIR, & |
|---|
| 6 | & PSPECTRALEMISS, & |
|---|
| 7 | & PCCN_LAND, PCCN_SEA, & |
|---|
| 8 | & PGELAM, PGEMU, PLAND_SEA_MASK, & |
|---|
| 9 | & PPRESSURE, PTEMPERATURE, & |
|---|
| 10 | & PPRESSURE_H, PTEMPERATURE_H, & |
|---|
| 11 | & PQ, PCO2, PCH4, PN2O, PNO2, PCFC11, PCFC12, PHCFC22, PCCL4, PO3, & |
|---|
| 12 | & PCLOUD_FRAC, PQ_LIQUID, PQ_ICE, PQ_RAIN, PQ_SNOW, & |
|---|
| 13 | & PAEROSOL_OLD, PAEROSOL, & |
|---|
| 14 | & PFLUX_SW, PFLUX_LW, PFLUX_SW_CLEAR, PFLUX_LW_CLEAR, & |
|---|
| 15 | & PFLUX_SW_DN, PFLUX_LW_DN, PFLUX_SW_DN_CLEAR, PFLUX_LW_DN_CLEAR, & |
|---|
| 16 | & PFLUX_DIR, PFLUX_DIR_CLEAR, PFLUX_DIR_INTO_SUN, & |
|---|
| 17 | & PFLUX_UV, PFLUX_PAR, PFLUX_PAR_CLEAR, & |
|---|
| 18 | & PFLUX_SW_DN_TOA, PEMIS_OUT, PLWDERIVATIVE, & |
|---|
| 19 | & PSWDIFFUSEBAND, PSWDIRECTBAND) |
|---|
| 20 | use parkind1 , only:& |
|---|
| 21 | & jpim,& |
|---|
| 22 | & jprb |
|---|
| 23 | use radiation_setup, only:& |
|---|
| 24 | & tradiation |
|---|
| 25 | TYPE(TRADIATION), INTENT(IN) :: YRADIATION |
|---|
| 26 | INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA |
|---|
| 27 | INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA |
|---|
| 28 | INTEGER(KIND=JPIM),INTENT(IN) :: KLON |
|---|
| 29 | INTEGER(KIND=JPIM),INTENT(IN) :: KLEV |
|---|
| 30 | INTEGER(KIND=JPIM),INTENT(IN) :: KAEROSOL |
|---|
| 31 | REAL(KIND=JPRB), INTENT(IN) :: PSOLAR_IRRADIANCE |
|---|
| 32 | REAL(KIND=JPRB), INTENT(IN) :: PMU0(KLON) |
|---|
| 33 | REAL(KIND=JPRB), INTENT(IN) :: PTEMPERATURE_SKIN(KLON) |
|---|
| 34 | REAL(KIND=JPRB), INTENT(IN) :: PALBEDO_DIF(KLON,YRADIATION%YRERAD%NSW) |
|---|
| 35 | REAL(KIND=JPRB), INTENT(IN) :: PALBEDO_DIR(KLON,YRADIATION%YRERAD%NSW) |
|---|
| 36 | REAL(KIND=JPRB), INTENT(IN) :: PSPECTRALEMISS(KLON,YRADIATION%YRERAD%NLWEMISS) |
|---|
| 37 | REAL(KIND=JPRB), INTENT(IN) :: PGELAM(KLON) |
|---|
| 38 | REAL(KIND=JPRB), INTENT(IN) :: PGEMU(KLON) |
|---|
| 39 | REAL(KIND=JPRB), INTENT(IN) :: PLAND_SEA_MASK(KLON) |
|---|
| 40 | REAL(KIND=JPRB), INTENT(IN) :: PPRESSURE(KLON,KLEV) |
|---|
| 41 | REAL(KIND=JPRB), INTENT(IN) :: PTEMPERATURE(KLON,KLEV) |
|---|
| 42 | REAL(KIND=JPRB), INTENT(IN) :: PPRESSURE_H(KLON,KLEV+1) |
|---|
| 43 | REAL(KIND=JPRB), INTENT(IN) :: PTEMPERATURE_H(KLON,KLEV+1) |
|---|
| 44 | REAL(KIND=JPRB), INTENT(IN) :: PQ(KLON,KLEV) |
|---|
| 45 | REAL(KIND=JPRB), INTENT(IN) :: PCO2(KLON,KLEV) |
|---|
| 46 | REAL(KIND=JPRB), INTENT(IN) :: PCH4(KLON,KLEV) |
|---|
| 47 | REAL(KIND=JPRB), INTENT(IN) :: PN2O(KLON,KLEV) |
|---|
| 48 | REAL(KIND=JPRB), INTENT(IN) :: PNO2(KLON,KLEV) |
|---|
| 49 | REAL(KIND=JPRB), INTENT(IN) :: PCFC11(KLON,KLEV) |
|---|
| 50 | REAL(KIND=JPRB), INTENT(IN) :: PCFC12(KLON,KLEV) |
|---|
| 51 | REAL(KIND=JPRB), INTENT(IN) :: PHCFC22(KLON,KLEV) |
|---|
| 52 | REAL(KIND=JPRB), INTENT(IN) :: PCCL4(KLON,KLEV) |
|---|
| 53 | REAL(KIND=JPRB), INTENT(IN) :: PO3(KLON,KLEV) |
|---|
| 54 | REAL(KIND=JPRB), INTENT(IN) :: PCLOUD_FRAC(KLON,KLEV) |
|---|
| 55 | REAL(KIND=JPRB), INTENT(IN) :: PQ_LIQUID(KLON,KLEV) |
|---|
| 56 | REAL(KIND=JPRB), INTENT(IN) :: PQ_ICE(KLON,KLEV) |
|---|
| 57 | REAL(KIND=JPRB), INTENT(IN) :: PQ_RAIN(KLON,KLEV) |
|---|
| 58 | REAL(KIND=JPRB), INTENT(IN) :: PQ_SNOW(KLON,KLEV) |
|---|
| 59 | REAL(KIND=JPRB), INTENT(IN) :: PAEROSOL_OLD(KLON,6,KLEV) |
|---|
| 60 | REAL(KIND=JPRB), INTENT(IN) :: PAEROSOL(KLON,KLEV,KAEROSOL) |
|---|
| 61 | REAL(KIND=JPRB), INTENT(IN) :: PCCN_LAND(KLON) |
|---|
| 62 | REAL(KIND=JPRB), INTENT(IN) :: PCCN_SEA(KLON) |
|---|
| 63 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_SW(KLON,KLEV+1) |
|---|
| 64 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_LW(KLON,KLEV+1) |
|---|
| 65 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_SW_CLEAR(KLON,KLEV+1) |
|---|
| 66 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_LW_CLEAR(KLON,KLEV+1) |
|---|
| 67 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_SW_DN(KLON) |
|---|
| 68 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_LW_DN(KLON) |
|---|
| 69 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_SW_DN_CLEAR(KLON) |
|---|
| 70 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_LW_DN_CLEAR(KLON) |
|---|
| 71 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_DIR(KLON) |
|---|
| 72 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_DIR_CLEAR(KLON) |
|---|
| 73 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_DIR_INTO_SUN(KLON) |
|---|
| 74 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_UV(KLON) |
|---|
| 75 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_PAR(KLON) |
|---|
| 76 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_PAR_CLEAR(KLON) |
|---|
| 77 | REAL(KIND=JPRB), INTENT(OUT) :: PFLUX_SW_DN_TOA(KLON) |
|---|
| 78 | REAL(KIND=JPRB), INTENT(OUT) :: PEMIS_OUT(KLON) |
|---|
| 79 | REAL(KIND=JPRB), INTENT(OUT) :: PLWDERIVATIVE(KLON,KLEV+1) |
|---|
| 80 | REAL(KIND=JPRB), INTENT(OUT) :: PSWDIFFUSEBAND(KLON,YRADIATION%YRERAD%NSW) |
|---|
| 81 | REAL(KIND=JPRB), INTENT(OUT) :: PSWDIRECTBAND (KLON,YRADIATION%YRERAD%NSW) |
|---|
| 82 | END SUBROUTINE RADIATION_SCHEME |
|---|
| 83 | end interface |
|---|
