From f5fa06ca28c065abce1f21bbd6ed52779351a0de Mon Sep 17 00:00:00 2001 From: Robert Hallberg Date: Tue, 8 May 2018 11:29:49 -0400 Subject: [PATCH] dOxyGenized MOM_obsolete_diagnostics.F90 Added dOxyGen comments for all remaining routines and arguments in MOM_obsolete_diagnostics.F90. All answers are bitwise identical. --- src/diagnostics/MOM_obsolete_diagnostics.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/diagnostics/MOM_obsolete_diagnostics.F90 b/src/diagnostics/MOM_obsolete_diagnostics.F90 index 4cf55bad3b..4bd5b61255 100644 --- a/src/diagnostics/MOM_obsolete_diagnostics.F90 +++ b/src/diagnostics/MOM_obsolete_diagnostics.F90 @@ -64,9 +64,9 @@ end subroutine register_obsolete_diagnostics !> Fakes a register of a diagnostic to find out if an obsolete !! parameter appears in the diag_table. logical function found_in_diagtable(diag, varName, newVarName) - type(diag_ctrl), intent(in) :: diag - character(len=*), intent(in) :: varName - character(len=*), optional, intent(in) :: newVarName + type(diag_ctrl), intent(in) :: diag !< A structure used to control diagnostics. + character(len=*), intent(in) :: varName !< The obsolete diagnostic name + character(len=*), optional, intent(in) :: newVarName !< The valid name of this diagnostic ! Local integer :: handle ! Integer handle returned from diag_manager