|
integer,
|
intent(in) |
|
|
:: |
nlev |
|
|
integer,
|
intent(in) |
|
|
:: |
istartcol |
|
|
integer,
|
intent(in) |
|
|
:: |
iendcol |
|
|
type(config_type),
|
intent(in) |
|
|
:: |
config |
|
|
real(kind=jprb),
|
intent(in), |
|
dimension(config%n_g_lw, nlev, istartcol:iendcol)
|
:: |
od |
|
|
real(kind=jprb),
|
intent(in), |
|
dimension(config%n_g_lw_if_scattering, nlev, istartcol:iendcol)
|
:: |
ssa |
|
|
real(kind=jprb),
|
intent(in), |
|
dimension(config%n_g_lw_if_scattering, nlev, istartcol:iendcol)
|
:: |
g |
|
|
real(kind=jprb),
|
intent(in), |
|
dimension(config%n_g_lw,nlev+1,istartcol:iendcol)
|
:: |
planck_hl |
|
|
real(kind=jprb),
|
intent(in), |
|
dimension(config%n_g_lw, istartcol:iendcol)
|
:: |
emission |
|
|
real(kind=jprb),
|
intent(in), |
|
dimension(config%n_g_lw, istartcol:iendcol)
|
:: |
albedo |
|
|
type(flux_type),
|
intent(inout) |
|
|
:: |
flux |
|