diff --git a/mediator/med_phases_cdeps_mod.F90 b/mediator/med_phases_cdeps_mod.F90 index 7b703e46..72ac560c 100644 --- 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