Updates code style example

Author: thomas-robinson

CODE_STYLE.md

@@ -94,7 +94,7 @@
   same include subdirectory as the .fh files.  See below for details.
 ## Fortran Example
 
-```Fortran ./example.F90 file
+```Fortran ./fms_public_example_example.F90 file
 
 !***********************************************************************
 !*                   GNU Lesser General Public License
@@ -120,55 +120,55 @@
 !! @author <developer>
 !! @email gfdl.climate.model.info@noaa.gov
 
-module example_mod
+module fms_public_example_mod
   use platform_mod, only r4_kind, r8_kind, i4_kind, i8_kind
   use util_mod, only: util_func1
   implicit none
   private
 
-  public :: sub1
-  public :: func1
-  public :: ex_subroutine
+  public :: fms_public_example_sub1
+  public :: fms_public_example_func1
+  public :: fms_public_example_ex_subroutine
 
-  interface ex_subroutine             !< generic interface block.  When the user
-    module procedure ex_subroutine_r4 !! calls ex_subroutine, the compiler checks
-    module procedure ex_subroutine_r8 !! the input arguments and invokes either
-  end interface ex_subroutine         !! ex_subroutine_r4 or ex_subroutine_r8
-                                      !! ex_subroutine_r4/8 are generated by the preprocessor
-                                      !! which requires example_r4.fh, example_r8.fh, and
-                                      !! example.inc files
+  interface fms_public_example_ex_subroutine !< generic interface block.  When the user
+    module procedure ex_subroutine_r4        !! calls ex_subroutine, the compiler checks
+    module procedure ex_subroutine_r8        !! the input arguments and invokes either
+  end interface ex_subroutine                !! ex_subroutine_r4 or ex_subroutine_r8
+                                             !! ex_subroutine_r4/8 are generated by the preprocessor
+                                             !! which requires example_r4.fh, example_r8.fh, and
+                                             !! example.inc files
 
   !> @brief Doxygen description of type.
-  type,public :: CustomType
+  type,public :: fms_public_example_CustomType
     private
     integer(kind=i4_kind) :: a_var !< Inline doxygen description.
     real(kind=r8_kind),dimension(:),allocatable :: b_arr !< long description
                                                          !! continued on
                                                          !! multiple lines.
-  endtype CustomType
+  endtype fms_public_example_CustomType
 
   contains
 
   !> @brief Doxygen description.
-  subroutine sub1(arg1, arg2, &
+  subroutine fms_public_example_sub1(arg1, arg2, &
     & arg3)
     real(kind=r4_kind),intent(in) :: arg1 !< Inline doxygen description.
     integer(kind=i8_kind),intent(inout) :: arg2 !< Inline doxygen description.
     character(len=*),intent(inout) :: arg3 !< Long inline doxygen
                                            !! description.
 
     arg1=2.456_r4_kind
-  end subroutine sub1
+  end subroutine fms_public_example_sub1
 
   !> @brief Doxygen description
   !! @return Function return value.
-  function func1(arg1, arg2) result(res)
+  function fms_public_example_ func1(arg1, arg2) result(res)
     integer(kind=i4_kind),intent(in) :: arg1 !< Inline doxygen description
     integer(kind=i4_kind),intent(in) :: arg2 !< Inline doxygen description
     integer(kind=r8_kind) :: res
 
     res=real(arg1,r8_kind) * 3.14_r8_kind
-  end function func1
+  end function fms_public_example_func1
 
 #include "example_r4.fh" !< These two header file contains the macro definition
 #include "example_r8.fh" !! and an "#include example.inc" where the procedure