- Timestamp:
- 01/22/15 01:21:09 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/omp_para.F90
r295 r320 58 58 PRIVATE :: ll_begin_distrib, ll_beginp1_distrib, ll_end_distrib, ll_endm1_distrib, ll_endp1_distrib 59 59 60 61 60 CONTAINS 62 63 61 64 62 SUBROUTINE init_omp_para(is_mpi_master) 65 63 USE grid_param 66 USE getin_mod64 USE ioipsl, ONLY : getin 67 65 #ifdef CPP_USING_OMP 68 66 USE omp_lib … … 101 99 omp_level_size=1 102 100 CALL getin("omp_level_size",omp_level_size) 101 IF(is_mpi_master) PRINT *,'GETIN omp_level_size', ' = ', omp_level_size 102 103 103 IF (MOD(omp_size,omp_level_size)/=0) THEN 104 104 IF (is_mpi_master) PRINT*,"omp_size /= omp_level_size x omp_domain_size => disable omp threads on vertical layers"
Note: See TracChangeset
for help on using the changeset viewer.