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 ) |