22 subroutine get_phi_fv3_run(ix, levs, con_fvirt, gt0, gq01, del_gz, phii, phil, errmsg, errflg)
27 integer,
intent(in) :: ix, levs
28 real(kind=kind_phys),
intent(in) :: con_fvirt
29 real(kind=kind_phys),
dimension(:,:),
intent(in) :: gt0
30 real(kind=kind_phys),
dimension(:,:),
intent(in) :: gq01
31 real(kind=kind_phys),
dimension(:,:),
intent(inout) :: del_gz
32 real(kind=kind_phys),
dimension(:,:),
intent(out) :: phii
33 real(kind=kind_phys),
dimension(:,:),
intent(out) :: phil
34 character(len=*),
intent(out) :: errmsg
35 integer,
intent(out) :: errflg
50 del_gz(i,k) = del_gz(i,k)*gt0(i,k) * &
51 & (one + con_fvirt*max(zero,gq01(i,k)))
52 phii(i,k+1) = phii(i,k) + del_gz(i,k)
53 phil(i,k) = half*(phii(i,k) + phii(i,k+1))