From 86c022751c8bae5187c90f5f4909ea914c7f861c Mon Sep 17 00:00:00 2001
From: Robert Hallberg <Robert.Hallberg@noaa.gov>
Date: Thu, 3 May 2018 18:22:28 -0400
Subject: [PATCH] Specified argument intent in MOM_string_functions.F90

  Specified the intent for a number of subroutine arguments in
MOM_string_functions.F90 where this had been omitted.  All answers are bitwise
identical.
---
 src/framework/MOM_string_functions.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/framework/MOM_string_functions.F90 b/src/framework/MOM_string_functions.F90
index c0f3ba2b28..aa9b11bda6 100644
--- a/src/framework/MOM_string_functions.F90
+++ b/src/framework/MOM_string_functions.F90
@@ -149,7 +149,9 @@ function left_reals(r,sep)
   ! Arguments
   character(len=1320) :: left_reals
   real, intent(in) :: r(:)
-  character(len=*), optional :: sep
+  character(len=*), optional, intent(in) :: sep !< The separator between
+                                    !! successive values, by default it is ', '.
+
   ! Local variables
   integer :: j, n, b, ns
   logical :: doWrite