- Timestamp:
- 10/22/14 13:19:35 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/domain_param.f90
r221 r292 11 11 12 12 SUBROUTINE init_domain_param 13 USE ioipsl 13 USE ioipsl, ONLY: getin 14 USE mpipara, ONLY: mpi_size, is_mpi_master 14 15 IMPLICIT NONE 15 16 nsplit_i=default_nsplit_i … … 17 18 CALL getin('nsplit_i',nsplit_i) 18 19 CALL getin('nsplit_j',nsplit_j) 20 ! Check that nsplit_i*nsplit_j*10>=mpi_size 21 IF (nsplit_i*nsplit_j*10<mpi_size) THEN 22 IF (is_mpi_master) THEN 23 WRITE(*,*) "Error: Number of MPI processes must be" 24 WRITE(*,*) " <= 10*nsplit_i_nsplit_j" 25 WRITE(*,*) " but nsplit_i=",nsplit_i," , nsplit_j=",nsplit_j 26 WRITE(*,*) " while using ",mpi_size," MPI processes" 27 ENDIF 28 STOP 29 ENDIF 19 30 END SUBROUTINE init_domain_param 20 31
Note: See TracChangeset
for help on using the changeset viewer.