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

change date

parent c20d275c
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 @ 859e96fb
......@@ -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-14'
write(*,*) 'This is douar, last modifed 2009-07-14'
write(threadinfo%Logunit,*) 'This is douar, last modifed 2009-07-19'
write(*,*) 'This is douar, last modifed 2009-07-19'
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