Merge pull request #1 from dustinswales/hotfix_uwm1488

Assumed-shape in gwdps.f
SamuelTrahanNOAA · Dec 2, 2022 · b82f0d3 · b82f0d3
2 parents 86ff927 + 0d488db
commit b82f0d3
Showing 1 changed file with 5 additions and 5 deletions.
diff --git 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