- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/mod_phys_lmdz_omp_data.F90
r1001 r1299 1 1 ! 2 !$ Header$2 !$Id$ 3 3 ! 4 4 MODULE mod_phys_lmdz_omp_data … … 27 27 INTEGER :: i 28 28 29 CHARACTER (LEN=20) :: modname='Init_phys_lmdz_omp_data' 30 CHARACTER (LEN=80) :: abort_message 31 32 29 33 #ifdef CPP_OMP 30 34 INTEGER :: OMP_GET_NUM_THREADS … … 51 55 is_omp_root=.TRUE. 52 56 ELSE 53 PRINT *,'ANORMAL : OMP_MASTER /= 0'54 STOP57 abort_message = 'ANORMAL : OMP_MASTER /= 0' 58 CALL abort_gcm (modname,abort_message,1) 55 59 ENDIF 56 60 !$OMP END MASTER
Note: See TracChangeset
for help on using the changeset viewer.