21 subroutine get_prs_fv3_run(ix, levs, con_fvirt, phii, prsi, tgrs, qgrs1, del, del_gz, errmsg, errflg)
26 integer,
intent(in) :: ix, levs
27 real(kind=kind_phys),
intent(in) :: con_fvirt
28 real(kind=kind_phys),
dimension(:,:),
intent(in) :: phii
29 real(kind=kind_phys),
dimension(:,:),
intent(in) :: prsi
30 real(kind=kind_phys),
dimension(:,:),
intent(in) :: tgrs
31 real(kind=kind_phys),
dimension(:,:),
intent(in) :: qgrs1
32 real(kind=kind_phys),
dimension(:,:),
intent(out) :: del
33 real(kind=kind_phys),
dimension(:,:),
intent(out) :: del_gz
34 character(len=*),
intent(out) :: errmsg
35 integer,
intent(out) :: errflg
48 del(i,k) = prsi(i,k) - prsi(i,k+1)
49 del_gz(i,k) = (phii(i,k+1) - phii(i,k)) / &
50 (tgrs(i,k)*(one + con_fvirt*max(zero,qgrs1(i,k))))