CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
GFS_suite_interstitial_phys_reset.F90
1
3
5
6 contains
7
11 subroutine gfs_suite_interstitial_phys_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%phys_reset(model)
29
30 end subroutine gfs_suite_interstitial_phys_reset_run
31