istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

src/multipass.f90: improve error wording

Browse Source
This commit is contained in:
Michele Guerini Rocco 2023-03-26 16:08:03 +02:00
parent 69308901ee
commit 658389f586
Signed by: rnhmjoj
GPG Key ID: BFBAF4C975F76450
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/multipass.f90
View File

@ -149,8 +149,9 @@ contains
iwait = iroff(:,i) ! copy ray status for current beam from global ray status iwait = iroff(:,i) ! copy ray status for current beam from global ray status
if(all(iwait)) then ! no rays active => stop beam if(all(iwait)) then ! no rays active => stop beam
iboff = .true. iboff = .true.
else if(.not.all(.not.iwait)) then ! only some rays active else if (any(iwait)) then
write (msg,'(" beam ",g0,": some rays are active!")') i ! only some rays active
write (msg,'(" beam ",g0,": only some rays are active!")') i
call log_warning(msg, mod='multipass', proc='initbeam') call log_warning(msg, mod='multipass', proc='initbeam')
end if end if