From 0d488dbd331bdf710b783d97dee0e91051ddd20e Mon Sep 17 00:00:00 2001 From: dustinswales Date: Thu, 1 Dec 2022 16:11:27 -0700 Subject: [PATCH] Make input assumed-shape --- physics/gwdps.f | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/physics/gwdps.f b/physics/gwdps.f index 9ec57d5e1..714e585cf 100644 --- a/physics/gwdps.f +++ b/physics/gwdps.f @@ -315,11 +315,11 @@ subroutine gwdps_run( & & THETA(:), SIGMA(:), GAMMA(:) real(kind=kind_phys), intent(inout) :: DUSFC(:), DVSFC(:), & & RDXZB(:) - real(kind=kind_phys), intent(inout) :: dtaux2d_ms(IM,KM), & - & dtauy2d_ms(IM,KM),dtaux2d_bl(IM,KM), & - & dtauy2d_bl(IM,KM) - real(kind=kind_phys), intent(inout) :: dusfc_ms(IM), dvsfc_ms(IM), & - & dusfc_bl(IM), dvsfc_bl(IM) + real(kind=kind_phys), intent(inout) :: dtaux2d_ms(:,:), & + & dtauy2d_ms(:,:), dtaux2d_bl(:,:), & + & dtauy2d_bl(:,:) + real(kind=kind_phys), intent(inout) :: dusfc_ms(:), dvsfc_ms(:), & + & dusfc_bl(:), dvsfc_bl(:) integer, intent(in) :: nmtvr logical, intent(in) :: lprnt logical, intent(in) :: ldiag_ugwp