subroutine gfs_suite_stateout_update::gfs_suite_stateout_update_run |
( |
integer, intent(in) |
im, |
|
|
integer, intent(in) |
levs, |
|
|
integer, intent(in) |
ntrac, |
|
|
real(kind=kind_phys), intent(in) |
dtp, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
tgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
ugrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
vgrs, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
qgrs, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dudt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dvdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(in) |
dtdt, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(in) |
dqdt, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
gt0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
gu0, |
|
|
real(kind=kind_phys), dimension(:,:), intent(out) |
gv0, |
|
|
real(kind=kind_phys), dimension(:,:,:), intent(out) |
gq0, |
|
|
integer, intent(in) |
ntiw, |
|
|
integer, intent(in) |
nqrimef, |
|
|
integer, intent(in) |
imp_physics, |
|
|
integer, intent(in) |
imp_physics_fer_hires, |
|
|
real(kind=kind_phys), intent(in) |
epsq, |
|
|
character(len=*), intent(out) |
errmsg, |
|
|
integer, intent(out) |
errflg |
|
) |
| |