!--------------------------------------------------------------------------
   !---------------------------- caldyn_mil ----------------------------------
   IF (ll_begin==1) THEN
      !DIR$ SIMD
      DO ij=ij_begin_ext, ij_end_ext
         m_il(ij,1) = .5*rhodz(ij,1)
      END DO
   END IF
   DO l = ll_beginp1, ll_end
      !DIR$ SIMD
      DO ij=ij_begin_ext, ij_end_ext
         m_il(ij,l) = .5*(rhodz(ij,l)+rhodz(ij,l-1))
      END DO
   END DO
   IF(ll_endp1==llm+1) THEN
      !DIR$ SIMD
      DO ij=ij_begin_ext, ij_end_ext
         m_il(ij,llm+1) = .5*rhodz(ij,llm+1 -1)
      END DO
   END IF
   !---------------------------- caldyn_mil ----------------------------------
   !--------------------------------------------------------------------------