Skip to content

Commit

Permalink
fix format error
Browse files Browse the repository at this point in the history
  • Loading branch information
jedwards4b committed Apr 2, 2024
1 parent e24e0db commit 29a39fd
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions mediator/med_phases_cdeps_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -179,12 +179,12 @@ subroutine med_phases_cdeps_run(gcomp, rc)
! Fill file abd variable lists with data
do l = 1, sdat_config%stream(streamid)%nfiles
fileList(l) = trim(sdat_config%stream(streamid)%file(l)%name)
if (maintask) write(logunit,'(a,i2,x,a)') trim(subname)//": file ", l, trim(fileList(l))
if (maintask) write(logunit,'(a,i2,2x,a)') trim(subname)//": file ", l, trim(fileList(l))
end do
do l = 1, sdat_config%stream(streamid)%nvars
varList(l,1) = trim(sdat_config%stream(streamid)%varlist(l)%nameinfile)
varList(l,2) = trim(sdat_config%stream(streamid)%varlist(l)%nameinmodel)
if (maintask) write(logunit,'(a,i2,x,a)') trim(subname)//": variable ", l, trim(varList(l,1))//" -> "//trim(varList(l,2))
if (maintask) write(logunit,'(a,i2,2x,a)') trim(subname)//": variable ", l, trim(varList(l,1))//" -> "//trim(varList(l,2))
end do

! Set PIO related variables
Expand Down

0 comments on commit 29a39fd

Please sign in to comment.