diff --git a/components/homme/src/theta-l/share/element_ops.F90 b/components/homme/src/theta-l/share/element_ops.F90 index df38b196bda8..efd0a289b251 100644 --- a/components/homme/src/theta-l/share/element_ops.F90 +++ b/components/homme/src/theta-l/share/element_ops.F90 @@ -396,6 +396,9 @@ subroutine get_cp_star(cp_star,Q) !_____________________________________________________________________ +!AAAAAAA + + subroutine get_R_star(R_star,elem) ! implicit none