12 subroutine gfs_mp_generic_pre_run(im, levs, ldiag3d, qdiag3d, do_aw, progsigma, ntcw, nncl, &
13 ntrac, gt0, gq0, save_t, save_q, num_dfi_radar, errmsg, errflg)
18 integer,
intent(in) :: im, levs, ntcw, nncl, ntrac, num_dfi_radar
19 logical,
intent(in) :: ldiag3d, qdiag3d, do_aw, progsigma
20 real(kind=kind_phys),
dimension(:,:),
intent(in) :: gt0
21 real(kind=kind_phys),
dimension(:,:,:),
intent(in) :: gq0
23 real(kind=kind_phys),
dimension(:,:),
intent(inout) :: save_t
24 real(kind=kind_phys),
dimension(:,:,:),
intent(inout) :: save_q
26 character(len=*),
intent(out) :: errmsg
27 integer,
intent(out) :: errflg
35 if (ldiag3d .or. do_aw .or. num_dfi_radar>0)
then
38 save_t(i,k) = gt0(i,k)
42 if (ldiag3d .or. do_aw .or.
progsigma)
then
47 save_q(i,k,n) = gq0(i,k,n)
53 save_q(1:im,:,1) = gq0(1:im,:,1)
55 save_q(1:im,:,n) = gq0(1:im,:,n)