Final adjustments, format of verbose corrected and minor modifications
to the input case cylFlow.
This commit is contained in:
parent
fd42e0f3f9
commit
bf6caad56a
11 changed files with 189 additions and 117 deletions
|
|
@ -1,4 +1,5 @@
|
|||
MODULE moduleParallel
|
||||
IMPLICIT NONE
|
||||
|
||||
TYPE openMP_type
|
||||
INTEGER:: nThreads
|
||||
|
|
@ -7,4 +8,13 @@ MODULE moduleParallel
|
|||
|
||||
TYPE(openMP_type):: openMP
|
||||
|
||||
CONTAINS
|
||||
SUBROUTINE initParallel()
|
||||
IMPLICIT NONE
|
||||
|
||||
!Starts threads for OpenMP parallelization
|
||||
CALL OMP_SET_NUM_THREADS(openMP%nThreads)
|
||||
|
||||
END SUBROUTINE initParallel
|
||||
|
||||
END MODULE moduleParallel
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue