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