coml_binding.F90

Go to the documentation of this file.

SUBROUTINE coml_set_debug(KONOFF, KRET)
USE oml_mod, ONLY : oml_debug
USE parkind1, ONLY : jpim
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(IN) :: KONOFF
INTEGER(KIND=JPIM), INTENT(OUT) :: KRET
kret = 0
IF (oml_debug) kret = 1
IF (konoff == 0) THEN 
  oml_debug = .false.
ELSE
  oml_debug = .true.
ENDIF
END SUBROUTINE coml_set_debug

SUBROUTINE coml_init_lockid_with_name(KMYLOCK,CDLOCKNAME)
USE oml_mod, ONLY : oml_init_lock, oml_lock_kind, oml_debug
USE parkind1, ONLY : jpib
IMPLICIT NONE
INTEGER(KIND=OML_LOCK_KIND), INTENT(INOUT) :: KMYLOCK
CHARACTER(LEN=*), INTENT(IN) :: CDLOCKNAME
INTEGER(KIND=JPIB), EXTERNAL :: LOC_ADDR
CALL oml_init_lock(kmylock)
IF (oml_debug) WRITE(0,'(1x,a,2i20)') &
     & 'coml_init_lockid_with_name "'//cdlockname//'" :',kmylock,loc_addr(kmylock)
END SUBROUTINE coml_init_lockid_with_name

SUBROUTINE coml_init_lockid(KMYLOCK)
USE oml_mod, ONLY : oml_init_lock, oml_lock_kind, oml_debug
USE parkind1, ONLY : jpib
IMPLICIT NONE
INTEGER(KIND=OML_LOCK_KIND), INTENT(INOUT) :: KMYLOCK
INTEGER(KIND=JPIB), EXTERNAL :: LOC_ADDR
CALL oml_init_lock(kmylock)
IF (oml_debug) WRITE(0,'(1x,2i20)') &
     & 'coml_init_lockid :',kmylock,loc_addr(kmylock)
END SUBROUTINE coml_init_lockid

SUBROUTINE coml_init_lock()
USE oml_mod, ONLY : oml_init_lock
IMPLICIT NONE
CALL oml_init_lock()
END SUBROUTINE coml_init_lock

SUBROUTINE coml_test_lockid(KISSET,KMYLOCK)
USE parkind1, ONLY : jpim
USE oml_mod, ONLY : oml_test_lock, oml_lock_kind
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(OUT) :: KISSET
INTEGER(KIND=OML_LOCK_KIND), INTENT(INOUT) :: KMYLOCK
kisset = 1
IF (.NOT.oml_test_lock(kmylock)) kisset = 0
END SUBROUTINE coml_test_lockid

SUBROUTINE coml_test_lock(KISSET)
USE parkind1, ONLY : jpim
USE oml_mod, ONLY : oml_test_lock
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(OUT) :: KISSET
kisset = 1
IF (.NOT.oml_test_lock()) kisset = 0
END SUBROUTINE coml_test_lock

SUBROUTINE coml_set_lockid(KMYLOCK)
USE oml_mod, ONLY : oml_set_lock, oml_lock_kind, oml_my_thread, oml_debug
USE parkind1, ONLY : jprd, jpib
IMPLICIT NONE
INTEGER(KIND=OML_LOCK_KIND), INTENT(INOUT) :: KMYLOCK
INTEGER(KIND=JPIB), EXTERNAL :: LOC_ADDR
REAL(KIND=JPRD), EXTERNAL :: UTIL_WALLTIME
IF (oml_debug) WRITE(0,'(1x,f20.6,1x,i3,a,2i20)') &
     & util_walltime(),oml_my_thread(),': coml_SET_lockid >>',kmylock,loc_addr(kmylock)
CALL oml_set_lock(kmylock)
IF (oml_debug) WRITE(0,'(1x,f20.6,1x,i3,a,2i20)') &
     & util_walltime(),oml_my_thread(),': coml_SET_lockid <<',kmylock,loc_addr(kmylock)
END SUBROUTINE coml_set_lockid

SUBROUTINE coml_set_lock()
USE oml_mod, ONLY : oml_set_lock
IMPLICIT NONE
CALL oml_set_lock()
END SUBROUTINE coml_set_lock

SUBROUTINE coml_unset_lockid(KMYLOCK)
USE oml_mod, ONLY : oml_unset_lock, oml_lock_kind, oml_my_thread, oml_debug
USE parkind1, ONLY : jprd, jpib
IMPLICIT NONE
INTEGER(KIND=OML_LOCK_KIND), INTENT(INOUT) :: KMYLOCK
INTEGER(KIND=JPIB), EXTERNAL :: LOC_ADDR
REAL(KIND=JPRD), EXTERNAL :: UTIL_WALLTIME
IF (oml_debug) WRITE(0,'(1x,f20.6,1x,i3,a,2i20)') &
     & util_walltime(),oml_my_thread(),': coml_UNSET_lockid >>',kmylock,loc_addr(kmylock)
CALL oml_unset_lock(kmylock)
IF (oml_debug) WRITE(0,'(1x,f20.6,1x,i3,a,2i20)') &
     & util_walltime(),oml_my_thread(),': coml_UNSET_lockid <<',kmylock,loc_addr(kmylock)
END SUBROUTINE coml_unset_lockid

SUBROUTINE coml_unset_lock()
USE oml_mod, ONLY : oml_unset_lock
IMPLICIT NONE
CALL oml_unset_lock()
END SUBROUTINE coml_unset_lock

SUBROUTINE coml_in_parallel(KISPAR_REGION)
USE parkind1, ONLY : jpim
USE oml_mod, ONLY : oml_in_parallel
IMPLICIT NONE
INTEGER(KIND=JPIM), INTENT(OUT) :: KISPAR_REGION
kispar_region = 0
IF (oml_in_parallel()) kispar_region = 1
END SUBROUTINE coml_in_parallel