subroutine gfs_rrtmg_post::gfs_rrtmg_post_run | ( | integer, intent(in) | im, |
integer, intent(in) | km, | ||
integer, intent(in) | kmp1, | ||
integer, intent(in) | lm, | ||
integer, intent(in) | ltp, | ||
integer, intent(in) | kt, | ||
integer, intent(in) | kb, | ||
integer, intent(in) | kd, | ||
integer, intent(in) | nspc1, | ||
integer, intent(in) | nfxr, | ||
integer, intent(in) | nday, | ||
logical, intent(in) | lsswr, | ||
logical, intent(in) | lslwr, | ||
logical, intent(in) | lssav, | ||
real(kind=kind_phys), intent(in) | fhlwr, | ||
real(kind=kind_phys), intent(in) | fhswr, | ||
real(kind=kind_phys), intent(in) | raddt, | ||
real(kind=kind_phys), dimension(im), intent(in) | coszen, | ||
real(kind=kind_phys), dimension(im), intent(in) | coszdg, | ||
real(kind=kind_phys), dimension(im,kmp1), intent(in) | prsi, | ||
real(kind=kind_phys), dimension(im,km), intent(in) | tgrs, | ||
real(kind=kind_phys), dimension(im,nspc1), intent(in) | aerodp, | ||
real(kind=kind_phys), dimension(im,5), intent(in) | cldsa, | ||
integer, dimension(im,3), intent(in) | mtopa, | ||
integer, dimension(im,3), intent(in) | mbota, | ||
real(kind=kind_phys), dimension(im,lm+ltp), intent(in) | clouds1, | ||
real(kind=kind_phys), dimension(im,lm+ltp), intent(in) | cldtaulw, | ||
real(kind=kind_phys), dimension(im,lm+ltp), intent(in) | cldtausw, | ||
type(sfcflw_type), dimension(im), intent(in) | sfcflw, | ||
type(sfcfsw_type), dimension(im), intent(in) | sfcfsw, | ||
type(topflw_type), dimension(im), intent(in) | topflw, | ||
type(topfsw_type), dimension(im), intent(in) | topfsw, | ||
type(cmpfsw_type), dimension(im), intent(in) | scmpsw, | ||
real(kind=kind_phys), dimension(im,nfxr), intent(inout) | fluxr, | ||
real(kind=kind_phys), dimension(im), intent(inout) | total_albedo, | ||
character(len=*), intent(out) | errmsg, | ||
integer, intent(out) | errflg ) |
Definition at line 21 of file GFS_rrtmg_post.F90.