Merge branch 'dtc/develop' of https://github.com/NCAR/ccpp-physics in…

…to HAFS_fer_hires
climbfuji · Nov 25, 2019 · f497d40 · f497d40
2 parents bd4a30c + 73b8c0d
commit f497d40
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/physics/ugwp_driver_v0.F b/physics/ugwp_driver_v0.F
@@ -1993,8 +1993,8 @@ subroutine edmix_ugwp_v0(im, levs,   dtp,
         Km(1:levs) = ksum(1:levs) * rho(1:levs)* rho(1:levs)
  
         do j=1, nstab
-          call diff_1d_wtend(levs, dtstab, Fw, Fw1, levs,
-     &                       del(i,:), Sw, Sw1)
+          call diff_1d_wtend(levs, dtstab, Fw, Fw1, Km,
+     &                       rdp, rdpm, Sw, Sw1)
           Fw  = Sw
           Fw1 = Sw1
         enddo
@@ -2006,7 +2006,7 @@ subroutine edmix_ugwp_v0(im, levs,   dtp,
         Kpt = Km*iPr_pt
         Fw(1:levs) =  pdTdt(i, 1:levs)*Ptmap(1:levs)
         do j=1, nstab
-          call diff_1d_ptend(levs, dtstab, Fw, Kpt, del(i,:), Sw)
+          call diff_1d_ptend(levs, dtstab, Fw, Kpt, rdp, rdpm, Sw)
           Fw  = Sw
         enddo
          ed_dtdt(i,1:levs) = Sw(1:levs)/Ptmap(1:levs)