11 subroutine gfs_suite_stateout_reset_run (im, levs, ntrac, &
12 tgrs, ugrs, vgrs, qgrs, &
13 gt0 , gu0 , gv0 , gq0 , &
21 integer,
intent(in ) :: im
22 integer,
intent(in ) :: levs
23 integer,
intent(in ) :: ntrac
24 real(kind=kind_phys),
intent(in ),
dimension(:,:) :: tgrs, ugrs, vgrs
25 real(kind=kind_phys),
intent(in ),
dimension(:,:,:) :: qgrs
26 real(kind=kind_phys),
intent(out),
dimension(:,:) :: gt0, gu0, gv0
27 real(kind=kind_phys),
intent(out),
dimension(:,:,:) :: gq0
29 character(len=*),
intent(out) :: errmsg
30 integer,
intent(out) :: errflg
39 gq0(:,:,:) = qgrs(:,:,:)