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
7
module
gfs_surface_loop_control_part2
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
57
end subroutine
gfs_surface_loop_control_part2_run
58
end module
gfs_surface_loop_control_part2
gfs_surface_loop_control_part2::gfs_surface_loop_control_part2_run
subroutine gfs_surface_loop_control_part2_run(im, lsm, lsm_noahmp, iter, wind, flag_guess, flag_iter, dry, wet, icy, nstf_name1, errmsg, errflg)
Definition
GFS_surface_loop_control_part2.F90:18
gfs_surface_loop_control_part2
Definition
GFS_surface_loop_control_part2.F90:7
machine
Definition
machine.F:3
Interstitials
UFS_SCM_NEPTUNE
GFS_surface_loop_control_part2.F90
Generated by
1.11.0