6 REAL(KIND=8) :: weak_div_L2
7 REAL(KIND=8) :: div_B_L2
8 REAL(KIND=8) :: total_cpu_time
9 REAL(KIND=8) :: total_cpu_time_minus_init
34 REAL(KIND=8),
OPTIONAL,
INTENT(IN) :: opt_tps, opt_tploc_max
35 #include "petsc/finclude/petsc.h"
36 petscerrorcode :: code
38 IF (inputs%verbose_timing)
THEN
39 IF (present(opt_tps).AND.present(opt_tploc_max))
THEN
40 CALL mpi_allreduce(opt_tps,talk_to_me%total_cpu_time,1,mpi_double_precision,&
41 mpi_max, petsc_comm_world, code)
42 IF(inputs%nb_iteration>1)
THEN
43 CALL mpi_allreduce(opt_tploc_max,talk_to_me%total_cpu_time_minus_init,1,&
44 mpi_double_precision, mpi_max, petsc_comm_world, code)
46 IF (rank==0)
WRITE(*,
'(A,F12.5)')
' Total elapse time ', talk_to_me%total_cpu_time
47 IF(inputs%nb_iteration>1)
THEN
48 IF (rank==0)
WRITE(*,
'(A,F12.5)')
'Average time in loop (minus initialization) ', &
49 talk_to_me%total_cpu_time_minus_init/(inputs%nb_iteration-1)
55 IF (inputs%verbose_CFL)
THEN
56 IF (rank==0)
WRITE(*,
'(2(A,e10.3))')
' Time = ', talk_to_me%time,
', CFL = ', talk_to_me%CFL
58 IF (inputs%verbose_divergence)
THEN
59 IF (inputs%type_pb==
'nst' .OR. inputs%type_pb==
'mhd' .OR. inputs%type_pb==
'fhd')
THEN
60 IF (rank==0)
WRITE(*,
'(2(A,e10.3))')
' Time = ', talk_to_me%time, &
61 ', ||div(un)||_L2/||un||_H1 = ', talk_to_me%div_L2
62 IF (rank==0)
WRITE(*,
'(2(A,e10.3))')
' Time = ', talk_to_me%time, &
63 ', ||weak_div(un)||_L2/||un||_H1 = ', talk_to_me%weak_div_L2
65 IF (inputs%type_pb/=
'nst')
THEN
66 IF (rank==0)
WRITE(*,
'(2(A,e10.3))')
' Time = ', talk_to_me%time, &
67 ', ||div(Bn)||_L2/||Bn||_L2 = ', talk_to_me%div_B_L2
subroutine, public write_verbose(rank, opt_tps, opt_tploc_max)