14 tsfa, htlwc, htlw0, sfcflw, tsflw, sfcdlw, htrlw, lwhc, &
17 use machine,
only: kind_phys
22 integer,
intent(in) :: im, levs, ltp, lm, kd
23 logical,
intent(in) :: lslwr, lwhtr
24 real(kind=kind_phys),
dimension(im),
intent(in) :: tsfa
25 real(kind=kind_phys),
dimension(im, LM+LTP),
intent(in) :: htlwc
26 real(kind=kind_phys),
dimension(im, LM+LTP),
intent(in) :: htlw0
28 type(
sfcflw_type),
dimension(im),
intent(in) :: sfcflw
30 real(kind=kind_phys),
dimension(im),
intent(inout) :: tsflw, sfcdlw
31 real(kind=kind_phys),
dimension(im, levs),
intent(inout) :: htrlw, lwhc
32 character(len=*),
intent(out) :: errmsg
33 integer,
intent(out) :: errflg
50 htrlw(1:im,k) = htlwc(1:im,k1)
55 htrlw(1:im,k) = htrlw(1:im,lm)
62 lwhc(1:im,k) = htlw0(1:im,k1)
67 lwhc(1:im,k) = lwhc(1:im,lm)
73 sfcdlw(:) = sfcflw(:)%dnfxc
subroutine rrtmg_lw_post_run(im, levs, ltp, lm, kd, lslwr, lwhtr, tsfa, htlwc, htlw0, sfcflw, tsflw, sfcdlw, htrlw, lwhc, errmsg, errflg)