CCPP SciDoc v7.0.0  v7.0.0
Common Community Physics Package Developed at DTC
 
Loading...
Searching...
No Matches
GFS_suite_interstitial_5.F90
1
3
5
6 contains
7
11 subroutine gfs_suite_interstitial_5_run (im, levs, ntrac, ntcw, ntiw, nn, gq0, clw, errmsg, errflg)
12
13 use machine, only: kind_phys
14
15 implicit none
16
17 ! interface variables
18 integer, intent(in ) :: im, levs, ntrac, ntcw, ntiw, nn
19
20 real(kind=kind_phys), intent(in ), dimension(:,:,:) :: gq0
21
22 real(kind=kind_phys), intent(out), dimension(:,:,:) :: clw
23
24 character(len=*), intent(out) :: errmsg
25 integer, intent(out) :: errflg
26
27 ! local variables
28 integer :: i,k
29
30 ! Initialize CCPP error handling variables
31 errmsg = ''
32 errflg = 0
33
34 do k=1,levs
35 do i=1,im
36 clw(i,k,1) = gq0(i,k,ntiw) ! ice
37 clw(i,k,2) = gq0(i,k,ntcw) ! water
38 enddo
39 enddo
40
41 end subroutine gfs_suite_interstitial_5_run
42