From aa99bea5af49f2ca0ecb38114d4adc455f4c75e8 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Fri, 6 Dec 2019 10:30:13 -0700 Subject: [PATCH 1/2] fix array dimensions for phii, prsi in ugwp_driver_v0.F --- gfsphysics/physics/ugwp_driver_v0.f | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gfsphysics/physics/ugwp_driver_v0.f b/gfsphysics/physics/ugwp_driver_v0.f index 10f0d7399..88c074154 100644 --- 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 From 718b7a5086ae259cbff2f53dbed7913e67a60377 Mon Sep 17 00:00:00 2001 From: Grant Firl Date: Fri, 6 Dec 2019 12:45:15 -0700 Subject: [PATCH 2/2] fix cires_ugwp_init call arguments in GFS_driver.F90 (there is no issue in CCPP version) --- gfsphysics/GFS_layer/GFS_driver.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gfsphysics/GFS_layer/GFS_driver.F90 b/gfsphysics/GFS_layer/GFS_driver.F90 index bea7f3987..28695eb5e 100644 --- a/gfsphysics/GFS_layer/GFS_driver.F90 +++ b/gfsphysics/GFS_layer/GFS_driver.F90 @@ -460,7 +460,7 @@ subroutine GFS_initialize (Model, Statein, Stateout, Sfcprop, & call cires_ugwp_init(Model%me, Model%master, Model%nlunit, Init_parm%logunit, & Model%fn_nml, Model%lonr, Model%latr, Model%levs, & Init_parm%ak, Init_parm%bk, p_ref, Model%dtp, & - Model%cdmbgwd, Model%cgwf, Model%prslrd0, Model%ral_ts) + Model%cdmbgwd(1:2), Model%cgwf, Model%prslrd0, Model%ral_ts) endif #endif