Skip to content
Snippets Groups Projects
Commit ed4db28f authored by Dave Whipp's avatar Dave Whipp
Browse files

Updated version number

parent bccc62f8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 3 additions and 3 deletions
src/DOUAR.f90
+ 3
− 3
View file @ ed4db28f
...@@ -100,9 +100,9 @@ params%nmpi=nproc ...@@ -100,9 +100,9 @@ params%nmpi=nproc
call int_to_char(ciproc,3,iproc) 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-12-21' write(threadinfo%Logunit,*) 'This is DOUAR-WSMP v0.1, last modified 2011-03-23'
if (iproc.eq.0) write(*,*) 'This is douar, last modifed 2009-12-21, using ', nproc, ' processors.' if (iproc.eq.0) write(*,*) 'This is DOUAR-WSMP v0.1, last modified 2011-03-23, using ', nproc, ' processors.'
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