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

bump date

parent 302e6386
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
DOUAR.f90
+ 2
− 2
View file @ 9773280e
......@@ -101,8 +101,8 @@ call int_to_char(ciproc,3,iproc)
threadinfo%Logunit=1000+iproc
open (unit=threadinfo%Logunit,file='./DEBUG/mpilogs/Log_'//ciproc//'.dat',status='replace')
write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-07-27'
if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-07-27'
write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-08-20'
if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-08-20'
write(threadinfo%Logunit,'(a,i3)') 'Log file of mpi process',iproc
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