subroutine rrtmg_sw_post::rrtmg_sw_post_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levr, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
ltp, |
|
|
integer, intent(in) |
nday, |
|
|
integer, intent(in) |
lm, |
|
|
integer, intent(in) |
kd, |
|
|
logical, intent(in) |
lsswr, |
|
|
logical, intent(in) |
swhtr, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
sfcalb1, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
sfcalb2, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
sfcalb3, |
|
|
real(kind=kind_phys), dimension(:), intent(in) |
sfcalb4, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htswc, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
htsw0, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nirbmdi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nirdfdi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
visbmdi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
visdfdi, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nirbmui, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
nirdfui, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
visbmui, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
visdfui, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
sfcdsw, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) |
sfcnsw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
htrsw, |
|
|
real(kind=kind_phys), dimension(:,:), intent(inout) |
swhc, |
|
|
type(cmpfsw_type), dimension(:), intent(inout) |
scmpsw, |
|
|
type(sfcfsw_type), dimension(:), intent(inout) |
sfcfsw, |
|
|
type(topfsw_type), dimension(:), intent(inout) |
topfsw, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |