CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
GFS_surface_loop_control_part1.F90
1
3
6 contains
7
12 subroutine gfs_surface_loop_control_part1_run (im, iter, &
13 wind, flag_guess, errmsg, errflg)
14
15 use machine, only: kind_phys
16
17 implicit none
18
19 ! Interface variables
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
24
25 character(len=*), intent(out) :: errmsg
26 integer, intent(out) :: errflg
27
28 ! Local variables
29 integer :: i
30
31 ! Initialize CCPP error handling variables
32 errmsg = ''
33 errflg = 0
34
35 do i=1,im
36 if (iter == 1 .and. wind(i) < 2.0d0) then
37 flag_guess(i) = .true.
38 endif
39 enddo
40
41 end subroutine gfs_surface_loop_control_part1_run
This module contains the GFS_surface_loop_control_part1 scheme.