Merge branch 'fix_cires_ugwp_dimension_bug' of https://github.com/gra…

…ntfirl/fv3atm into update_dtc_develop_from_emc_develop_and_collect_updates_20191205
NCAR · Dec 6, 2019 · 3780030 · 3780030
2 parents b317eae + aa99bea
commit 3780030
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/gfsphysics/physics/ugwp_driver_v0.f b/gfsphysics/physics/ugwp_driver_v0.f
@@ -46,7 +46,9 @@ subroutine cires_ugwp_driver_v0(me,  master,
      &,                            rain
 
        real(kind=kind_phys), intent(in), dimension(im,levs) :: ugrs
-     &,        vgrs, tgrs, qgrs, prsi, prsl, prslk, phii, phil, del
+     &,        vgrs, tgrs, qgrs, prsl, prslk, phil, del
+       real(kind=kind_phys), intent(in), dimension(im,levs+1) :: 
+     &         phii, prsi
 
 !      real(kind=kind_phys), intent(in) :: oro_stat(im,nmtvr)
        real(kind=kind_phys), intent(in), dimension(im) :: hprime, oc