| subroutine gfs_suite_interstitial_1::gfs_suite_interstitial_1_run | ( | integer, intent(in) | im, |
| integer, intent(in) | levs, | ||
| integer, intent(in) | ntrac, | ||
| real(kind=kind_phys), intent(in) | dtf, | ||
| real(kind=kind_phys), intent(in) | dtp, | ||
| real(kind=kind_phys), dimension(:), intent(in) | slmsk, | ||
| real(kind=kind_phys), dimension(:), intent(in) | area, | ||
| real(kind=kind_phys), intent(in) | dxmin, | ||
| real(kind=kind_phys), intent(in) | dxinv, | ||
| real(kind=kind_phys), dimension(:), intent(in) | pgr, | ||
| integer, dimension(:), intent(out) | islmsk, | ||
| real(kind=kind_phys), dimension(:), intent(out) | work1, | ||
| real(kind=kind_phys), dimension(:), intent(out) | work2, | ||
| real(kind=kind_phys), dimension(:), intent(out) | psurf, | ||
| real(kind=kind_phys), dimension(:,:), intent(out) | dudt, | ||
| real(kind=kind_phys), dimension(:,:), intent(out) | dvdt, | ||
| real(kind=kind_phys), dimension(:,:), intent(out) | dtdt, | ||
| real(kind=kind_phys), dimension(:,:,:), intent(out) | dqdt, | ||
| character(len=*), intent(out) | errmsg, | ||
| integer, intent(out) | errflg ) |