SURFEX v8.1
General documentation of Surfex
yomabrt.F90
Go to the documentation of this file.
1 MODULE yomabrt
2 USE parkind1, ONLY: jpim
3 USE oml_mod, ONLY : oml_lock_kind
4 IMPLICIT NONE
5 SAVE
6 PUBLIC
7 INTEGER(KIND=JPIM) :: mab_cnt = 0
8 INTEGER(KIND=OML_LOCK_KIND) :: mab_lock(2) = (/-1,-1/)
9 END MODULE yomabrt
10 
integer(kind=jpim) mab_cnt
Definition: yomabrt.F90:7
integer, parameter jpim
Definition: parkind1.F90:13
integer(kind=jpim), parameter, public oml_lock_kind
Definition: oml_mod.F90:97
integer(kind=oml_lock_kind), dimension(2) mab_lock
Definition: yomabrt.F90:8