From 5193fd759e132ba7f538dad322e050af979360ee Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Mon, 2 Jul 2018 15:59:40 -0400 Subject: [PATCH] dOxyGenized subroutines in combined_ice_ocean_driver.F90 Added dOxyGenized comments for all of the subroutines, functions and arguments in combined_ice_ocean_driver.F90. All answers are bitwise identical. --- src/combined_ice_ocean_driver.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/combined_ice_ocean_driver.F90 b/src/combined_ice_ocean_driver.F90 index 17774e75..954c281e 100644 --- a/src/combined_ice_ocean_driver.F90 +++ b/src/combined_ice_ocean_driver.F90 @@ -193,7 +193,8 @@ end subroutine update_slow_ice_and_ocean !> same_domain returns true if two domains use the same list of PEs and have !! the same size computational domains. function same_domain(a, b) - type(domain2D), intent(in) :: a, b + type(domain2D), intent(in) :: a !< The first domain in the comparison + type(domain2D), intent(in) :: b !< The second domain in the comparison integer :: isize_a, jsize_a, isize_b, jsize_b integer :: layout_a(2), layout_b(2) logical :: same_domain