gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DRIVER: Print timings at the end and remove error info.

Browse Source 
The error info is not complete and probably broken. It should be
rewritten.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-28 22:25:41 -02:00
parent b843baa638
commit bdddceae06
1 changed files with 48 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

135
sources/driver.F90
View File

@ -765,6 +765,54 @@ program amun
!
call finalize_user_problem(iret)
! finalize module OPERATORS
!
call finalize_operators(iret)
! finalize module INTERPOLATIONS
!
call finalize_interpolations(iret)
! finalize module SCHEMES
!
call finalize_schemes(iret)
! jump point
!
30 continue
! finalize module EVOLUTION
!
call finalize_evolution(iret)
! jump point
!
40 continue
! finalize module REFINEMENT
!
call finalize_refinement(iret)
! jump point
!
50 continue
! finalize module EQUATIONS
!
call finalize_equations(iret)
! jump point
!
60 continue
! finalize module COORDINATES
!
call finalize_coordinates(iret)
! a label to go to if there are any problems
!
100 continue
! stop time accounting for the termination
!
call stop_timer(itm)
@ -836,93 +884,6 @@ program amun
end if
! finalize module OPERATORS
!
call finalize_operators(iret)
! finalize module INTERPOLATIONS
!
call finalize_interpolations(iret)
! finalize module SCHEMES
!
call finalize_schemes(iret)
! jump point
!
30 continue
! finalize module EVOLUTION
!
call finalize_evolution(iret)
! jump point
!
40 continue
! finalize module REFINEMENT
!
call finalize_refinement(iret)
! jump point
!
50 continue
! finalize module EQUATIONS
!
call finalize_equations(iret)
! jump point
!
60 continue
! finalize module COORDINATES
!
call finalize_coordinates(iret)
! a label to go to if there are any problems
!
100 continue
if (master) then
! print info about termination due to a signal
!
if (iterm >= 1 .and. iterm <= 32) then
write (*,'(a)') ''
write (*,"(1x,a,i2)") "Terminating program after receiving a" // &
" termination signal no. ", iterm
write (*,"(1x,a)") "Restart files have been successfully written."
end if
if (iterm == 100) then
write (*,'(a)') ''
write (*,"(1x,a)") "Terminating program after exceeding the" // &
" execution time."
write (*,"(1x,a)") "Restart files have been successfully written."
end if
if (iterm >= 101 .and. iterm < 120) then
write (*,'(a)') ''
write (*,"(1x,a)") "The initial conditions for the selected problem" // &
" could not be set."
write (*,"(1x,a)") "Program has been terminated."
end if
if (iterm >= 120 .and. iterm < 125) then
write (*,'(a)') ''
write (*,"(1x,a)") "Problem with restarting job from restart snapshots."
write (*,"(1x,a)") "Program has been terminated."
end if
if (iterm >= 125 .and. iterm < 130) then
write (*,'(a)') ''
write (*,"(1x,a)") "Problem with storing snapshots."
write (*,"(1x,a)") "Program has been terminated."
end if
! print one empty line
!
write (*,'(a)') ''
end if
! finalize modules PARAMETERS
!
400 continue