fix array dimensions for phii, prsi in ugwp_driver_v0.F

NCAR · Dec 6, 2019 · 812f8b6 · 812f8b6
1 parent f895fc0
commit 812f8b6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/physics/ugwp_driver_v0.F b/physics/ugwp_driver_v0.F
@@ -48,7 +48,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