CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
GFS_suite_stateout_reset.F90
1
3
5
6 contains
7
11 subroutine gfs_suite_stateout_reset_run (im, levs, ntrac, &
12 tgrs, ugrs, vgrs, qgrs, &
13 gt0 , gu0 , gv0 , gq0 , &
14 errmsg, errflg)
15
16 use machine, only: kind_phys
17
18 implicit none
19
20 ! interface variables
21 integer, intent(in ) :: im
22 integer, intent(in ) :: levs
23 integer, intent(in ) :: ntrac
24 real(kind=kind_phys), intent(in ), dimension(:,:) :: tgrs, ugrs, vgrs
25 real(kind=kind_phys), intent(in ), dimension(:,:,:) :: qgrs
26 real(kind=kind_phys), intent(out), dimension(:,:) :: gt0, gu0, gv0
27 real(kind=kind_phys), intent(out), dimension(:,:,:) :: gq0
28
29 character(len=*), intent(out) :: errmsg
30 integer, intent(out) :: errflg
31
32 ! Initialize CCPP error handling variables
33 errmsg = ''
34 errflg = 0
35
36 gt0(:,:) = tgrs(:,:)
37 gu0(:,:) = ugrs(:,:)
38 gv0(:,:) = vgrs(:,:)
39 gq0(:,:,:) = qgrs(:,:,:)
40
41 end subroutine gfs_suite_stateout_reset_run
42