get_thread_id.F90

Go to the documentation of this file.

FUNCTION get_thread_id() RESULT(TID)
USE parkind1  ,ONLY : jpim
USE oml_mod, ONLY : oml_my_thread
IMPLICIT NONE
INTEGER(KIND=JPIM) :: TID
tid = 1
!$ tid = OML_MY_THREAD()
END FUNCTION get_thread_id