physics/moninedmf.{f,meta}: apply missing updates that were hidden in…

… a update-from-dtc-develop commit
NCAR · Apr 6, 2020 · b492f72 · b492f72
1 parent 78c03e0
commit b492f72
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/physics/moninedmf.f b/physics/moninedmf.f
@@ -775,7 +775,7 @@ subroutine hedmf_run (ix,im,km,ntrac,ntcw,dv,du,tau,rtg,          &
           do k = 1, kmpbl ! kmpbl is like a max possible pbl height
             if (zi(i,k) .le. 500. .and. zi(i,k+1) .gt. 500.) then ! find level bracketing 500 m
               spdk2 = SQRT(u1(i,k)*u1(i,k)+v1(i,k)*v1(i,k)) ! wspd near 500 m
-              wspm(i,1) = spdkw/0.6  ! now the Km limit for 500 m.  just store in K=1
+              wspm(i,1) = spdk2/0.6  ! now the Km limit for 500 m.  just store in K=1
               wspm(i,2) = float(k)  ! height of level at gridpoint i. store in K=2
             endif
           enddo !k

diff --git a/physics/moninedmf.meta b/physics/moninedmf.meta
@@ -507,7 +507,7 @@
   type = logical
   intent = in
   optional = F
-[islmsk]
+[islimsk]
   standard_name = sea_land_ice_mask
   long_name = sea/land/ice mask (=0/1/2)
   units = flag