11 subroutine gfs_suite_interstitial_5_run (im, levs, ntrac, ntcw, ntiw, nn, gq0, clw, errmsg, errflg)
18 integer,
intent(in ) :: im, levs, ntrac, ntcw, ntiw, nn
20 real(kind=kind_phys),
intent(in ),
dimension(:,:,:) :: gq0
22 real(kind=kind_phys),
intent(out),
dimension(:,:,:) :: clw
24 character(len=*),
intent(out) :: errmsg
25 integer,
intent(out) :: errflg
36 clw(i,k,1) = gq0(i,k,ntiw)
37 clw(i,k,2) = gq0(i,k,ntcw)