- Timestamp:
- 10/22/14 15:11:29 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/domain_param.f90
r292 r293 12 12 SUBROUTINE init_domain_param 13 13 USE ioipsl, ONLY: getin 14 USE mpipara, ONLY: mpi_size, is_mpi_master 14 USE mpipara, ONLY: using_mpi, mpi_size, is_mpi_master 15 USE omp_para, ONLY: using_openmp 15 16 IMPLICIT NONE 16 17 nsplit_i=default_nsplit_i … … 18 19 CALL getin('nsplit_i',nsplit_i) 19 20 CALL getin('nsplit_j',nsplit_j) 21 22 IF (using_mpi.and.(.not.using_openmp).and.(nsplit_i*nsplit_j*10<mpi_size)) THEN 20 23 ! Check that nsplit_i*nsplit_j*10>=mpi_size 21 IF (nsplit_i*nsplit_j*10<mpi_size) THEN22 24 IF (is_mpi_master) THEN 23 25 WRITE(*,*) "Error: Number of MPI processes must be" … … 28 30 STOP 29 31 ENDIF 32 33 ! TODO : same kind of test for OpenMP or mixed MPI/OpenMP cases 30 34 END SUBROUTINE init_domain_param 31 35
Note: See TracChangeset
for help on using the changeset viewer.