source: LMDZ6/trunk/libf/phylmd/ecrad/include/radiation_scheme.intfb.h @ 5408

Last change on this file since 5408 was 4773, checked in by idelkadi, 12 months ago
  • Update of Ecrad in LMDZ The same organization of the Ecrad offline version is retained in order to facilitate the updating of Ecrad in LMDZ and the comparison between online and offline results. version 1.6.1 of Ecrad (https://github.com/lguez/ecrad.git)
  • Implementation of the double call of Ecrad in LMDZ


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