Separating CPU time output from Data outut to allow better analysis.
This commit is contained in:
parent
d69b59143d
commit
7152a232fe
6 changed files with 29 additions and 10 deletions
|
|
@ -193,7 +193,7 @@ MODULE moduleInput
|
|||
|
||||
object = 'output'
|
||||
CALL config%get(object // '.path', path, found)
|
||||
CALL config%get(object // '.trigger', triggerOutput, found)
|
||||
CALL config%get(object // '.triggerOutput', triggerOutput, found)
|
||||
IF (.NOT. found) THEN
|
||||
triggerOutput = 100
|
||||
CALL warningError('Using default trigger for output file of 100 iterations')
|
||||
|
|
@ -211,6 +211,13 @@ MODULE moduleInput
|
|||
CALL config%get(object // '.numColl', collOutput, found)
|
||||
CALL config%get(object // '.EMField', emOutput, found)
|
||||
|
||||
CALL config%get(object // '.triggerCPUTime', triggerCPUTime, found)
|
||||
IF (.NOT. found) THEN
|
||||
triggerCPUTime = triggerOutput
|
||||
IF (timeOutput) CALL warningError('No triggerCPUTime found, using same vale as triggerOutput')
|
||||
|
||||
END IF
|
||||
|
||||
END SUBROUTINE readOutput
|
||||
|
||||
!Reads information about the case species
|
||||
|
|
|
|||
|
|
@ -22,7 +22,8 @@ MODULE moduleOutput
|
|||
|
||||
CHARACTER(:), ALLOCATABLE:: path
|
||||
CHARACTER(:), ALLOCATABLE:: folder
|
||||
INTEGER:: triggerOutput, counterOutput
|
||||
INTEGER:: triggerOutput, counterOutput = 0
|
||||
INTEGER:: triggerCPUTime, counterCPUTime = 0
|
||||
LOGICAL:: timeOutput = .FALSE.
|
||||
LOGICAL:: collOutput = .FALSE.
|
||||
LOGICAL:: emOutput = .FALSE.
|
||||
|
|
|
|||
|
|
@ -555,15 +555,14 @@ MODULE moduleSolver
|
|||
|
||||
INTEGER, INTENT(in):: t
|
||||
|
||||
counterOutput=counterOutput+1
|
||||
IF (counterOutput>=triggerOutput .OR. &
|
||||
counterOutput = counterOutput + 1
|
||||
IF (counterOutput >= triggerOutput .OR. &
|
||||
t == tmax .OR. t == 0) THEN
|
||||
|
||||
!Resets output counter
|
||||
counterOutput=0
|
||||
|
||||
CALL mesh%printOutput(t)
|
||||
CALL printTime(t, t == 0)
|
||||
CALL mesh%printColl(t)
|
||||
CALL mesh%printEM(t)
|
||||
WRITE(*, "(5X,A21,I10,A1,I10)") "t/tmax: ", t, "/", tmax
|
||||
|
|
@ -584,6 +583,17 @@ MODULE moduleSolver
|
|||
|
||||
END IF
|
||||
|
||||
counterCPUTime = counterCPUTime + 1
|
||||
IF (counterCPUTime >= triggerCPUTime .OR. &
|
||||
t == tmax .OR. t == 0) THEN
|
||||
|
||||
!Reset CPU Time counter
|
||||
counterCPUTime = 0
|
||||
|
||||
CALL printTime(t, t == 0)
|
||||
|
||||
END IF
|
||||
|
||||
END SUBROUTINE doOutput
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue