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, |
|
|
real(kind=kind_phys), dimension(:), intent(inout) | sfcdswc, |
|
|
character(len=*), intent(out) | errmsg, |
|
|
integer, intent(out) | errflg ) |