get_max_threads.F90

Go to the documentation of this file.

FUNCTION get_max_threads() RESULT(IMAXT)
USE parkind1  ,ONLY : jpim
USE oml_mod, ONLY : oml_max_threads
IMPLICIT NONE
INTEGER(KIND=JPIM) :: IMAXT
imaxt = 1
!$ imaxt = OML_MAX_THREADS()
END FUNCTION get_max_threads