Merge remote-tracking branch 'mike/ufs/dev_ugwp_stoch_phys_fix' into …

…progc_HR2
NOAA-EMC · Apr 5, 2023 · 94eaf51 · 94eaf51
2 parents aa7088e + eb816e3
commit 94eaf51
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git a/physics/drag_suite.F90 b/physics/drag_suite.F90
@@ -342,7 +342,7 @@ subroutine drag_suite_run(                                           &
    real(kind=kind_phys), intent(inout) ::                        &
      &                   dudt(:,:),dvdt(:,:),                &
      &                   dtdt(:,:)
-   real(kind=kind_phys), intent(out) :: rdxzb(:)
+   real(kind=kind_phys), intent(inout) :: rdxzb(:)
    real(kind=kind_phys), intent(in) ::                           &
      &                            u1(:,:),v1(:,:),           &
      &                            t1(:,:),q1(:,:),           &
@@ -605,7 +605,6 @@ subroutine drag_suite_run(                                           &
       else
          xland(i)=2.0
       endif
-      RDXZB(i)  = 0.0
    enddo
 
 !--- calculate scale-aware tapering factors
@@ -818,6 +817,8 @@ subroutine drag_suite_run(                                           &
 
    do i=its,im
 
+      RDXZB(i)  = 0.0
+
       if ( ls_taper(i).GT.1.E-02 ) then
 
 !

diff --git a/physics/drag_suite.meta b/physics/drag_suite.meta
@@ -536,7 +536,7 @@
   dimensions = (horizontal_loop_extent)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
 [dx]
   standard_name = characteristic_grid_lengthscale
   long_name = size of the grid cell