Merge 145fbe8 into 1f0c92f

NOAA-GFDL · Jun 26, 2023 · 5a46646 · 5a46646
2 parents 1f0c92f + 145fbe8
commit 5a46646
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/framework/MOM_file_parser.F90 b/src/framework/MOM_file_parser.F90
@@ -1419,7 +1419,7 @@ subroutine log_param_real(CS, modulename, varname, value, desc, units, &
   real,                       intent(in) :: value   !< The value of the parameter to log
   character(len=*), optional, intent(in) :: desc    !< A description of this variable; if not
                                          !! present, this parameter is not written to a doc file
-  character(len=*), optional, intent(in) :: units   !< The units of this parameter
+  character(len=*),           intent(in) :: units   !< The units of this parameter
   real,             optional, intent(in) :: default !< The default value of the parameter
   logical,          optional, intent(in) :: debuggingParam !< If present and true, this parameter is
                                          !! logged in the debugging parameter file
@@ -1457,7 +1457,7 @@ subroutine log_param_real_array(CS, modulename, varname, value, desc, &
   real, dimension(:),         intent(in) :: value   !< The value of the parameter to log
   character(len=*), optional, intent(in) :: desc    !< A description of this variable; if not
                                              !! present, this parameter is not written to a doc file
-  character(len=*), optional, intent(in) :: units   !< The units of this parameter
+  character(len=*),           intent(in) :: units   !< The units of this parameter
   real,             optional, intent(in) :: default !< The default value of the parameter
   logical,          optional, intent(in) :: debuggingParam !< If present and true, this parameter is
                                          !! logged in the debugging parameter file
@@ -1782,7 +1782,7 @@ subroutine get_param_real(CS, modulename, varname, value, desc, units, &
                                          !! read from the parameter file and logged
   character(len=*), optional, intent(in)    :: desc    !< A description of this variable; if not
                                          !! present, this parameter is not written to a doc file
-  character(len=*), optional, intent(in)    :: units   !< The units of this parameter
+  character(len=*),           intent(in)    :: units   !< The units of this parameter
   real,             optional, intent(in)    :: default !< The default value of the parameter
   logical,          optional, intent(in)    :: fail_if_missing !< If present and true, a fatal error occurs
                                          !! if this variable is not found in the parameter file
@@ -1830,7 +1830,7 @@ subroutine get_param_real_array(CS, modulename, varname, value, desc, units, &
                                          !! read from the parameter file and logged
   character(len=*), optional, intent(in)    :: desc    !< A description of this variable; if not
                                          !! present, this parameter is not written to a doc file
-  character(len=*), optional, intent(in)    :: units   !< The units of this parameter
+  character(len=*),           intent(in)    :: units   !< The units of this parameter
   real,             optional, intent(in)    :: default !< The default value of the parameter
   logical,          optional, intent(in)    :: fail_if_missing !< If present and true, a fatal error occurs
                                          !! if this variable is not found in the parameter file