Closed jedwards4b closed 11 months ago
in dshr_stream_mod.F90 if (trim(fname) /= trim(streams(k)%file(n)%name)) then write(6,'(a)')' fname = '//trim(fname) write(6,'(a,i8,2x,i8,2x,a,a,a)')' k,n,streams(k)%file(n)%name = ',k,n,trim(streams(k)%file(n)%name),'<>',trim(fname) call shr_sys_abort('ERROR reading in filename') endif
Does not account for the case in which the two paths are symbolic links to the same file.
in dshr_stream_mod.F90 if (trim(fname) /= trim(streams(k)%file(n)%name)) then
write(6,'(a)')' fname = '//trim(fname)
write(6,'(a,i8,2x,i8,2x,a,a,a)')' k,n,streams(k)%file(n)%name = ',k,n,trim(streams(k)%file(n)%name),'<>',trim(fname)
call shr_sys_abort('ERROR reading in filename')
endif
Does not account for the case in which the two paths are symbolic links to the same file.