give format a length

ESCOMP · Jan 31, 2024 · 170adbe · 170adbe
1 parent 455b2be
commit 170adbe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/mediator/med_phases_cdeps_mod.F90 b/mediator/med_phases_cdeps_mod.F90
@@ -170,7 +170,7 @@ subroutine med_phases_cdeps_run(gcomp, rc)
                    if (size(sdat(n1,n2)%stream) == 0 .and. streamid /= 0) then
                       ! Debug print
                       if (maintask) then
-                         write(logunit,'(a,i)') trim(subname)//": initialize stream ", streamid
+                         write(logunit,'(a,i3)') trim(subname)//": initialize stream ", streamid
                       end if
 
                       ! Allocate temporary variable to store file names in the stream
@@ -258,7 +258,7 @@ subroutine med_phases_cdeps_run(gcomp, rc)
           if (size(sdat(n1,n2)%stream) > 0) then
              ! Debug print
              if (maintask) then
-                 write(logunit,'(a,i)') trim(subname)//": read stream "//trim(compname(n1))//" -> "//trim(compname(n2))  
+                 write(logunit,'(a)') trim(subname)//": read stream "//trim(compname(n1))//" -> "//trim(compname(n2))  
              end if
 
              ! Read data