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