Skip to content
Snippets Groups Projects
Commit 98f7e74e authored by Douglas Guptill's avatar Douglas Guptill
Browse files

only print date if processor = 0

parent 32a5117e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
DOUAR.f90
+ 1
− 1
View file @ 98f7e74e
...@@ -102,7 +102,7 @@ call int_to_char(ciproc,3,iproc) ...@@ -102,7 +102,7 @@ call int_to_char(ciproc,3,iproc)
threadinfo%Logunit=1000+iproc threadinfo%Logunit=1000+iproc
open (unit=threadinfo%Logunit,file='./DEBUG/mpilogs/Log_'//ciproc//'.dat',status='replace') open (unit=threadinfo%Logunit,file='./DEBUG/mpilogs/Log_'//ciproc//'.dat',status='replace')
write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-07-27' write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-07-27'
write(*,*) 'This is douar, last modifed 2009-07-27' if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-07-27'
write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc
call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat') call heap_init(threadinfo,2000+iproc,'./DEBUG/mpilogs/mem_heap_'//ciproc//'.dat')
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment