From 812f8b6bb55a32df1246888b0a5ef701a255653a Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Fri, 6 Dec 2019 10:27:41 -0700 Subject: [PATCH] fix array dimensions for phii, prsi in ugwp_driver_v0.F --- physics/ugwp_driver_v0.F | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/physics/ugwp_driver_v0.F b/physics/ugwp_driver_v0.F index 7f5490d24..6ce02ad78 100644 --- 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