set explicit out and expand type

E3SM-Project · Jun 3, 2024 · 7a7333d · 7a7333d
1 parent d0adfce
commit 7a7333d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/components/eamxx/src/physics/p3/p3_iso_c.f90 b/components/eamxx/src/physics/p3/p3_iso_c.f90
@@ -16,8 +16,8 @@ module p3_iso_c
 contains
   subroutine append_precision(string, prefix)
 
-    character(kind=c_char, len=256), intent(inout) :: string
-    character(*), intent(in) :: prefix
+    character(kind=c_char, len=256), intent(out) :: string
+    character(kind=c_char, len=*), intent(in) :: prefix
     real(kind=c_real) :: s
 
     write (string, '(a,i1,a1)') prefix, sizeof(s), C_NULL_CHAR