12 subroutine gfs_surface_loop_control_part1_run (im, iter, &
13 wind, flag_guess, errmsg, errflg)
20 integer,
intent(in) :: im
21 integer,
intent(in) :: iter
22 real(kind=kind_phys),
dimension(:),
intent(in) :: wind
23 logical,
dimension(:),
intent(inout) :: flag_guess
25 character(len=*),
intent(out) :: errmsg
26 integer,
intent(out) :: errflg
36 if (iter == 1 .and. wind(i) < 2.0d0)
then
37 flag_guess(i) = .true.