CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
GFS_surface_loop_control_part2.F90
1
3
8 contains
9
10#if 0
11
14#endif
15
16 subroutine gfs_surface_loop_control_part2_run (im, lsm, lsm_noahmp, iter,&
17 wind, flag_guess, flag_iter, dry, wet, icy, nstf_name1, errmsg, errflg)
18
19 use machine, only: kind_phys
20
21 implicit none
22
23 ! Interface variables
24 integer, intent(in) :: im
25 integer, intent(in) :: iter
26 integer, intent(in) :: lsm
27 integer, intent(in) :: lsm_noahmp
28 real(kind=kind_phys), dimension(:), intent(in) :: wind
29 logical, dimension(:), intent(inout) :: flag_guess
30 logical, dimension(:), intent(inout) :: flag_iter
31 logical, dimension(:), intent(in) :: dry, wet, icy
32 integer, intent(in) :: nstf_name1
33
34 character(len=*), intent(out) :: errmsg
35 integer, intent(out) :: errflg
36
37 ! Local variables
38 integer :: i
39
40 ! Initialize CCPP error handling variables
41 errmsg = ''
42 errflg = 0
43
44 do i = 1, im
45 flag_iter(i) = .false.
46 flag_guess(i) = .false.
47
48 if (iter == 1 .and. wind(i) < 2.0d0) then
49 !if (dry(i) .or. (wet(i) .and. .not.icy(i) .and. nstf_name1 > 0)) then
50 if((dry(i) .and. lsm /= lsm_noahmp) .or. (wet(i) .and. nstf_name1 > 0)) then
51 flag_iter(i) = .true.
52 endif
53 endif
54
55 enddo
56
subroutine gfs_surface_loop_control_part2_run(im, lsm, lsm_noahmp, iter, wind, flag_guess, flag_iter, dry, wet, icy, nstf_name1, errmsg, errflg)