From 521051b265c1c7c16a7a6ae755cc9705a0d006c0 Mon Sep 17 00:00:00 2001
From: Robert Hallberg <Robert.Hallberg@noaa.gov>
Date: Tue, 3 Jul 2018 06:51:00 -0400
Subject: [PATCH] dOxyGenized elements of SIS_continuity_CS

  Added dOxyGenized comments for all elements of SIS_continuity_CS.  All answers
are bitwise identical.
---
 src/SIS_continuity.F90 | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/src/SIS_continuity.F90 b/src/SIS_continuity.F90
index cc122674..69bf2e57 100644
--- a/src/SIS_continuity.F90
+++ b/src/SIS_continuity.F90
@@ -61,22 +61,23 @@ module SIS_continuity
 
 integer :: id_clock_update, id_clock_correct
 
+!> The control structure with parameters regulating the continuity solver
 type, public :: SIS_continuity_CS ; private
-  type(SIS_diag_ctrl), pointer :: diag ! A structure that is used to regulate the
-                             ! timing of diagnostic output.
-  logical :: use_upwind2d    ! If true, use the non-split upwind scheme that was
-                             ! used in older versions of SIS.
-  logical :: upwind_1st      ! If true, use a directionally-split first-order
-                             ! upwind scheme.
-  logical :: monotonic       ! If true, use the Colella & Woodward monotonic
-                             ! limiter; otherwise use a simple positive
-                             ! definite limiter.
-  logical :: simple_2nd      ! If true, use a simple second order (arithmetic
-                             ! mean) interpolation of the edge values instead
-                             ! of the higher order interpolation.
-  logical :: vol_CFL         ! If true, use the ratio of the open face lengths
-                             ! to the tracer cell areas when estimating CFL
-                             ! numbers.
+  type(SIS_diag_ctrl), pointer :: diag => NULL() !< A structure that is used to regulate the
+                             !! timing of diagnostic output.
+  logical :: use_upwind2d    !< If true, use the non-split upwind scheme that was
+                             !! used in older versions of SIS.
+  logical :: upwind_1st      !< If true, use a directionally-split first-order
+                             !! upwind scheme.
+  logical :: monotonic       !< If true, use the Colella & Woodward monotonic
+                             !! limiter; otherwise use a simple positive
+                             !! definite limiter.
+  logical :: simple_2nd      !< If true, use a simple second order (arithmetic
+                             !! mean) interpolation of the edge values instead
+                             !! of the higher order interpolation.
+  logical :: vol_CFL         !< If true, use the ratio of the open face lengths
+                             !! to the tracer cell areas when estimating CFL
+                             !! numbers.
 end type SIS_continuity_CS
 
 type :: loop_bounds_type ; private