CCPP SciDoc v7.0.0
v7.0.0
Common Community Physics Package Developed at DTC
Loading...
Searching...
No Matches
GFS_suite_interstitial_rad_reset.F90
1
3
4
module
gfs_suite_interstitial_rad_reset
5
6
contains
7
11
subroutine
gfs_suite_interstitial_rad_reset_run (Interstitial, Model, errmsg, errflg)
12
13
use
machine
,
only
: kind_phys
14
use
gfs_typedefs,
only
: gfs_control_type
15
use
ccpp_typedefs,
only
: gfs_interstitial_type
16
17
implicit none
18
19
! interface variables
20
type
(gfs_interstitial_type),
intent(inout)
:: Interstitial
21
type
(gfs_control_type),
intent(in)
:: Model
22
character(len=*)
,
intent(out)
:: errmsg
23
integer
,
intent(out)
:: errflg
24
25
errmsg =
''
26
errflg = 0
27
28
call
interstitial%rad_reset(model)
29
30
end subroutine
gfs_suite_interstitial_rad_reset_run
31
32
end module
gfs_suite_interstitial_rad_reset
gfs_suite_interstitial_rad_reset
Definition
GFS_suite_interstitial_rad_reset.F90:4
machine
Definition
machine.F:3
Interstitials
UFS_SCM_NEPTUNE
GFS_suite_interstitial_rad_reset.F90
Generated by
1.11.0