From c1bf538429a0c3490a3611fc645a9f6ba0179555 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 15 Oct 2012 09:01:32 -0400 Subject: [PATCH] Accept input for cones. --- src/input_xml.F90 | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index f5f51a5566..6a037842bc 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -753,6 +753,15 @@ contains case ('sphere') s % type = SURF_SPHERE coeffs_reqd = 4 + case ('x-cone') + s % type = SURF_CONE_X + coeffs_reqd = 4 + case ('y-cone') + s % type = SURF_CONE_Y + coeffs_reqd = 4 + case ('z-cone') + s % type = SURF_CONE_Z + coeffs_reqd = 4 case ('box-x') s % type = SURF_BOX_X coeffs_reqd = 4