Skip to content
Snippets Groups Projects
Commit b5a4411c authored by Roy Fabrice's avatar Roy Fabrice
Browse files

Add an screen output

write a message for star cube output
parent 7aa34a62
Branches
Tags
No related merge requests found
......@@ -164,6 +164,8 @@ program Friend
call Selectwritedmcube()
call Writedmcube()
if(param%star .and. .not.param%do_skip_star) then
if(procID==0) write(OUTPUT_UNIT ,*) 'write stars distributed in a cartesian grid'
if(procID==0) write(LOG_UNIT,*) 'write stars distributed in a cartesian grid'
call Selectwritestarcube()
call Writestarcube()
end if
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment